[µo°Ý] SetTimer ·í±¼??

t8899

settimer ªº¥Îªk
http://wenku.baidu.com/link?url= ... CiA-Yae-YAmhvqOCHiS
ªþÀÉ Book4.zip (10.9 KB)

¤U¸ü¦¸¼Æ: 8

2015-3-29 18:47

«ösart«á ÀH«KÂI¨ä¥LÀx¦s®æ¤£¶W¹L15¦¸´N·|·í±¼(¥X²{¤@­Ó¿ù»~µøµ¡) excel2003 ¦Û°ÊÃö³¬

¤U¸ü (75.67 KB)

2015-3-29 18:47

GBKEE

¦^´_ 1# t8899
API¨ç¼Æ¦b°õ¦æ®É²£¥Í¿ù»~.Excel·|·í±¼.

Application.OnTimeªºµ{¦¡·|µ¥«Ý¤u§@ªí½s¿è§¹²¦´Nºü,°õ¦æµ{¦¡
API¨ç¼ÆSetTimerªºªº«ü©wµ{¦¡,¤u§@ªí¦b½s¿è®É,ÁÙ¬O¦b°õ¦æ«ü©wµ{¦¡,·í¦³¿ù»~.¨ºExcel·|·í±¼.


¤u§@ªí¦b½s¿è®É,SetTimerÁÙ¬O¦b°õ¦æ«ü©wµ{¦¡,ÂI¿ï¥ô¤@Àx¦s®æ½s¿è,´ú¸Õ¬Ý¬Ý

1. Sub TimerProc()
   
2.     On Error Resume Next
   
3.     With ActiveSheet.Range("a1")
   
4.         .Value = .Value + 1
   
5.     End With
   
6.    Application.StatusBar = Time   '***ª¬ºA¦CÅã¥Ü®É¶¡***
   
7. End Sub

½Æ»s¥N½X

t8899

¦^´_  t8899
API¨ç¼Æ¦b°õ¦æ®É²£¥Í¿ù»~.Excel·|·í±¼.

Application.OnTimeªºµ{¦¡·|µ¥«Ý¤u§@ªí½s¿è§¹²¦´N ...
GBKEE µoªí©ó 2015-3-30 15:06

³o¨ç¼ÆSetTimer ¦³¦¹¯ÊÂI, ¤£ª¾¦³µL¸Ñ¨M¤§ªk??

bobomi

³o¨ç¼Æ, ¤£ª¾¦³µL¸Ñ¨M¤§ªk??
t8899 µoªí©ó 2015-3-30 18:05

¤£¬OSetTimer ¯ÊÂI
¬O VB ¦Û¨­¥ý¤Ñªº°ÝÃD