Excel:取消选择组中的所有单选按钮

时间:2017-01-17 01:26:00

标签: excel vba excel-vba radio-button

我有一个调查电子表格有一组选项按钮。如果用户没有选择一个,我希望取消选择所有这些(或设置为" TripleState"中的灰色设置)。如果用户已经选择了一个,我仍然希望能够全部清除它们(例如,如果他错误地点击了一个并且还没有准备好回答它。)

我知道我可以添加另一个按钮作为" No Answer"选择,但在这张表上它会有点不雅。

使用复选框会更简单吗,并选中每个框取消选择其他复选框(如单选按钮)?取消选择将是微不足道的部分。

编辑:请注意,按钮位于工作表上,而不是用户表单。

1 个答案:

答案 0 :(得分:0)

我无法找到有关选项框的解决方案,但以下内容适用于复选框:

Private Sub CheckBox1_Click()
    CheckBox2.Value = False
    CheckBox3.Value = False
End Sub

Private Sub CheckBox2_Click()
    CheckBox1.Value = False
    CheckBox3.Value = False
End Sub

Private Sub CheckBox3_Click()
    CheckBox1.Value = False
    CheckBox2.Value = False
End Sub

以上假设每个调查选择有3个复选框。只需将CheckBox1 CheckBox2 CheckBox3重命名为您喜欢的任何内容,但保持一致。用户必须取消选择他们想要更改的每个选项,但是会允许他们取消选择所有选项,并且还会嵌入只允许一次选择的选项框行为。