[發問] 關於公用變數是否可以使用在自訂表單上?

av8d

1. Private Sub CommandButton3_Click()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. d("GAS1") = "小明"
   
4. d("GAS2") = "小華"
   
5. d("IAS1") = "小華"
   
6. d("IAS2") = "小華"
   
7. d("CHAS1") = "小華"
   
8. d("CHAS2") = "小華"
   
9. 
   
10. L1C = Label1.Caption
    
11. L2C = Label2.Caption
    
12. L3C = Label3.Caption
    
13. L4C = Label4.Caption
    
14. TB1 = TextBox1.Value

複製代碼

以上是希望可以使用在UserForm1~100上的
希望只要宣告一次~所以我該如何寫?
是寫在模組內寫入?如下

1. Public Sub NName()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. d("GAS1") = "小明"
   
4. d("GAS2") = "小華"
   
5. d("IAS1") = "小華"
   
6. d("IAS2") = "小華"
   
7. d("CHAS1") = "小華"
   
8. d("CHAS2") = "小華"
   
9. 
   
10. L1C = Label1.Caption
    
11. L2C = Label2.Caption
    
12. L3C = Label3.Caption
    
13. L4C = Label4.Caption
    
14. TB1 = TextBox1.Value
    
15. End Sub

複製代碼

GBKEE

回復 1# av8d
寫在任模組內寫入? 如是在Sheet1工作表物件模組

1. Option Explicit
   
2. Public D As Object  'Public 公用 : Private 私用
   
3. Public Sub NName()
   
4. Set D = CreateObject("Scripting.Dictionary")
   
5. D("GAS1") = "小明"
   
6. D("GAS2") = "小華"
   
7. D("IAS1") = "小華"
   
8. D("IAS2") = "小華"
   
9. D("CHAS1") = "小華"
   
10. D("CHAS2") = "小華"
    
11. MsgBox UserForm1.a
    
12. End Sub

複製代碼

另在UserForm1內寫入

1. Option Explicit
   
2. Public a As String
   
3. Private Sub UserForm_Initialize()
   
4.     a = "UserForm1 Public 公用變數"
   
5.     MsgBox Sheet1.D("GAS1")   'Sheet1 是物件模組
   
6. '如是一般模組的公用變數 不需指明一般模組名稱
   
7. '除非在2個一般模組有相同的變數名稱 則需指明模組名稱
   
8. End Sub

複製代碼

請執行 NName程序試試看

av8d

回復 2# GBKEE


    測試後~出現~UserForm1.Show    此需要物件~我再研究一下@@