Question

excel 复选框 全选或全不选

用一个控件控制它全选或全不选。比如checkbox1到100.
Private Sub CommandButton2_Click()
……
……
End Sub

请给具体点，我是菜鸟。谢谢了！！

Answer 1

你可以遍历OLEObjects对象，再用typeof 方法判断是否为checkbox 如果是则将其value置为true
代码如下
Private Sub CommandButton2_Click()
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.CheckBox Then obj.Object.Value = True
Next
End Sub

上面的代码是当你的CommandButton2按下的时候所有复选框都选中；需要全不选中的话再建一个按扭代码也是上面的，只需改动If TypeOf obj.Object Is MSForms.CheckBox Then obj.Object.Value = false就行了

Answer 2

当点击该控件时就去掉所有复选框里的勾
命令的程序很简单