在 Word VBA 中,如果要讀取模組中窗體 (UserForm) 中核取方塊的值,可以按照以下步驟執行。 首先,確保使用者窗體中的核取方塊具有明確的名稱,例如"checkbox1"自"checkbox5"。然後,可以使用模組中的 UserForm 物件引用,通過訪問每個核取方塊的 value 屬性來獲取其狀態。 另一種簡化的方法是向 UserForm 模組新增乙個公共函式,該函式可以直接通過函式獲取核取方塊的值,而無需每次都例項化 UserForm 物件。 這使您可以更輕鬆地讀取模組表單中各個核取方塊的值。
您還可以在Word VBA的模組區域中讀取表單中核取方塊的值,您需要使用UserForm物件以及核取方塊的名稱。 下面是乙個簡單的示例:
假設您的使用者窗體名稱是"userform1"並且有五個單獨命名的核取方塊"checkbox1"自"checkbox5"。在模組中,您可以使用以下命令讀取這些核取方塊的值:
sub 讀取核取方塊 () 的值。
'宣告使用者窗體物件
dim myform as userform1
'例項化使用者表單物件
set myform = new userform1
'通過使用者窗體物件的控制項名稱訪問核取方塊的值
dim valuecheckbox1 as boolean
dim valuecheckbox2 as boolean
dim valuecheckbox3 as boolean
dim valuecheckbox4 as boolean
dim valuecheckbox5 as boolean
'讀取每個核取方塊的值
valuecheckbox1 = myform.checkbox1.value
valuecheckbox2 = myform.checkbox2.value
valuecheckbox3 = myform.checkbox3.value
valuecheckbox4 = myform.checkbox4.value
valuecheckbox5 = myform.checkbox5.value
'(可選)在即時視窗中顯示核取方塊的值
debug.print "checkbox1 的值:" & valuecheckbox1
debug.print "checkbox2 的值:" & valuecheckbox2
debug.print "核取方塊 3:" & valuecheckbox3
debug.print "checkbox4 的值:" & valuecheckbox4
debug.print "checkbox5 的值:" & valuecheckbox5
'釋放使用者窗體物件
unload myform
end sub
確保在模組中正確宣告了使用者表單物件,並替換了 ** 中的物件"userform1"以及核取方塊的名稱,以匹配您的實際設定。 這將例項化 UserForm 物件,然後使用物件引用來訪問每個核取方塊的值。 最後,通過了debug.print
該語句在即時視窗中顯示這些值(可選)。
還可以通過直接引用 UserForm 的例項來獲取核取方塊的值,而不必每次都例項化 UserForm 物件。 這可以通過向使用者表單模組新增公共函式來完成。
向 UserForm1 模組新增乙個公共函式,該模組返回核取方塊的值:
'將以下公共函式新增到 UserForm1 模組中
public function getcheckboxvalue(checkboxname as string) as boolean
getcheckboxvalue = me.controls(checkboxname).value
end function
在模組中,您可以直接呼叫此公共函式,而無需例項化 userform 物件:
'通過 userform1 的公共函式讀取核取方塊的值
valuecheckbox1 = userform1.getcheckboxvalue("checkbox1")
valuecheckbox2 = userform1.getcheckboxvalue("checkbox2")
valuecheckbox3 = userform1.getcheckboxvalue("checkbox3")
valuecheckbox4 = userform1.getcheckboxvalue("checkbox4")
valuecheckbox5 = userform1.getcheckboxvalue("checkbox5")
通過呼叫公共函式getcheckboxvalue
,您可以更輕鬆地獲取核取方塊的值,而無需在模組中例項化 UserForm 物件。