如果单元格值=当前时间,VBA会自动在Excel中运行宏?

时间:2016-11-08 18:58:36

标签: excel vba

当单元格中的时间与当前的pc时间匹配时,我试图自动运行一段vba代码。

单元格A2在工作表1上,单元格A2包含时间值19:00,例如

这是我的代码:

此工作簿:

Private Sub Workbook_Open()

    Application.OnTime TimeValue(ThisWorkbook.Sheets(1).Range("A2").Value), "MyMacro"

End Sub

模块1:

Sub MyMacro()
MsgBox "Hey"
End Sub

由于某种原因,这不起作用,请有人告诉我我哪里出错了?感谢

1 个答案:

答案 0 :(得分:1)

带有时间序列的单元格格式化显示为时间,格式为OnTime,所以只需使用

Application.OnTime ThisWorkbook.Sheets(1).Range("A2").Value, "MyMacro"