帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

2^#

發表於 2011-5-27 10:27 | 只看該作者

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

TOP

wells330

中學生 Rank: 2

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

3^#

發表於 2011-5-27 10:38 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

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兔年全勤獎章

4^#

發表於 2011-5-27 10:40 | 只看該作者

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

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

Option Explicit
Dim Stop_Msg As Boolean '預設值是 False
Sub Ex_Stop() '在工作表設立一物件(按鈕,快取圖片..)將巨集指向此程序
If Stop_Msg = False Then '停止 Ex程序
Stop_Msg = True
Else '如Ex程序停止時可恢復 Ex程序執行
Stop_Msg = False
Ex
End If
End Sub
Sub Ex()
Dim Rng As Range, Rng1 As Range, i%
If Stop_Msg Then Exit Sub 'Stop_Msg = True 停止 Ex程序
If Time < TimeValue("09:00:00") Then
Application.OnTime TimeValue("09:01:13"), "SHEET2.EX" '請問 SHEET2.EX 還是 SHEET3.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" '請問 SHEET2.EX 還是 SHEET3.EX
End Sub

複製代碼

TOP

wells330

中學生 Rank: 2

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

5^#

發表於 2011-5-27 11:21 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

wells330

中學生 Rank: 2

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

6^#

發表於 2011-5-29 16:35 | 只看該作者

RE: 如何設Stop指令(已解決)

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

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^#

發表於 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""
改成同一工作表物件一致就好

TOP