如何在VBA中通过循环动态展示对应国家列表的复选框？

原有代码的核心问题 #

• 未定义namerange对象，VBA无法识别你引用的国家列表所在单元格区域
• 控件引用逻辑错误：默认用户表单不存在名为checkox的索引控件数组，不能直接用UserForm1.checkox(i)的方式调用控件
• 拼写错误：复选框名称拼写错误，正确应为checkbox
• 未声明变量，容易因为拼写问题引发运行错误

修复方案 #

方案1：动态生成复选框（无需提前手动绘制控件） #

Option Explicit
Private Sub UserForm_Initialize()
    Dim namerange As Range
    Dim total_countries As Long
    Dim i As Long
    Dim new_checkbox As MSForms.CheckBox
    Dim top_pos As Long
    
    ' 配置国家列表所在区域，根据实际工作表修改Sheet1为对应表名
    Set namerange = ThisWorkbook.Worksheets("Sheet1").Range("A:A")
    total_countries = namerange.Cells(namerange.Rows.Count, 1).End(xlUp).Row
    
    ' 初始复选框顶部位置，可根据表单布局调整数值
    top_pos = 20
    
    For i = 1 To total_countries
        ' 动态添加复选框控件
        Set new_checkbox = Me.Controls.Add("Forms.CheckBox.1", "checkbox_" & i, True)
        With new_checkbox
            .Caption = namerange.Cells(i, 1).Value
            .Left = 20 ' 左边距，按需调整
            .Top = top_pos
            .Width = 200 ' 宽度按需调整
            .Height = 18
        End With
        ' 下一个复选框位置下移
        top_pos = top_pos + 25
    Next i
End Sub

方案2：提前在设计器绘制复选框的适配写法 #

如果已经提前在表单设计器里添加了足够数量的复选框，命名规则为checkbox1、checkbox2…checkboxN，可以把循环内的代码改成如下写法：

For i = 1 To total_countries
    With Me.Controls("checkbox" & i)
        .Visible = True
        .Caption = namerange.Cells(i, 1).Value
    End With
Next i

提交按钮逻辑补充 #

要实现勾选国家后写入报告的需求，提交按钮的参考代码如下：

Private Sub submit_btn_Click()
    Dim ctrl As Control
    Dim selected_countries As String
    
    selected_countries = ""
    ' 遍历所有控件筛选选中的复选框
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "CheckBox" Then
            If ctrl.Value = True Then
                selected_countries = selected_countries & ctrl.Caption & "、"
            End If
        End If
    Next ctrl
    
    ' 去掉最后多余的顿号
    If selected_countries <> "" Then
        selected_countries = Left(selected_countries, Len(selected_countries) - 1)
    End If
    
    ' 将选中的国家写入报告，这里假设报告是Sheet2的A1单元格，按需修改
    ThisWorkbook.Worksheets("Sheet2").Range("A1").Value = "选中的国家：" & selected_countries
    ' 关闭表单
    Unload Me
End Sub

内容的提问来源于stack exchange，提问作者chiko42