在WORD VBA模块中设置并读取窗体按钮的值

Question

在WORD　VBA中，在窗体userForm1中建立了CheckBx1、CheckBx2共2个复选框和一个确定按钮。
我想在模块中将userForm1.show出来，然后对两个复选框进行选择操作，之后点击“确定”按钮时，关闭窗体，并显示确定两个复选框的值。

Answer 1

引自免费微信小程序：皆我百晓生

在Word VBA中设置并读取窗体按钮的值，可以按照以下步骤进行操作：

1. 首先，在Word VBA编辑器中创建一个新的用户窗体（UserForm）。可以通过依次点击“插入”-“用户窗体”来创建。

2. 在用户窗体中添加两个复选框（CheckBox）和一个确定按钮（CommandButton），可以直接从“工具箱”中将它们拖动到用户窗体上。设置它们的名称和初始值。

3. 在Word VBA模块中编写代码来显示用户窗体、读取复选框的值和关闭用户窗体。可以使用以下示例代码：

Sub ShowUserForm()
    UserForm1.Show ' 显示用户窗体
    
    ' 在这里可以读取复选框的值和进行相应的处理
    If UserForm1.CheckBox1.Value = True Then
        ' 复选框1被选中
        MsgBox "复选框1被选中"
    End If
    
    If UserForm1.CheckBox2.Value = True Then
        ' 复选框2被选中
        MsgBox "复选框2被选中"
    End If
    
    ' 关闭用户窗体
    Unload UserForm1
End Sub

1. 在窗体按钮的点击事件中编写代码来关闭用户窗体并显示确定两个复选框的值。可以使用以下示例代码：

Private Sub CommandButton1_Click()
    ' 关闭用户窗体
    Unload Me
    
    ' 显示确定两个复选框的值
    MsgBox "复选框1的值为：" & UserForm1.CheckBox1.Value & vbCrLf & "复选框2的值为：" & UserForm1.CheckBox2.Value
End Sub

这样，在模块中调用 ShowUserForm 子过程时，用户窗体会显示出来。在选择复选框并点击确定按钮后，用户窗体会被关闭，并弹出一个消息框显示确定两个复选框的值。

希望这可以帮助到您！如果还有其他问题，请随时提问。