[發問] 如何讓計時器馬上中斷跳出??

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-1-18 13:34 | 只看該作者

[發問] 如何讓計時器馬上中斷跳出??

本帖最後由 t8899 於 2014-1-18 13:36 編輯

在執行馬上中斷跳出 (exit sub)
Application.OnTime Now + TimeValue("00:02:00"), "BBB"
Application.OnTime Time + #12:02:00 AM#, "bbb"

樓主熱帖

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

10^#

發表於 2014-1-19 18:17 | 只看該作者

本帖最後由 t8899 於 2014-1-19 18:18 編輯

回復 t8899
GBKEE 發表於 2014-1-19 16:07 [img]http://forum.twbts.com/images/common/back.gif
程式所有Dim的變數內容,在程式執行完畢後,會被釋放掉,其他程式引用不到的
[/img]

我懂了，程式執行完變數就被釋放掉，尤於要再等5秒才會再執行, 這中間執行 Schedule:=False 找不到變數....
類似這種等待時間再重覆執行的程序，最好用 public 宣告讓變數不要被釋放

GBKEE

超級版主 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兔年全勤獎章

9^#

發表於 2014-1-19 16:07 | 只看該作者

回復 8# t8899

Option Explicit '強迫程式宣告使用的變數,可以找出沒有宣告的變數,易於程式碼的偵錯
Dim tome As Date '在模組端Dim 是這模組的私有變數,這模組的程式都可以引用到的
Sub timestock()
'Dim tome As Date '在程式內的 Dim 是這程式的私有變數,這程式所有Dim的變數內容,在程式執行完畢後,會被釋放掉,其他程式引用不到的
tome = TimeValue(Now) + TimeValue("00:00:05")
Application.OnTime tome, "sheet2.timestock"
MsgBoxTest 0, "test ", "提示訊息", vbInformation, 0, 1500
End Sub
Private Sub CommandButton1_Click()
If tome > 0 Then
Application.OnTime EarliestTime:=TimeValue(tome), _
Procedure:="sheet2.timestock", Schedule:=False
tome = 0
End If
End Sub
Private Sub CommandButton2_Click()
timestock
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

8^#

發表於 2014-1-19 15:37 | 只看該作者

回復 t8899
OnTime 方法 VBA的說明範例Module2Sheet2
GBKEE 發表於 2014-1-19 15:20

研究已超過2小時，還抓不出錯誤!
請指導，謝謝!

9999.rar (12.22 KB)

GBKEE

超級版主 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兔年全勤獎章

7^#

發表於 2014-1-19 15:20 | 只看該作者

本帖最後由 GBKEE 於 2014-1-19 15:36 編輯

回復 6# t8899
OnTime 方法 VBA的說明範例

本範例設定 15 秒後執行 my_Procedure 程序，從現在開始計時。
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
本範例設定 my_Procedure 在下午 5 點開始執行。
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
本範例取消前一個範例對 OnTime 的設定。
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False

複製代碼

Module2

Option Explicit
Public The_Time As Date
Public Ie As Object
Sub W1232222()
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
Do While Ie.Busy Or Ie.ReadyState <> 4: DoEvents: Loop
timestock
End Sub
Sub timestock()
Dim i As Integer, S As Integer, K As Integer, j As Integer, Element
If Sheets("sheet2").Range("A1") = 1 Then
Ie.Quit
Set Ie = Nothing
Sheets("sheet2").Range("A1") = 2
MsgBox "跳離IEOK"
Exit Sub
End If
The_Time = Time + #12:00:10 AM# 'OnTime的時間
Application.OnTime The_Time, "timestock"
Application.ScreenUpdating = False
Do While Ie.Busy Or Ie.ReadyState <> 4: DoEvents: Loop
Set Element = Ie.document.getelementsbytagname("table")
With Sheets("sheet2")
.Range("C1:C4").ClearContents
For S = 2 To 2 '已找出網頁的table內容在 0-3 中
For i = 0 To Element(S).Rows.Length - 1
K = K + 1
j = 2
.Cells(K, j + 1) = Element(S).Rows(i).Cells(j).innerText
Next
Next
End With
End Sub

複製代碼

Sheet2

Private Sub CommandButton1_Click()
If Not Ie Is Nothing Then
Application.OnTime The_Time, "timestock", schedule:=False
Ie.Quit
Set Ie = Nothing
End If
End Sub
Private Sub CommandButton2_Click()
W1232222
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

6^#

發表於 2014-1-19 10:06 | 只看該作者

回復 wl02353427
GBKEE 發表於 2014-1-18 20:35

Dim my As Date
If Sheet6.Range("V14").Value = 1 Then my = #12:01:00 AM#
If Sheet6.Range("V14").Value = 2 Then my = #12:02:00 AM#

Application.OnTime Time + my, "timestock"

終止為何錯誤??(型態不符合)
Application.OnTime EarliestTime:=TimeValue(my), _
Procedure:="timestock", Schedule:=False

wl02353427

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 新北市
註冊時間: 2013-11-30
最後登錄: 2023-1-12

5^#

發表於 2014-1-18 23:27 | 只看該作者

回復 3# GBKEE

感謝GBKEE前輩的更正，前輩的方法還真的是簡潔有力，小弟還真是沒按過兩次....真是不清楚，也沒有想到if的這個用法，真是受益良多。

初新者~指教囉~

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

4^#

發表於 2014-1-18 21:16 | 只看該作者

回復 2# wl02353427
ONTIME 方法失敗??

6666.rar (14.19 KB)
Application.OnTime Time + #12:00:10 AM#, "timestock", schedule:=False

GBKEE

超級版主 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兔年全勤獎章

3^#

發表於 2014-1-18 20:35 | 只看該作者

本帖最後由 GBKEE 於 2014-1-19 16:13 編輯

回復 2# wl02353427

Option Explicit
Dim Msg As Boolean
Sub startTimer()
Msg = False
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
End Sub
Sub Increment_count()
If Msg Then Exit Sub
hiji = Now()
Range("A1") = hiji
'Range("A3").Value = Range("A3")+1 '計數器
startTimer
End Sub
Sub stopTimer()
Msg = True
'Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", schedule:=False
'連按二次OnTime會有錯誤
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

wl02353427

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 新北市
註冊時間: 2013-11-30
最後登錄: 2023-1-12

2^#

發表於 2014-1-18 19:31 | 只看該作者

計時器.rar (9.76 KB)

初新者~指教囉~