动态复选框互斥
动态复选框互斥
提问于 2018-05-29 08:18:36
我正在尝试在我的Userform初始化过程中添加复选框。它们必须是相互排斥的。我知道选项按钮，但我不能用它们作为我的表格。
现在，我不能把它们设置为相互排斥的。它们在一个框架中，我已经将它们的.GroupName属性设置为相同。这就是我不明白它为什么行不通的地方。我阅读了这个MSDN文章，它告诉我们“单个容器中具有相同GroupName的所有复选框都是相互排斥的”。
我也在带框架和不带框架的空白Userform上尝试过这一点，但是我总是可以选择多个复选框。
知道我错过了什么吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-05-29 08:44:27
您可以使用代码来实现相同的功能：
Private Sub CheckBox1_Click(): Check_Just CheckBox1: End Sub
Private Sub CheckBox2_Click(): Check_Just CheckBox2: End Sub
Private Sub CheckBox3_Click(): Check_Just CheckBox3: End Sub
Sub Check_Just(CheckBox)
'Disable false triggers when unchecking boxes
If CheckBox.Value = False Or CheckBox.GroupName = "" Then Exit Sub
'Uncheck all other control with same groupname
Dim ctl As control
For Each ctl In CheckBox.Parent.Controls
If TypeName(ctl) = "CheckBox" Then If ctl.GroupName = CheckBox.GroupName And Not ctl Is CheckBox Then ctl.Value = Unchecked
Next
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50579525
复制相关文章
相似问题
腾讯云开发者
