vba checkbox全选

Question

请问，在vba中，如何实现：点击 全选按钮 后，所有的checkbox都被选中？ 

Answer 1

把checkbox對象放到一個集合或者數組裏面，以後就直接對集合或者數組裏的對象進行操作就行了，不知道這樣能不能達到你的要求。

Answer 2

Private Sub CommandButton1_Click()
  Dim A1 As Object
  For Each A1 In UserForm1.Controls
    If TypeName(A1) = "CheckBox" Then
        A1.Value = 1 '全部取消就 赋值 0
    End If
  Next
End Sub

Answer 3

如果能明确有几个CheckBox控件的话,直接用过语句把这些CheckBox控件的value属性设定为true就可以了.VBA里好想不能像Vb那样可以扫描全部控件.请楼主自己试试吧.