ªð¦^¦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¦ó­×§ïµ{¦¡?

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

TOP

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

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

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD