返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題