ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

settimer ªº¥Îªk
http://wenku.baidu.com/link?url= ... CiA-Yae-YAmhvqOCHiS
ªþÀÉ Book4.zip (10.9 KB)
«ösart«á ÀH«KÂI¨ä¥LÀx¦s®æ¤£¶W¹L15¦¸´N·|·í±¼(¥X²{¤@­Ó¿ù»~µøµ¡) excel2003 ¦Û°ÊÃö³¬

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


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

TOP

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

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

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-3-30 15:15 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD