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

½Ð±Ð¦³Ãö¨C¹j¤@¬q®É¶¡¦Û°Ê°õ¦æ°ÝÃD

½Ð±Ð¦³Ãö¨C¹j¤@¬q®É¶¡¦Û°Ê°õ¦æ°ÝÃD

½Ð±Ð¦³Ãö¦Û°Ê°õ¦æ°ÝÃD¡A
§Ú²{¦b³]©w¨C¹j5¬í¦Û°Ê°õ¦æ°Æµ{¦¡abc¡A
¤Wºô§ä¤F«Ü¦h¬ÛÃöªº¤º®e¡Aµ{¦¡¤j·§¦p¤U:
Sub autotimer()
    If k > 100 Then Exit Sub
    Application.OnTime Now() + TimeValue("00:00:05"), "abc"   
End Sub

Sub abc()
    k = k + 1
    Cells(1, k) = k
End Sub

°õ¦æ«áÅܦ¨  5¬í«á¥u°õ¦æ°Æµ{¦¡abc¤@¦¸¡A
¥u°õ¦æ¤@¦¸¡AµLªk¨C¹j5¬í¦Û°Ê°õ¦æ
½Ð°Ý¦U¦ì¤j¤j¡A§ÚÀ³¸Ó¦p¦ó­×§ïµ{¦¡?

¦^´_ 1# kk9999321
  1. Sub abc()
  2.     k = k + 1
  3.     Cells(1, k) = k

  4.     autotimer
  5. End Sub
½Æ»s¥N½X

TOP

«D±`·PÁ¡A¥i¥H¥Î¤F

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD