用vb脚本编写 用复选框全选的代码

Question

如何才能用vb脚本来编写复选框全选的代码？求高手帮忙

Answer 1

假设Check1为全选按钮，在它的click事件中写入Private Sub Check1_Click() Dim a As Variant For Each a In Form1.Controls If TypeName(a) = "CheckBox" Then a.Value = Check1.Value End If NextEnd Sub这样就可以把整个Form1中的全部复选框选中，如果想要分组选的话，建议用控件数组

Answer 2

用控件数组实现