標題: [發問] 請問多個模組可以合併嗎? [打印本頁]

---

作者: s7659109    時間: 2016-9-11 14:11     標題: 請問多個模組可以合併嗎?

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

---

作者: c_c_lai    時間: 2016-9-12 05:25

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

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

1. Sub ExA()
   
2.     T1
   
3.     T2
   
4.     T3
   
5. End Sub
   
6. 
   
7. Sub T1()
   
8.     MsgBox "Hi, Good Morning!"   
   
9. End Sub
   
10. 
    
11. Sub T2()
    
12.     MsgBox "Hi, Good Afternoon!"   
    
13. End Sub
    
14. 
    
15. Sub T3()
    
16.     MsgBox "Hi, Good Evening!"   
    
17. End Sub

複製代碼

整合成：

1. Sub ExB()
   
2.     T 1
   
3.     T 2
   
4.     T 3
   
5. End Sub
   
6. 
   
7. Sub T(hi As Integer)
   
8.     Select Case hi
   
9.         Case 1
   
10.             MsgBox "Hi, Good Morning!"
    
11.         Case 2
    
12.             MsgBox "Hi, Good Afternoon!"
    
13.         Case 3
    
14.             MsgBox "Hi, Good Evening!"
    
15.     End Select
    
16. End Sub

複製代碼

---

作者: s7659109    時間: 2016-9-12 08:31

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

---

作者: c_c_lai    時間: 2016-9-12 08:40

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)