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

½Ð°Ý¦p¦ó­pºâµ{¦¡[¶}©l°õ¦æ]¨ì[µ²§ô]ªº³o¬q®É¶¡¤è¦¡

½Ð°Ý¦p¦ó­pºâµ{¦¡[¶}©l°õ¦æ]¨ì[µ²§ô]ªº³o¬q®É¶¡¤è¦¡

¦pÃD

½Ð°Ý¦p¦ó­pºâµ{¦¡[¶}©l°õ¦æ]¨ì[µ²§ô]ªº³o¬q®É¶¡¤è¦¡

¤£ª¾¹D¬O¤£¬OTimer³o­Ó¨ç¼Æ´¡¤Jµ{¦¡°_©lÂI¡Bµ{¦¡µ²§ôÂI?

¥i¥H½Ð¤j¤j¼g¬q¤pµ{¦¡µy¥[Á¿¸Ñ¶Ü?  ·P¿E¤£ºÉ!!><"

¦^´_ 1# m09903020
VBA»¡©ú¤¤
Timer ¨ç¼Æ½d¨Ò
  1. Dim PauseTime, Start, Finish, TotalTime
  2.     If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
  3.         PauseTime = 5    ' ³]©w¼È°±®É¶¡¡C
  4.         Start = Timer    ' ³]©w¶}©l¼È°±ªº®É¨è¡C
  5.         Do While Timer < Start + PauseTime
  6.             DoEvents    ' ±Nµ{¦¡°õ¦æÅvÅýµ¹¨ä¥¦µ{¦¡¡C
  7.         Loop
  8.         Finish = Timer    ' Ū¨ú²{¦b®É¨è¡C
  9.         TotalTime = Finish - Start    ' ­pºâ¼È°±©Ò¸g¹Lªº®É¶¡¡C
  10.         MsgBox "Paused for " & TotalTime & " seconds"
  11.     Else
  12.         End
  13.     End If
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ÁÂÁÂG¤j¡A¤pªº¾Ç·|¯àÀ³¥Î¤F ¡C

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD