VBA UserForm多选值合并写入单个单元格问题求助

• 问题根源：原代码每次赋值都会覆盖单元格已有内容，导致仅显示最后一个选中的选项。
• 核心思路：用字符串变量先收集所有选中的复选框文本，再统一写入单元格。

方式1：遍历所有复选框控件（适合复选框数量多的场景） #

Private Sub CommandButton1_Click()
    Dim selectedOptions As String
    Dim ctrl As Control
    
    '遍历窗体上的所有控件
    For Each ctrl In Me.Controls
        '筛选出被选中的复选框
        If TypeName(ctrl) = "CheckBox" And ctrl.Value = True Then
            '追加选项文本，用逗号分隔
            selectedOptions = IIf(selectedOptions <> "", selectedOptions & ", ", "") & ctrl.Caption
        End If
    Next ctrl
    
    '写入目标单元格
    Range("A1").Value = selectedOptions
    Unload Me
End Sub

方式2：逐个判断指定复选框（适合复选框数量少的场景） #

Private Sub CommandButton1_Click()
    Dim selectedOptions As String
    
    '逐个判断复选框状态，收集选中的文本
    If CheckBox1.Value Then selectedOptions = selectedOptions & CheckBox1.Caption & ", "
    If CheckBox2.Value Then selectedOptions = selectedOptions & CheckBox2.Caption & ", "
    If CheckBox3.Value Then selectedOptions = selectedOptions & CheckBox3.Caption & ", "
    
    '移除最后多余的逗号和空格
    If Len(selectedOptions) > 0 Then
        selectedOptions = Left(selectedOptions, Len(selectedOptions) - 2)
    End If
    
    '写入单元格
    Range("A1").Value = selectedOptions
    Unload Me
End Sub

• 自定义调整：
  • 可根据需求替换分隔符（比如把, 改成、）
  • 若需要无选中时显示默认文本，可在最后添加If selectedOptions = "" Then selectedOptions = "未选中任何选项"

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