Question

excel，vba，checkbox控件，sheet中一个命令按钮，若干复选框

Private Sub CommandButton4_Click()‘清空选择

CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
。。。。。。
checkBox50.Value = False

写起来太复杂，能否简写，比如用个什么for循环之类的

Answer 1

Private Sub CommandButton1_Click()

Dim a

For a = 1 To 2

OLEObjects("CheckBox" & a).Object.Value = True

Next

End Sub

前提是你的控件都在sheet里~

追问

非常感谢，之前的问题很解渴，谢谢！追问一下。
如果想点击命令按钮让checkbox1~checkbox50的caption依次对应为shett2的A1~A50文本内容如何写？
Private Sub CommandButton2_Click()
Dim b
For b = 1 To 50
OLEObjects("CheckBox" & b).Object.caption=??????
Next
End Sub

追答

sheet2.cells(a,1)就是序号为sheet2表的a行1列。sheets(“sheet2”).cells(a,1)，是说名字为sheet2的表的a行1列～

Answer 2

VBA中没有如用个什么for循环之类的方法。我一般是在EXCEL表格看输入CheckBox1，下拉，再& ".Value = False"再复制到代码编辑器中。

Answer 3

如果你说的是窗体控件，将这50个控件放在一个框架Frame1中，然后循环对框架中的控件（按序号）进行处理。代码修改后：（注意编号是从0开始的）
Private Sub CommandButton4_Click()
For i = 0 To 49
Me.Frame1(i).Value = False
Next
End Sub