Excel VBA: 如何根据名称循环检查复选框

Question

我想使用 excel 和 vba 建立一个调查。我有一个包含问题和答案的 table。当调查开始时，我的代码将通过覆盖表单上复选框的标签来列出答案。我将获取他们的答案并使用复选框的 True 或 False 值将它们写在一列中。

变量"aRow"是每个问题的答案数。 "lastAns" 是最后一个答案的行号。根据答案的数量，一些复选框将被隐藏、显示。 "CheckBox1" 到 "CheckBox4" 是复选框的名称。

下面的代码有效，但它太长了，我想有一个更好的方法来遍历复选框并每次更改它们的标签。请告诉我怎么做！非常感谢！

     `lastAns = Cells(qRow, 5).End(xlDown).Row + 1
       aRow = lastAns - qRow
        If aRow >= 1 Then
            Me.CheckBox1.Visible = True
            Me.CheckBox1.Caption = Cells(qRow, 5)
            Else: Me.CheckBox1.Visible = False
        End If
        If aRow >= 2 Then
            Me.CheckBox2.Visible = True
            Me.CheckBox2.Caption = Cells(qRow + 1, 5)
            Else: Me.CheckBox2.Visible = False
            End If
        If aRow >= 3 Then
            Me.CheckBox3.Visible = True
            Me.CheckBox3.Caption = Cells(qRow + 2, 5)
            Else: Me.CheckBox3.Visible = False
            End If
        If aRow >= 4 Then
            Me.CheckBox4.Visible = True
            Me.CheckBox4.Caption = Cells(qRow + 3, 5)
            Else: Me.CheckBox4.Visible = False
            End If
               .....SAME CODE CONTINUES TILL 7...`

Answer 1

作为对我的评论的后续答复，我认为您正在寻找以下内容：

    arow = lastAns - qRow
    Dim i As Long, ctl As Control
    For i = 1 To 4
        Set ctl = Me.Controls("CheckBox" & i)
        If i <= arow Then
            ctl.Visible = True
            ctl.Caption = Cells(qRow + i - 1, 5)
        Else
            ctl.Visible = False
        End If
    Next i

Excel VBA: 如何根据名称循环检查复选框

Excel VBA: How to loop through checkboxes based on name

checkbox

excel

vba

loops

userform