- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
API Timer «ç»ò¥Î??
½Ð°Ý¦b«Å§iAPI¨ç¼Æ«á, Timer n«ç»ò¥s¥X¨Ó?? ´N¬Oª½±µ©µ¥Î "Timer"¶Ü??
¨Ò¦p³o¼Ë¶Ü? Range("a1")=Timer
¦pªG¥Î¤U±³oºØ¤è¦¡·|¦³delayªº±¡ªp(¥i¯à¬O¦]¬°CPU±Æµ{ªº°ÝÃD§a!?)
Sub Asub()
With ActiveSheet.Range("a1")
.Value = .Value + 0. 1
End With
End Sub
Sub tt()
SetTimer Application.hWnd, 1, 100, AddressOf Asub
End Sub
¦pªG¥i¥s¥XAPIªºTimer ²z½×¤W´N¤£·|ºC¤F§a!?
¥t¥~....¤@¯ëExcelªºTimer¨ç¼Æºë½T«×¬O1/64¬í ?
¨ºAPIÅ¥»¡¥i¨ì1/1000 ¬í??¯uªº¶Ü? |
|