[發問] 不能CALL出來 請問有大大能幫忙解答嗎

jason77456

麻煩各位大大了

GBKEE

回復 1# jason77456
程式區有很多相同的提問,(新會員請多搜索,了解.)
CALL執行 工作表物件模組中的程式.必須指明所執行程式的工作表物件模組名稱.
CALL執行 一般模組中的程式,如為公用程式則不需指明模組名稱
Sheet1的程式

1. Option Explicit
   
2. Sub Ex()
   
3.     Module1_A
   
4.     Sheet2.EX_A
   
5.     Call Sheet2.EX_A
   
6.     Run "Sheet2.EX"             'Run 可呼叫私用程式
   
7.     Run "Module1.Module1_B"     'Run 可呼叫私用程式
   
8. End Sub

複製代碼

Sheet2的程式

1. Option Explicit
   
2. Private Sub Test()
   
3.     Ex             '執行這模組內的 私用程式
   
4. End Sub
   
5. Private Sub Ex()  'Private  '模組私用程式僅這模組的程式可 CALL
   
6.     MsgBox "Sheet2   Private 私用程式"
   
7. End Sub
   
8. Sub EX_A()         'Public 可省略   公用的 '所有程式都可 CALL
   
9.     MsgBox "Public 公用程式"
   
10. End Sub

複製代碼

一般模阻 Module1的程式

1. Option Explicit
   
2. Sub Module1_A()
   
3.     MsgBox "Module1_A "
   
4. End Sub
   
5. Private Sub Module1_B()
   
6.     MsgBox "Private  Module1_B"
   
7. End Sub

複製代碼