帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-30

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

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-30

2^#

發表於 2013-4-5 07:09 | 只看該作者

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2013-4-5 08:15 | 只看該作者

Sub a123()
If 1 Then Exit Sub
zzzzz
Application.OnTime Now + TimeValue("00:02:00"), "Sheet6.a1 ...
t8899 發表於 2013-4-5 06:28

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-30

4^#

發表於 2013-4-5 09:52 | 只看該作者

c_c_lai 發表於 2013-4-5 08:15

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2013-4-5 15:40 | 只看該作者

可否分別用 1,2,3 來代替所輸入的時間??
t8899 發表於 2013-4-5 09:52

當然可以！
但是必須在程式判斷內寫死。

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-30

6^#

發表於 2013-4-6 07:21 | 只看該作者

當然可以！
但是必須在程式判斷內寫死。
c_c_lai 發表於 2013-4-5 15:40

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2013-4-6 08:54 | 只看該作者

在執行中，U1改為2 暫停執行，改為1又繼續執行，無法跳出不執行???
t8899 發表於 2013-4-6 07:21

不甚明瞭你的意思；當 U1 改為 2 時，並非 "暫停執行"，而是 "跳離不再執行"。
執行中將U1改為2 後，需在前一個 Hello() 執行完畢回到 a123() 時，才能再次
去判斷 [U1] <> 1；如果此時 U1 為 1 ，則繼續執行，如 U1 此時不為 1 時，
即行跳離不再執行 a123()，如此解說後你再下載操作我的範例就會明瞭了！
[A1] 欄位之變動應用亦同此理。