[分享] 同時跑兩個程式!

Hsieh

Module1程式碼

1. Option Explicit
   
2. 'API函數宣告
   
3. '設定計時器函數
   
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. '結數計時器函數
    
12. Declare Function KillTimer _
    
13.     Lib "user32" ( _
    
14.         ByVal hWnd As Long, _
    
15.         ByVal nIDEvent As Long) _
    
16. As Long
    
17. 
    
18. '開始第一個計時器
    
19. 'EXCEL視窗的handle, id設為1, 每 0.2秒執行1次Asub程序
    
20. Sub StartAsub()
    
21.     SetTimer Application.hWnd, 1, 200, AddressOf Asub
    
22. End Sub
    
23. '結束第一個計時器
    
24. Sub StopAsub()
    
25.     KillTimer Application.hWnd, 1
    
26. End Sub
    
27. 
    
28. '開始第二個計時器
    
29. 'EXCEL視窗的handle, id設為2, 每 0.5秒執行1次Bsub程序
    
30. Sub StartBsub()
    
31.     SetTimer Application.hWnd, 2, 500, AddressOf Bsub
    
32. End Sub
    
33. '結束第二個計時器
    
34. Sub StopBsub()
    
35.     KillTimer Application.hWnd, 2
    
36. End Sub
    
37. 
    
38. 'Asub在作用工作表之A1儲存格累加1
    
39. Sub Asub()
    
40. With ActiveSheet.Range("a1")
    
41.     .Value = .Value + 1
    
42. End With
    
43. End Sub
    
44. 'Bsub在作用工作表之B1儲存格累加1
    
45. Sub Bsub()
    
46. With ActiveSheet.Range("b1")
    
47.     .Value = .Value + 1
    
48. End With
    
49. End Sub

複製代碼

Sheet1模組程式碼

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

複製代碼

crdotlin前輩的分享 run2subs3.zip (18.96 KB)

下載次數: 91

2010-5-1 21:56

PD961A

請問停止鍵
按下後
如何歸零??
謝謝!

Hsieh

歸零要另外一個歸零動作

apolloooo

什麼動作？
我執行第二次的時候都會跳出Excel.

FAlonso

完全看不明白頭幾行說什麼,declare, lib云云.....

apolloooo

這個就不用把 Timer 載入進來了，對吧！

Hsieh

回復 5# FAlonso
程式碼已經註解說明
那是API函數宣告


至於歸零，只需分別清空A1及B1儲存格即可，並無特別技巧

FAlonso

不好意思,不熟悉api
我怎樣知道某個api是屬於那個library或dll,中間有幾多個variables,該variables形態為何?
這些東西似乎不是office的東西,應該如何搜尋...?

Hsieh

回復 8# FAlonso


    google大神能幫你

pocksoft

回復 9# Hsieh

努力學習中