- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 169
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-7-13
               
|
本帖最後由 Hsieh 於 2010-10-2 12:33 編輯
Module1程式碼- Option Explicit
- 'API函數宣告
- '設定計時器函數
- Declare Function SetTimer _
- Lib "user32" ( _
- ByVal hWnd As Long, _
- ByVal nIDEvent As Long, _
- ByVal uElapse As Long, _
- ByVal lpTimerFunc As Long) _
- As Long
- '結數計時器函數
- Declare Function KillTimer _
- Lib "user32" ( _
- ByVal hWnd As Long, _
- ByVal nIDEvent As Long) _
- As Long
- '開始第一個計時器
- 'EXCEL視窗的handle, id設為1, 每 0.2秒執行1次Asub程序
- Sub StartAsub()
- SetTimer Application.hWnd, 1, 200, AddressOf Asub
- End Sub
- '結束第一個計時器
- Sub StopAsub()
- KillTimer Application.hWnd, 1
- End Sub
- '開始第二個計時器
- 'EXCEL視窗的handle, id設為2, 每 0.5秒執行1次Bsub程序
- Sub StartBsub()
- SetTimer Application.hWnd, 2, 500, AddressOf Bsub
- End Sub
- '結束第二個計時器
- Sub StopBsub()
- KillTimer Application.hWnd, 2
- End Sub
- 'Asub在作用工作表之A1儲存格累加1
- Sub Asub()
- With ActiveSheet.Range("a1")
- .Value = .Value + 1
- End With
- End Sub
- 'Bsub在作用工作表之B1儲存格累加1
- Sub Bsub()
- With ActiveSheet.Range("b1")
- .Value = .Value + 1
- End With
- End Sub
複製代碼 Sheet1模組程式碼- Option Explicit
- Private Sub CommandButton1_Click()
- StartAsub
- End Sub
- Private Sub CommandButton2_Click()
- StopAsub
- End Sub
- Private Sub CommandButton3_Click()
- StartBsub
- End Sub
- Private Sub CommandButton4_Click()
- StopBsub
- End Sub
複製代碼 crdotlin前輩的分享
run2subs3.zip (18.96 KB)
|
|