GBKEE

回復 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

複製代碼

GBKEE

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