返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
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

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 2012-7-24 18:51 | 只看該作者
本帖最後由 av8d 於 2012-7-24 19:35 編輯

回復 2# GBKEE


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-7-24 15:53 | 只看該作者
回復 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程序試試看

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題