使用带有复选框的userform在单个单元VBA中创建阵列

Dim checkboxes() As Variant ' 声明一个变量用于存储复选框的值

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim cb As MSForms.CheckBox
    
    ' 初始化复选框数组
    ReDim checkboxes(1 To Me.Controls.Count)
    
    ' 遍历UserForm上的所有控件
    For i = 1 To Me.Controls.Count
        If TypeName(Me.Controls(i)) = "CheckBox" Then
            Set cb = Me.Controls(i)
            checkboxes(i) = cb.Value ' 将复选框的值存储到数组中
        End If
    Next i
End Sub

Private Sub CheckBox_Click()
    Dim i As Integer
    Dim cb As MSForms.CheckBox
    
    ' 更新复选框数组
    For i = 1 To Me.Controls.Count
        If TypeName(Me.Controls(i)) = "CheckBox" Then
            Set cb = Me.Controls(i)
            checkboxes(i) = cb.Value ' 将复选框的值存储到数组中
        End If
    Next i
End Sub