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

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

¥»©«³Ì«á¥Ñ 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 : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD