[發問] 請教一下跑迴圈如何使用其他XLS

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

13^#

發表於 2010-10-7 09:41 | 只看該作者

謝謝et5323 ，我再試試onTime的方法...多謝！

YOYO

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

12^#

發表於 2010-10-3 23:01 | 只看該作者

1.你的代碼應該根本就不能運行，因為Settimer的回調函數就不是象你的Asub和Bsub那樣寫的，具體的查MSDN。
2.由於用了API,很容易就崩潰或陷入閉環的下場。
3.最好還是考慮用VBA的onTime來寫。

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2010-10-3 14:35 | 只看該作者

本帖最後由 GBKEE 於 2010-10-3 14:36 編輯

回復 10# yanto913
API 函數我不熟, 還是回到你一樓的DO LOOP 迴圈試試看,但還是有缺點如儲存格有在作輸入動作,程式會停止
Module的程式碼

Dim MyTime As Single, MyStop As Boolean
Private Const PauseTime = (1 / 60) * 2 ' " * 2 " -> "0.2秒"
Sub StartAsub()
MyStop = False
MyTime = Timer + PauseTime
Do
If MyTime <= Timer Then
MyTime = Timer + PauseTime
With Workbooks("Book1.xls").Sheets("Sheet1").Range("a1")
.Value = .Value + 1
End With
End If
DoEvents
Loop While MyStop = False
End Sub
Sub StopAsub()
MyStop = True
End Sub

複製代碼

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

10^#

發表於 2010-10-3 11:19 | 只看該作者

版大們，去掉 ActiveSheet.，可以開但是會發生
1.當Sheet1跳到Sheet2沒問題，Sheet2再跳到Sheet3就會錯誤了
2.當要編輯儲存格時也會發生錯誤(A1仍在計數中)

YOYO

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2010-10-3 06:32 | 只看該作者

回復 8# yanto913
With ActiveSheet.Workbooks("book1.xls").Sheets("sheet1").Range("b1")
語法錯誤請去掉 ActiveSheet.

帖子: 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

YOYO

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2010-10-3 00:10 | 只看該作者

我試過可以的。
開本活頁簿的

其他工作表或另開新檔都沒問題。

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

6^#

發表於 2010-10-2 23:52 | 只看該作者

GBKEE版大
我試過了，可是仍然不能開啟其他EXCEL檔耶！

YOYO

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2010-10-2 06:43 | 只看該作者

回復 1# yanto913
指明是哪一個WorkBooks("xxx.xls").Sheets("xxx") 試試看
Private Sub CommandButton1_Click()
Do While WorkBooks("xxx.xls").Sheets("xxx").Range("B2") = 1
WorkBooks("xxx.xls").Sheets("xxx").Range("A1") = WorkBooks("xxx.xls").Sheets("xxx").Range("A2")
DoEvents
Loop
End Sub