- 帖子
- 116
- 主題
- 29
- 精華
- 0
- 積分
- 232
- 點名
- 0
- 作業系統
- winXp
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- 台灣台中市
- 註冊時間
- 2010-9-6
- 最後登錄
- 2023-7-11
|
8#
發表於 2010-10-3 00:14
| 只看該作者
我將程式修改成如下，結果程式變成不能跑了，而且在未修改前可以跑兩個程式，但開啟其他EXCEL檔後程式會變成跑到另一個新EXCEL做運算(ex,跑到book2.xls中做計數)
Option Explicit
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
Sub StartBsub()
SetTimer Application.hWnd, 2, 500, AddressOf Bsub
End Sub
Sub StopBsub()
KillTimer Application.hWnd, 2
End Sub
Sub Asub()
With ActiveSheet.Workbooks("book1.xls").Sheets("sheet1").Range("a1")
.Value = .Value + 1
End With
End Sub
Sub Bsub()
With ActiveSheet.Workbooks("book1.xls").Sheets("sheet1").Range("b1")
.Value = .Value + 1
End With
End Sub |
|
發表於 2010-10-1 22:49
| 
