我找到了一个定时函数OnTime 如何定时调用"Myvba"?Sub Myvba() MsgBox "你好" End Sub
在EXECL中没有timer控件,要使用必须用API函数来创建一个定时器。 具体的函数声明如下: Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long 一个是设置一个,一个是销毁一个。 怎么用?你就不要问我了,自己找资料学习。 交流MSN:[email protected]
MsgBox "你好"
End Sub
具体的函数声明如下:
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
一个是设置一个,一个是销毁一个。
怎么用?你就不要问我了,自己找资料学习。
交流MSN:[email protected]