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

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

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

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

博士班 Rank: 6 Rank: 6

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

1^# 跳轉到 »

發表於 2014-5-22 07:31 | 顯示全部帖子

補充一下，問題應該是出在代碼第10行，把End更改為Exit sub時，只會停止模組的程式碼，還是會繼續執行表單 ...
reangame 發表於 2014-5-22 00:07

把第十行移除就行了。
If ...... End If 執行完畢程式碼便會往下執行，直到 End Sub 即行跳離該程式模組 (Sub tutu() ~ End Sub)。

博士班 Rank: 6 Rank: 6

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

2^#

發表於 2014-5-25 07:09 | 顯示全部帖子

回復 c_c_lai

c_c_lai大大，您好：
您的方法已經測試過了，把End移除掉後，表單內的程式碼依舊會執行 ...
reangame 發表於 2014-5-24 17:34

如果你需要呼叫模駔再做判斷，則請自行修正成 stillfish00 的涵式，
Function tutu() as boolean 如是符合條件後，連同表單中的程式碼一起停止執行。

博士班 Rank: 6 Rank: 6

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

3^#

發表於 2014-5-25 21:07 | 顯示全部帖子

回復 9# reangame

Function week(Text3 As String, Text2 As String, Text1 As String) As String
week = Format(DateSerial(Text3, Text2, Text1), "[$-404]aaaa;@")
End Function
Sub Test()
Dim txt As String
txt = week("2014", "5", "24")
MsgBox txt
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2014-5-26 07:27 | 顯示全部帖子

本帖最後由 c_c_lai 於 2014-5-26 07:28 編輯

回復 11# reangame
你的 week() 函數並沒有帶入引數之故。

Function week(Text3 As String, Text2 As String, Text1 As String) As String
week = Format(DateSerial(Text3, Text2, Text1), "[$-404]aaaa;@")
End Function

複製代碼

舉例：

Me.Label1.Caption = week(ComboBox3.Text,ComboBox2.Text,ComboBox1.Text)
' ComboBox3.Text 等為引入值，亦即可為任何之字串引數，或許它為不同表單之 "選擇收盤日期B.ComboBoxA.Text"

複製代碼

靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。

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