返回列表 上一主題 發帖

[發問] 如何設Stop指令

wells330

帖子
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! 代碼

wells330

帖子
35 
主題
8 
精華
0 
積分
57 
點名
0  
作業系統
w7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-6-1 
最後登錄
2021-2-19 
2#
發表於 2011-5-27 10:38 | 顯示全部帖子
oobird超級版主你好!
謝謝你的回覆
請問用停止巨集按鈕該如何做?
感恩!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

wells330

帖子
35 
主題
8 
精華
0 
積分
57 
點名
0  
作業系統
w7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-6-1 
最後登錄
2021-2-19 
3#
發表於 2011-5-27 11:21 | 顯示全部帖子
GBKEE版主你好!
不好意思!是SHEET3.EX
謝謝你!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

wells330

帖子
35 
主題
8 
精華
0 
積分
57 
點名
0  
作業系統
w7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-6-1 
最後登錄
2021-2-19 
4#
發表於 2011-5-29 16:35 | 顯示全部帖子

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

GBKEE版主你好!
SHEET2.EX 還是 SHEET3.EX這麼簡單修改，還需要麻煩版主，真是抱歉!
謝謝你!:)
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題