作者freeless (快乐比较重要)
看板Programming
标题请问VBA settimer API功能?
时间Sat Nov 22 01:16:58 2008
只要我按住任意一个储存格 整个程式就会当掉 直接跳出
可以请问高手们这是什麽问题嘛?
程式如下:
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