如何循环窗体界面中的单选框、复选框？

simic1989

请问如何用for循环单选框和复选框。
假设我只想循环单选框中的前3个（共4个），复选框中的前3个（共4个）。如何用循环。
单选框选中的结果赋值给A1，
复选框选中的结果赋值给A2，并用"、"链接。

huang1314wei

Private Sub CommandButton1_Click()
    Dim a As Control
    For Each a In Me.Frame1.Controls
        '循环单选框
        If a.Value = True Then
            Debug.Print a.Caption
        End If
    Next
End Sub

simic1989

huang1314wei 发表于 2018-8-29 09:15
Private Sub CommandButton1_Click()
    Dim a As Control
    For Each a In Me.Frame1.Controls

如果我的Frame1里面还有几个复选框，这样不是把复选框也选中了？而且我如果只想循环其中几个单选框

huang1314wei

simic1989 发表于 2018-8-29 09:27
如果我的Frame1里面还有几个复选框，这样不是把复选框也选中了？而且我如果只想循环其中几个单选框

你可以把你想要循环的单选框的caption或者name放在一个数组里面，然后再在这个数组里面循环判断一下就好了