Word 用户窗体中的复选框控件

Question

我有一个带有复选框和两个命令控件的 Word 用户窗体 (Word 2007) - 确定和取消。

当从宏菜单或指定的图标激活表单时，我单击复选框，但没有任何反应。当我单击“确定”按钮时，会出现一条消息，告诉我我还没有选择任何内容！当我单击“取消”按钮时，表单将卸载。

复选框由 Click 事件组成，该事件从选中状态切换到取消选中状态。还有一个全选复选框。单击时，所有其他复选框都会被选中或取消选中。当取消选中其他复选框之一时，SelectAll 复选框也将取消选中。

当我从 VBE 激活表单时，一切正常。

这是我正在谈论的内容的示例：

Sub Loadform()
Load UserForm1
UserForm1.Show
End Sub

Private Sub btnCancel_Click()
Unload Me
End Sub

Private Sub btnOK_Click()
If Me.CheckBox2.Value = True And Me.CheckBox3.Value = True Then
    MsgBox "All checkboxes are checked"
ElseIf Me.CheckBox2.Value = True Then
    MsgBox Me.CheckBox2.Name & " is checked"
ElseIf Me.CheckBox3.Value = True Then
    MsgBox Me.CheckBox3.Name & " is checked"
ElseIf Me.CheckBox2.Value = False And Me.CheckBox3.Value = False Then
    MsgBox "You haven't selected any checkboxes."
End If

End Sub

Private Sub CheckBox2_Click()
If Me.CheckBox2.Value = True Then
    Me.CheckBox2.Value = False
    Me.ckbSelectAll.Value = False
Else
    Me.CheckBox2.Value = True
End If
End Sub

Private Sub CheckBox3_Click()
If Me.CheckBox3.Value = True Then
    Me.CheckBox3.Value = False
    Me.ckbSelectAll.Value = False
Else
    Me.CheckBox3.Value = True
End If
End Sub

Private Sub ckbSelectAll_Click()
If Me.ckbSelectAll.Value = True Then
    Me.ckbSelectAll.Value = False
Else
    Me.ckbSelectAll.Value = True
End If
If ckbSelectAll.Value = False Then
    Me.CheckBox2.Value = False
    Me.CheckBox3.Value = False
Else
    Me.CheckBox2.Value = True
    Me.CheckBox3.Value = True
End If
End Sub

Answer 1

在您的点击事件处理程序中，例如

Private Sub CheckBox3_Click()

...

End Sub

您检查复选框是否已选中（即值为 true），如果是，则将值设置为 false。这意味着复选框一旦被选中就总是被取消选中（或者总是在取消选中时被选中），从而使复选框看起来无法正常工作。

这是一个启动单击事件处理程序的示例（我已经很长时间没有编写VBA了，但我认为以下内容很好。现在将测试...）

Private Sub CheckBox2_Click()
    ' If checkbox2 is checked but checkbox3 is not, ' 
    ' uncheck the select all checkbox '
    If CheckBox2 And Not CheckBox3Then
        ckbSelectAll = False
    End If
End Sub

如果您需要任何进一步的帮助或提示，请发表评论