標題: [發問] 如何設Stop指令 [打印本頁]

---

作者: wells330    時間: 2011-5-27 10:11     標題: 如何設Stop指令

大家好!
以下巨集如何增設Stop指令，感恩!
Option Explicit
Sub Ex()
    Dim Rng As Range, Rng1 As Range, i%
    If Time < TimeValue("09:00:00") Then
        Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"
        Exit Sub
    ElseIf Time >= TimeValue("13:35:30") Then Exit Sub
    End If
    Set Rng = Sheets("SHEET2").Range("B309:Z309")
    Set Rng1 = Cells(Rows.Count, "A").End(xlUp)(2)
    Rng1 = Time
    Rng1(1, 2).Resize(1, Rng.Columns.Count) = Rng.Value
    Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX"
End Sub

---

作者: oobird    時間: 2011-5-27 10:27

有許多方法建立停止機制
如在前面加1行
if [a1]=1 then end
當你在a1輸入1 時程式自然終止

---

作者: wells330    時間: 2011-5-27 10:38

oobird超級版主你好!
謝謝你的回覆
請問用停止巨集按鈕該如何做?
感恩!

---

作者: GBKEE    時間: 2011-5-27 10:40

本帖最後由 GBKEE 於 2011-5-27 10:41 編輯

回復 3# wells330
同在一工作表的程式碼
請問 SHEET2.EX 還是 SHEET3.EX

1. Option Explicit
   
2. Dim Stop_Msg As Boolean   '預設值是  False
   
3. Sub Ex_Stop()  '在工作表設立一物件(按鈕,快取圖片..)將巨集指向此程序
   
4.     If Stop_Msg = False Then      '停止 Ex程序
   
5.         Stop_Msg = True
   
6.     Else                          '如Ex程序停止時 可恢復 Ex程序執行
   
7.         Stop_Msg = False
   
8.         Ex
   
9.     End If
   
10. End Sub
    
11. Sub Ex()
    
12.     Dim Rng As Range, Rng1 As Range, i%
    
13.     If Stop_Msg Then Exit Sub         'Stop_Msg = True   停止 Ex程序
    
14.     If Time < TimeValue("09:00:00") Then
    
15.         Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"   '請問 SHEET2.EX 還是 SHEET3.EX
    
16.         Exit Sub
    
17.     ElseIf Time >= TimeValue("13:35:30") Then Exit Sub
    
18.     End If
    
19.     Set Rng = Sheets("SHEET2").Range("B309:Z309")
    
20.     Set Rng1 = Cells(Rows.Count, "A").End(xlUp)(2)
    
21.     Rng1 = Time
    
22.     Rng1(1, 2).Resize(1, Rng.Columns.Count) = Rng.Value
    
23.     Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX" '請問 SHEET2.EX 還是 SHEET3.EX
    
24. End Sub

複製代碼

---

作者: wells330    時間: 2011-5-27 11:21

GBKEE版主你好!
不好意思!是SHEET3.EX
謝謝你!

---

作者: wells330    時間: 2011-5-29 16:35     標題: RE: 如何設Stop指令(已解決)

GBKEE版主你好!
SHEET2.EX 還是 SHEET3.EX這麼簡單修改，還需要麻煩版主，真是抱歉!
謝謝你!:)

---

作者: GBKEE    時間: 2011-5-29 19:59

回復 6# wells330
SHEET2.EX 還是 SHEET3.EX 只是提醒你的筆誤
"Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"
Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX""
改成 同一工作表物件一致就好

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)