請問VBA settimer API功能?
只要我按住任意一個儲存格 整個程式就會當掉 直接跳出
可以請問高手們這是什麼問題嘛?
程式如下:
Declare Function SetTimer _
Lib "user32" ( _
ByVal hWnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) _
As Long
'結束計時器函數
Declare Function KillTimer _
Lib "user32" ( _
ByVal hWnd As Long, _
ByVal nIDEvent As Long) _
As Long
'開始第一個計時器
'EXCEL視窗的handle, id設為1, 每 0.2秒執行1次Asub程序
Sub StartAsub()
SetTimer Application.hWnd, 1, 200, AddressOf Asub
End Sub
'結束第一個計時器
Sub StopAsub()
KillTimer Application.hWnd, 1
End Sub
Sub Asub()
With ActiveSheet.Range("a1")
.Value = .Value + 1
End With
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.168.107.113