返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-24 15:05 | 顯示全部帖子

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

  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") = "小華"

  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") = "小華"

  10. L1C = Label1.Caption
  11. L2C = Label2.Caption
  12. L3C = Label3.Caption
  13. L4C = Label4.Caption
  14. TB1 = TextBox1.Value
  15. End Sub
複製代碼
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2012-7-24 18:51 | 顯示全部帖子
本帖最後由 av8d 於 2012-7-24 19:35 編輯

回復 2# GBKEE


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

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題