設定幾分鐘執行巨集 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 設定幾分鐘執行巨集

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

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

博士班 Rank: 6 Rank: 6

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

11^# 跳轉到 »

發表於 2013-4-6 11:26 | 只看該作者

"跳離不再執行" ===>等於還在執行中???
t8899 發表於 2013-4-6 09:21

Sub a123()
Dim tm As String
Select Case [A1].Value
Case 1
tm = "00:01:00" ' 1 分鐘
Case 2
tm = "00:02:00" ' 2 分鐘
Case 3
tm = "00:00:10" ' 10 秒
Case Else
tm = "00:00:30" ' 30 秒
End Select
Application.OnTime (Now + TimeValue(tm)), "ThisWorkbook.Hello"
End Sub
Sub Hello()
If [U1] <> 1 Then GoTo 30
MsgBox ("Good Day!")
30:
Call a123
End Sub

複製代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

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