請教一下跑迴圈如何使用其他XLS - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教一下跑迴圈如何使用其他XLS

返回列表下一主題上一主題發帖

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

超級版主 Rank: 8 Rank: 8

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

複製代碼

尊貴會員 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來寫。

中學生 Rank: 2

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

13^#

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

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

YOYO

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

返回列表下一主題上一主題