[¤À¨É] ¦P®É¶]¨â­Óµ{¦¡!

Hsieh

Module1µ{¦¡½X

1. Option Explicit
   
2. 'API¨ç¼Æ«Å§i
   
3. '³]©w­p®É¾¹¨ç¼Æ
   
4. Declare Function SetTimer _
   
5.     Lib "user32" ( _
   
6.         ByVal hWnd As Long, _
   
7.         ByVal nIDEvent As Long, _
   
8.         ByVal uElapse As Long, _
   
9.         ByVal lpTimerFunc As Long) _
   
10. As Long
    
11. 'µ²¼Æ­p®É¾¹¨ç¼Æ
    
12. Declare Function KillTimer _
    
13.     Lib "user32" ( _
    
14.         ByVal hWnd As Long, _
    
15.         ByVal nIDEvent As Long) _
    
16. As Long
    
17. 
    
18. '¶}©l²Ä¤@­Ó­p®É¾¹
    
19. 'EXCELµøµ¡ªºhandle, id³]¬°1, ¨C 0.2¬í°õ¦æ1¦¸Asubµ{§Ç
    
20. Sub StartAsub()
    
21.     SetTimer Application.hWnd, 1, 200, AddressOf Asub
    
22. End Sub
    
23. 'µ²§ô²Ä¤@­Ó­p®É¾¹
    
24. Sub StopAsub()
    
25.     KillTimer Application.hWnd, 1
    
26. End Sub
    
27. 
    
28. '¶}©l²Ä¤G­Ó­p®É¾¹
    
29. 'EXCELµøµ¡ªºhandle, id³]¬°2, ¨C 0.5¬í°õ¦æ1¦¸Bsubµ{§Ç
    
30. Sub StartBsub()
    
31.     SetTimer Application.hWnd, 2, 500, AddressOf Bsub
    
32. End Sub
    
33. 'µ²§ô²Ä¤G­Ó­p®É¾¹
    
34. Sub StopBsub()
    
35.     KillTimer Application.hWnd, 2
    
36. End Sub
    
37. 
    
38. 'Asub¦b§@¥Î¤u§@ªí¤§A1Àx¦s®æ²Ö¥[1
    
39. Sub Asub()
    
40. With ActiveSheet.Range("a1")
    
41.     .Value = .Value + 1
    
42. End With
    
43. End Sub
    
44. 'Bsub¦b§@¥Î¤u§@ªí¤§B1Àx¦s®æ²Ö¥[1
    
45. Sub Bsub()
    
46. With ActiveSheet.Range("b1")
    
47.     .Value = .Value + 1
    
48. End With
    
49. End Sub

½Æ»s¥N½X

Sheet1¼Ò²Õµ{¦¡½X

1. Option Explicit
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.     StartAsub
   
5. End Sub
   
6. 
   
7. Private Sub CommandButton2_Click()
   
8.     StopAsub
   
9. End Sub
   
10. 
    
11. Private Sub CommandButton3_Click()
    
12.     StartBsub
    
13. End Sub
    
14. 
    
15. Private Sub CommandButton4_Click()
    
16.     StopBsub
    
17. End Sub

½Æ»s¥N½X

crdotlin«e½úªº¤À¨É run2subs3.zip (18.96 KB)

¤U¸ü¦¸¼Æ: 91

2010-5-1 21:56

PD961A

½Ð°Ý°±¤îÁä
«ö¤U«á
¦p¦óÂk¹s??
ÁÂÁÂ!

Hsieh

Âk¹s­n¥t¥~¤@­ÓÂk¹s°Ê§@

apolloooo

¤°»ò°Ê§@¡H
§Ú°õ¦æ²Ä¤G¦¸ªº®É­Ô³£·|¸õ¥XExcel.

FAlonso

§¹¥þ¬Ý¤£©ú¥ÕÀY´X¦æ»¡¤°»ò,declare, lib¤ª¤ª.....

apolloooo

³o­Ó´N¤£¥Î§â Timer ¸ü¤J¶i¨Ó¤F¡A¹ï§a¡I

Hsieh

¦^´_ 5# FAlonso
µ{¦¡½X¤w¸gµù¸Ñ»¡©ú
¨º¬OAPI¨ç¼Æ«Å§i


¦Ü©óÂk¹s¡A¥u»Ý¤À§O²MªÅA1¤ÎB1Àx¦s®æ§Y¥i¡A¨ÃµL¯S§O§Þ¥©

FAlonso

¤£¦n·N«ä,¤£¼ô±xapi
§Ú«ç¼Ëª¾¹D¬Y­Óapi¬OÄݩ󨺭Ólibrary©Îdll,¤¤¶¡¦³´X¦h­Óvariables,¸Óvariables§ÎºA¬°¦ó?
³o¨ÇªF¦è¦ü¥G¤£¬OofficeªºªF¦è,À³¸Ó¦p¦ó·j´M...?

Hsieh

¦^´_ 8# FAlonso


    google¤j¯«¯àÀ°§A

pocksoft

¦^´_ 9# Hsieh

§V¤O¾Ç²ß¤¤