請問多個模組可以合併嗎? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問多個模組可以合併嗎?

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

[發問] 請問多個模組可以合併嗎?

博士班 Rank: 6 Rank: 6

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

1^# 跳轉到 »

發表於 2016-9-12 05:25 | 顯示全部帖子

本帖最後由 c_c_lai 於 2016-9-12 05:38 編輯

回復 1# s7659109
各個模組間如其共通性高，是可以考量予以整合為一，而以帶入參數 (引數)
加以判斷處裡的。
舉個簡單範例：

Sub ExA()
T1
T2
T3
End Sub
Sub T1()
MsgBox "Hi, Good Morning!"
End Sub
Sub T2()
MsgBox "Hi, Good Afternoon!"
End Sub
Sub T3()
MsgBox "Hi, Good Evening!"
End Sub

複製代碼

整合成：

Sub ExB()
T 1
T 2
T 3
End Sub
Sub T(hi As Integer)
Select Case hi
Case 1
MsgBox "Hi, Good Morning!"
Case 2
MsgBox "Hi, Good Afternoon!"
Case 3
MsgBox "Hi, Good Evening!"
End Select
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

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

2^#

發表於 2016-9-12 08:40 | 顯示全部帖子

回復 3# s7659109
你不上傳程式怎知問題所在？

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。

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