請問VBA settimer API功能?

[freeless (快樂比較重要)]

   只要我按住任意一個儲存格  整個程式就會當掉 直接跳出

   可以請問高手們這是什麼問題嘛?

   程式如下:

   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