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

[µo°Ý] Åýµ{§Çµe­±°±¯d0.1¬í?

[µo°Ý] Åýµ{§Çµe­±°±¯d0.1¬í?

½Ð±Ð¤j¤j
      ¦bVBA¤U
      For repeat1 = 1 To 4
                n1 = CLng(TextBox75) + 1
                For j = 74 To 23 Step -1
                    Controls("TextBox" & j) = Controls("TextBox" & j - 13)
                    Controls("TextBox" & j).BackColor = Controls("TextBox" & j - 13).BackColor
                Next
                Controls("TextBox" & 75) = n1
                Åýµe­±°±¯d0.1¬í
       Next
À³¦p¦ó¼gªk?      ÁÂÁÂ

¦^´_ 1# yangjie
'¸Õ¸Õ¬Ý, °±¯d®É¶¡¨ÌCPU¦Ó²§
Sub test()
   'Åýµe­±°±¯d0.1¬í
   
   [A1].Select
   For i = 1 To 50000000
   Next
   [IV1].Select
   For i = 1 To 50000000
   Next
   [A1].Select
End Sub

TOP

¦^´_ 2# yen956
ÁÂÁÂ
¦³µL¿ìªk ¨Ï¥Î
    Ãþ¦üApplication.OnTime Now+value("00.00.01"),-----
    ±N¨ÏªÅÂà0.1¬í  ¦AÄ~Äò------ªº¤è¦¡§@³B²z
½Ð½ç±Ð

TOP

¦^´_ 3# yangjie

½Õ¥ÎAPIªºsleep¨ç¼Æ
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 100 ¡¦°±¤î0.1¬í
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-11 05:43 ½s¿è

¦^´_ 1# yangjie
  1. Option Explicit
  2. Private Sub UserForm_Click()
  3.     Dim J
  4.     For J = 1 To 4  '4­Ó TextBox ±±¨î¶µ
  5.         With Controls("TextBox" & J)
  6.             .BackColor = IIf(.BackColor = vbRed, vbYellow, vbRed)
  7.             .Text = Val(.Text) + J
  8.         End With
  9.         Application.Wait Time + #12:00:01 AM# ' Åýµe­±°±¯d 1¬í
  10.     Next
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# Hsieh
¯u³Õ¾Ç, ¦¬¤U°Õ, ÁÂÁÂ!!

TOP

¦^´_ 5# GBKEE
Á¤F  ¾Ç¨ì¨â©Û ·P¿E

TOP

¦^´_ 4# Hsieh
½Ð±Ð Hsiehª©¤j
        Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        ¦¹¦æÀ³©ñ¦b­þ¸Ì??

TOP

¦^´_ 5# GBKEE
½Ð±ÐGBKEEª©¤j
        Application.Wait Time + #12:00:01 AM# '
       12:00:01 À³¬OÅýµe­±°±¯d1¬í ¡A¨º0.1¬íÀ³¦p¦óªí¥Ü?
    Application.Wait Time + (#12:00:01 AM#)/10  ¬O¦æ¤£³q  À³¦p¦ó­×¥¿??

TOP

¦^´_ 9# yangjie
API
¨ç¼Æ Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
»Ý¸m©ó¤@¯ë¼Òªýªº³»ºÝ

Application.Wait ªº®É¶¡³Ì¤p¬O¬í¼Æ, 0.1¤£±µ¨üªº.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD