返回列表 上一主題 發帖

[發問] 設定幾分鐘執行巨集

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-5-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-5 06:28 | 顯示全部帖子

[發問] 設定幾分鐘執行巨集

Sub a123()
If [u1] <> 1 Then Exit Sub
zzzzz
Application.OnTime Now + TimeValue("00:02:00"), "Sheet6.a123"
End Sub

多久執行一次zzzzz, 想改由儲存格A1來決定
A1=1 ==> 1分
A1=2 ==> 2分  
A1=3 ==> 30秒
不知如何改?
收藏 分享

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-5-1 
2#
發表於 2013-4-5 07:09 | 顯示全部帖子
在執行中，U1改為2 暫停執行，改為1又繼續執行，無法跳出不執行???

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-5-1 
3#
發表於 2013-4-5 09:52 | 顯示全部帖子
c_c_lai 發表於 2013-4-5 08:15

可否分別用 1,2,3 來代替所輸入的時間??

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-5-1 
4#
發表於 2013-4-6 07:21 | 顯示全部帖子
當然可以！
但是必須在程式判斷內寫死。
c_c_lai 發表於 2013-4-5 15:40

在執行中，U1改為2 暫停執行，改為1又繼續執行，無法跳出不執行???

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-5-1 
5#
發表於 2013-4-6 09:05 | 顯示全部帖子
本帖最後由 t8899 於 2013-4-6 09:07 編輯
不甚明瞭你的意思； 當 U1 改為 2 時， 並非 "暫停執行"， 而是 "跳離不再執行"。
執行中將U1改為2 後， ...
c_c_lai 發表於 2013-4-6 08:54


如何讓u2 改為 2就中斷執行(不想再執行了) ??如果要執行再重新執行

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-5-1 
6#
發表於 2013-4-6 09:17 | 顯示全部帖子
你的例子，執行中，我改為2 再改為 1 就不執行了??

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-5-1 
7#
發表於 2013-4-6 09:21 | 顯示全部帖子
不甚明瞭你的意思； 當 U1 改為 2 時， 並非 "暫停執行"， 而是 "跳離不再執行"。
執行中將U1改為2 後， ...
c_c_lai 發表於 2013-4-6 08:54


"跳離不再執行" ===>等於還在執行中???

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題