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

时间:2014-06-13 02:12:00

标签: excel-vba vba excel

这可能吗?在我的工作簿中,我有一个宏,它创建一个.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

1 个答案:

答案 0 :(得分:2)

如果您想在单击命令按钮时使用它,只有在日期时运行代码,然后将代码封装在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