窗体checkbox选中判断

supermouse24

我想达到的目的：知道自动生成后的复选框中，哪个被选中。

代码的过程：
根据一个数组生成复选框。然后勾选，最后按按钮判断哪个被选中。

Private Sub CommandButton1_Click()                         '这里就不懂了
    For i = 1 To 3
       If Me.Controls("CheckBox" & i).Value = True Then
            n = n + 1
       End If
    Next
End Sub

Private Sub UserForm_Activate()
    Dim myCtr As Control
    UserForm1.Height = 80 + 30 * UBound(arr_miss_c)
    For i = 1 To UBound(arr)
        Set myCtr = Me.Controls.Add("Forms.CheckBox.1", arr(i), True)
        myCtr.Left = 10
        myCtr.Top = 40 + 30 * (i - 1)
        myCtr.Width = 200
        myCtr.Height = 20
        myCtr.Caption = arr(i)
        Set myCtr = Nothing
    Next


请大神指教

phsu

Private Sub CommandButton1_Click()  
    For i = 1 To 3
       If Me.Controls("CheckBox" & i).Value = True Then
            Debug.Print i & "項被選取了！"
       End If
    Next
End Sub

supermouse24

谢谢上面的大侠。
之前我是不知道checkbox的名称，就自己起了个arr(i)的名称。这样在后面调用是否能选中语句时，就不知道怎么写。后面我想到了一个方法，把命名参数删掉。让checkbox变为默认名。然后在运行上面的代码就可以了。
Private Sub CommandButton1_Click()
    For i = 1 To UBound(arr)
       If Me.Controls("CheckBox" & i).Value = True Then
            MsgBox (i & "被选中了")
       End If
    Next
End Sub

Private Sub UserForm_Activate()
    Dim myCtr As Control
    UserForm1.Height = 80 + 30 * UBound(arr)
    For i = 1 To UBound(arr)
        Set myCtr = Me.Controls.Add("Forms.CheckBox.1", 删掉这里, True)
        myCtr.Left = 10
        myCtr.Top = 40 + 30 * (i - 1)
        myCtr.Width = 200
        myCtr.Height = 20
        myCtr.Caption = arr(i)
        Set myCtr = Nothing
    Next
End Sub