Question

excel vba 编程教程如何实现取消多个复选框的勾选

Answer 1

以下代码循环当前窗体上的所有控件，如果存在复选框控件，则将控件状态取反。希望对你有帮助
Dim nControl as Control
For Each nControl In Me.Controls
If TypeName(nControl ) = "CheckBox" Then
nControl .Value = Not nControl .Value
End If
Next

再给你段代码，按控件名设置状态(将CheckBox1等换成你的控件名)：
Dim ctlArray as Variant
Dim i As Integer
ctlArray = Array("CheckBox1", "CheckBox2", "CheckBox3")
For i = 0 To Ubound(ctlArray)
Me.Controls(ctlArray(i)).Value = Not Me.Controls(ctlArray(i)).Value
Next i