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

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

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

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-9-11 14:11 | 只看該作者

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

我有6個模組，大致內容相同，可否按順序合併一起，只按一鍵執行六個模組內容?

樓主熱帖

收藏

希望支持!

博士班 Rank: 6 Rank: 6

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

2^#

發表於 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: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

3^#

發表於 2016-9-12 08:31 | 只看該作者

各個模組間如其共通性高，是可以考量予以整合為一,可否舉列，
因我的例子有6個模組(先建1模組，再修改幾個儲存格的位置)合併後，仍無法順利執行，會有除錯出現，但個別執行是ok的。為何？

希望支持!

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2016-9-12 08:40 | 只看該作者

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

靜思自在 : 受人點水之恩，須當湧泉以報。

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