Question

这可能吗？在我的工作簿中，我有一个宏，它创建一个.txt文件并通过电子邮件发送到静态框，并通过命令按钮调用。是否可以编辑此宏以仅在单元格B1包含日期时运行，如果是，则如何运行？

谢谢。

Sub AnswerMe()
If IsDate(Range("B1").Value) Then
MsgBox "Plase enter a date in B1"
msg = "Email"
response = MsgBox(msg, vbYesNo)
If response = vbYes Then
CopyDistribute
Else
End If
End If
End Sub

Answer 1

如果您想在单击命令按钮时使用它，只有在日期时运行代码，然后将代码封装在Sub commandbutton_click()和End Sub之间

If IsDate(Range("B1").Value) Then
    'Code required
End If

否则，如果您希望它在每次打开工作表时启动，以下操作都可以，只需更改我的轶事。

Private Sub worksheet_activate()

If IsDate(Range("B1").Value) Then
    MsgBox "Sure thing honey it's a date"
End If

End Sub

仅当单元格包含日期时才运行宏

1 个答案: