¸Ó¦p¦ó¨ú®ø¥¨¶°???

color790

¤U­±¬O²{¦b®É¶¡+´X¬íÄÁ«árun ddd, ½Ð°Ý¥i¥H¦b¤w¸grun abc«á, ¤¤³~°±¤îrun ddd¶Ü??
Sub abc()
Application.OnTime Now + 0.000100, "ddd"
End Sub

Sub ddd()
BEEP
End Sub

color790

¹ï¤£°_ª©¥D, ¬O§Ú¸£³U¦³ÂI¥´µ², °Ý¿ù°ÝÃD
«á¨Ó¬Ý²M·¡¤F....   =.=|||

Hsieh

¦^´_ 16# color790


Sub cc()
a = Now + TimeValue("00:00:10")
Cells(1, 1) = a
MsgBox a
b = Cells(1, 1).Value - Now + Now
MsgBox b
End Sub
¨â­Ó¬õ¦rªºNOW­È¬O¤£¦Pªº

color790

½Ð°Ý³o­Óa¸òbªº­È¬°¤°»ò¤@¼Ë
msgbox¤£¬OÀ³¸Ó°±¤îµ{¦¡,·í«ö½T©w¤~¤S¶}©l?

Sub cc()
a = Now + TimeValue("00:00:10")
Cells(1, 1) = a
MsgBox a
b = Cells(1, 1).Value - Now + Now
MsgBox b
End Sub

color790

¦^´_  color790

§Aªº·N«ä¤£ª¾¬O§_¦p¦¹?
ª`·Nµ{§Ç¦WºÙ¤£¯à¨Ï¥ÎVBA«O¯d¦r
Hsieh µoªí©ó 2012-2-12 00:41

ÁÂÁª©¥D~^^
¥D­n¬O·Q§Q¥Î¥ªÁä¨Ó¹F¨ì¼È°±°õ¦æ,
¦pªG¦A«ö¥kÁä, §Y¯à¦^´_°õ¦æ, ¦ý­n¦©±¼­è­è¶}©l¨ì¼È°±ªº®É¶¡
¤ñ¦p, ¤@¶}©l«ö¥kÁä¬O 12:50:10(«öªº·í®É®É¶¡) +10 ¬í °õ¦ætest3
          ¹L¤F5¬í¦b12:50:15 ®É«ö¤F¥ªÁä, °²³]¹L¤F3¬í¦A«ö¥kÁä, ³o®É­Ô·Q¦b 12:50:23¬í°õ¦ætest3

Hsieh

¦^´_ 5# color790

§Aªº·N«ä¤£ª¾¬O§_¦p¦¹?
ª`·Nµ{§Ç¦WºÙ¤£¯à¨Ï¥ÎVBA«O¯d¦r

1. Public x As Long, S As Double, t As Date, yn As Boolean
   
2. 
   
3. Sub start()
   
4. Application.OnKey "{RIGHT}", "gomysub"
   
5. Application.OnKey "{LEFT}", "STOPS"
   
6. Range("r2:t30,d4:d8,g4:g8,k4:k8,n4:n8").ClearContents
   
7. End Sub
   
8. Sub gomysub()
   
9. k = 2: m = 2: n = 2
   
10. Do Until Cells(k, 18) = ""
    
11. k = k + 1
    
12. Loop
    
13. Do Until Cells(m, 19) = ""
    
14. m = m + 1
    
15. Loop
    
16. Do Until Cells(n, 20) = ""
    
17. n = n + 1
    
18. Loop
    
19. If x = 0 Or x = 2 Then
    
20. t = Now + 0.0001
    
21. Application.OnTime t, "test3"
    
22. yn = True
    
23. End If
    
24. If x = 0 Then S = Timer
    
25. Select Case x
    
26. Case 0
    
27. S = Timer
    
28. x = x + 1
    
29. Case 1
    
30. S = Timer
    
31. x = x + 1
    
32. Case 2
    
33. Cells(k, 18) = (Timer - S) / 86400: S = Timer
    
34. x = x + 1
    
35. Case 3
    
36. S = Timer
    
37. x = x + 1
    
38. Case 4
    
39. Cells(m, 19) = (Timer - S) / 86400: S = Timer
    
40. x = x + 1
    
41. Case 5
    
42. Cells(n, 20) = (Timer - S) / 86400: S = Timer
    
43. x = 0
    
44. ActiveWorkbook.Save
    
45. End Select
    
46. End Sub
    
47. 
    
48. Sub closefuntion()
    
49. Application.OnKey "{RIGHT}"
    
50. x = 0
    
51. End Sub
    
52. Sub test3()
    
53. 'Beep
    
54. MsgBox t & "®É¶¡¨ì"
    
55. yn = False
    
56. End Sub
    
57. 
    
58. 
    
59. Sub STOPS()
    
60. If yn = True Then Application.OnTime t, "test3", , False: MsgBox "test3¤w¸g°±¤î" Else MsgBox t & "¤w¸g¹B¦æ"
    
61. End Sub

½Æ»s¥N½X

color790

­×§ï¦p¤U, ¦ýÁÙ¬O¥¢±Ñ, «ö¤U¥ªÁä(vbKeyLeft)¥i¥H³o¼Ë¥Î¶Ü?
p = Now + 0.000112
If vbKeyLeft = True Then
w = Timer
        Do
            DoEvents
            If vbKeyLeft = True Then
            z = (Timer - w) / 86400
            p = p + z
            Exit Do
            End If
        Loop
End If
Application.OnTime p, "test3"

color790

­ì¨Ó¬O­°,Ãø©Ç¬Ý¤£¨ì, ÁÂÁª©¥Dªº´£¨Ñ ^^
¨Ó¬ã¨s¤@¤U....

Hsieh

¦^´_ 7# color790
ªü¦Nª©¥D´£¨Ñªº½d¨Ò¡A2007ª©¥H«á¤£¯à¨Ï¥Î
2007ª©¥»¥H«á½Ð¨Ï¥Î¦¹ÀÉ®×
¤¤Â_µ{§Ç.rar (17.36 KB)

¤U¸ü¦¸¼Æ: 7

2012-2-10 21:54

GBKEE

¦^´_ 9# color790
­«·s¤U¸ü¬Ý¬Ý

¤U¸ü (34.16 KB)

2012-2-10 16:38