当单元格中的时间与当前的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
由于某种原因,这不起作用,请有人告诉我我哪里出错了?感谢
答案 0 :(得分:1)
带有时间序列的单元格格式化显示为时间已,格式为OnTime
,所以只需使用
Application.OnTime ThisWorkbook.Sheets(1).Range("A2").Value, "MyMacro"