call 模組後符合條件時，如何停止程式碼執行? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » call 模組後符合條件時，如何停止程式碼執行?

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

[發問] call 模組後符合條件時，如何停止程式碼執行?

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2014-5-22 14:06 | 顯示全部帖子

回復 1# reangame
你的tutu可以改用function並回傳tutu的執行狀況給呼叫它的地方，再判斷該怎麼跳出。

如:

Function tutu() as boolean
Set sh = Sheets("開休市日期表")
Set r = sh.Columns("B").Find(md)
If Not r Is Nothing Then
md = ""
End If
If week = "星期六" Or week = "星期日" Or md = "" Then
MsgBox "所選日期為未開盤日，請重新選擇！", 0, "系統訊息"
tutu = false
else
tutu = true
End If
End Function

複製代碼

呼叫tutu的表單按鈕:

Private Sub CommandButton1_Click()
if not tutu then exit sub
End Sub

複製代碼

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-5-26 16:52 | 顯示全部帖子

回復 9# reangame

表單中的程序，如下：
Function week() ......
還是很想知道表單中，程序所產生的值有什麼辦法可以讓模組直接取用???

釐清一下
tutu為模組中function，week為表單(選擇收盤日期)中function
要在tutu中呼叫week，需要前面掛上哪一個表單
如:
If 選擇收盤日期.week = "星期六" Or 選擇收盤日期.week = "星期日" Or md = "" Then

靜思自在 : 成功是優點的發揮，失敗是缺點的累積。

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