12
返回列表 上一主題 發帖

[發問] 請教此程序為何錯誤?

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
1# 跳轉到 »
發表於 2015-4-4 21:21 | 顯示全部帖子
Sub timestock()
' Application.EnableEvents = False
    Application.ScreenUpdating = False
If TimeValue(The_Time) > TimeValue(Time) Then    '預防 上一次 OnTime尚未執行,再度執行一次OnTime
     Exit Sub
End If

' Time     '**** 執行的OnTime
' The_Time '**** 執行下一次OnTime

'------------------------------------------------------------------------------------------
Dim TIMEB, AG
TIMEB = 10
AG = (TimeValue(Now) * 60 * 60 * 24) - (Range("B2") * 60 * 60 * 24) '換為秒

  If AG > TIMEB Then
  On Error Resume Next
  Application.OnTime The_Time, "timestock", Schedule:=False
  If Err Then
     Application.OnTime The_Time, "timestock", Schedule:=True
  End If
      The_Time = 0
       Range("B2") = TimeValue(Now)
    MsgBox "重跑"
timestock
Exit Sub
End If                                                   '   333333
'--------------------------------------------------------------------------------

   
    my = #12:00:01 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"
[a2] = [a2] + 1
Range("a1").Value = Format(The_Time, "hh:mm:ss")

End Sub

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
2#
發表於 2015-4-4 21:24 | 顯示全部帖子
簡單的 code 複雜化

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
3#
發表於 2015-4-4 21:41 | 顯示全部帖子
本帖最後由 bobomi 於 2015-4-4 21:43 編輯

最簡單的方法就是 "通通" 不用指定 Schedule:=False  就不會有這個問題了
If AG > TIMEB Then
  Application.OnTime The_Time, "timestock"
      The_Time = 0
       Range("B2") = TimeValue(Now)
    MsgBox "重跑"
timestock
Exit Sub
End If

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
4#
發表於 2015-4-4 23:10 | 顯示全部帖子
本帖最後由 bobomi 於 2015-4-4 23:15 編輯

(1) 為何要跑一段時間後跳出呢
是因為你的 Sub timestock() 還沒計算完時,  Sub timestock() 卻又莫名重新計算一次嗎 ?



(2)

    my = #12:00:01 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"

[a2] = [a2] + 1    ------------>    你這裡的真正原始 Code 是否是一段很耗時的計算, 會花蠻久的計算   ??????  
Range("a1").Value = Format(The_Time, "hh:mm:ss")

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
5#
發表於 2015-4-5 07:29 | 顯示全部帖子
Schedule:=False  還是沒辦法終止?
之前在別的程序中也經常發生.......改成公用變數就可以停止,,這次就不行了
t8899 發表於 2015-4-4 22:30


你的  Application.OnTime The_Time, "timestock", Schedule:=False 之所以會發出 Error Msg
是因為你的  Application.OnTime  早就已經自動被停止了
所以你再次對它下達停止的命令時, 它就會發出 Error Msg
因為 Application.OnTime 回呼進入執行 "timestock" 時 , EXCEL 就自動把它停止了


'=========
[a2] = [a2] + 1   
Range("a1").Value = Format(The_Time, "hh:mm:ss")



my = #12:00:01 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"    ' ---> 把這個放到 sub timestock 的最後面來看看能不能解決

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
6#
發表於 2015-4-5 08:10 | 顯示全部帖子
5秒網站會自動更新一次資料，我發現ie 停留10分會造成excel整個速度慢下來(滑鼠出現漏斗狀)，所以必須跳出IE, 再重跑
t8899 發表於 2015-4-5 06:22



Ie.Navigate "http://mis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
讓 Ie.Navigate 只執行1次 ,  Ie.Navigate 不要出現在 sub timestock  , 而且保持 IE 永遠不被關閉

接下來用 Application.Otime  ....  

Sub   timestock()

    Call Ie.Refresh2  '用 Ie.Refresh2  取代掉 Ie.Navigate
    Do Until Ie.readyState = 4
    DoEvents
    Loop

    my = #12:00:01 AM#
    The_Time = Time + my
    Application.OnTime The_Time, "timestock"

End  Sub

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
7#
發表於 2015-4-5 14:39 | 顯示全部帖子
連續一直出現"重跑"??

If Time > [b2] + TIMEB Then
因為你的 [b2] 放在 module下, 而且沒有明確指定 [b2] 到底是 Sheet1.[b2] 還是 Sheet2.[b2],  還是 Sheet3.[b2].....
所以 EXCEL 自動幫你決定了
當你切換到SHEET1 時, EXCEL 自動把 [b2] 當成 Sheet1.[b2]
當你切換到SHEET2 時, EXCEL 自動把 [b2] 當成 Sheet2.[b2] (空值)

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
8#
發表於 2015-4-5 14:56 | 顯示全部帖子
本帖最後由 bobomi 於 2015-4-5 15:01 編輯

[ 它是執行到那一行被停止的??如何確認它已被停止了?? ]

應該是要進入 Sub timestock() 之前,  Application.OnTime 就自動同時 Stop 了, 執行在內部所以你看不見

執行 Sub Test_01
步驟 (2) 能成功 , 步驟 (3) 卻失敗
就可以知道當  Application.OnTime Time + 1 / 86400, "AAA", , False '  執行 失敗時(發出 Error Msg 時)
就代表著  Timer For Sub AAA 早已經停止了
因為步驟 (2) 已經成功停止了 Timer For Sub AAA
所以步驟 (3) 你再停止1次就失敗了 , 此時 Application.OnTime 內部早就沒有 Timer For Sub AAA 這條 Link , Application.OnTime 因為找不到 Timer For Sub AAA 而發出 Error Msg


Sub Test_01()
On Error GoTo 0: On Error Resume Next
Application.OnTime Time + 1 / 86400, "AAA", , True  '(1)--> 執行 ok
If Err Then MsgBox "err #1"
On Error GoTo 0: On Error Resume Next
Application.OnTime Time + 1 / 86400, "AAA", , False  '(2)--> 執行 ok (Timer For Sub AAA 已經停止)
If Err Then MsgBox "err #2"
On Error GoTo 0: On Error Resume Next
Application.OnTime Time + 1 / 86400, "AAA", , False '(3)--> 執行 失敗
If Err Then MsgBox "err #3"
End Sub

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
9#
發表於 2015-4-5 15:00 | 顯示全部帖子
我有指明啊 !
它不是 private
With Workbooks("book1.xls").Sheets("sheet1")
.Range("B2") = TimeVal ...
t8899 發表於 2015-4-5 14:54



If Time > [b2] + TIMEB Then

你的 [b2] 前面沒有 . 啊

此時的 [b2] 變成 Sheet2.[b2] = 空值

[b2] 加上 . 就好了

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
10#
發表於 2015-4-5 18:53 | 顯示全部帖子
你可以用  菜單的搜尋   
搜尋 If Time > [b2] + TIMEB Then   
就可以找到

TOP

        靜思自在 : 不怕事多，只怕多事。
12
返回列表 上一主題