麻辣家族討論版版 » Excel程式區 » 合成的巨集一個個執行

返回列表下一主題上一主題發帖

合成的巨集一個個執行

自我感覺良好

中學生 Rank: 2

帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-3-30 08:40 | 只看該作者

合成的巨集一個個執行

請問有多個巨集執行
合成一個巨集
第一個執行後…過二十秒才再執行第二個巨集
要怎樣做才可以?

樓主熱帖

收藏

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

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 2011-3-30 08:49 | 只看該作者

Sub test()
巨集1
Application.OnTime Now + TimeValue("00:00:20"), "巨集2"
End Sub

超級版主 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兔年全勤獎章

3^#

發表於 2011-3-30 10:50 | 只看該作者

回復 1# 自我感覺良好
第一個執行後…過二十秒才再執行第二個巨集

Sub Ex()
巨集1
Application.Wait Now + TimeValue("0:0:20")
巨集2
End Sub

複製代碼

自我感覺良好

中學生 Rank: 2

帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

4^#

發表於 2011-3-30 14:56 | 只看該作者

1. Sub Ex()
2.    巨集1
3.    Application.Wait Now + TimeValue("0:0:20")
4.    巨集2
5. End Sub
太感謝了
總算可以用了

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

靜思自在 : 站在半路，比走到目標更辛苦。

返回列表下一主題上一主題