yen956

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

GBKEE

¦^´_ 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

Hsieh

¦^´_ 3# yangjie

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

Sleep 100 ¡¦°±¤î0.1¬í

yangjie

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

yen956

¦^´_ 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