Excel VBA将多个复选框的结果合并到单个工作表单元格中

Question

我有一个包含20个复选框的Userform框架，每个复选框代表一个不同颜色的衬衫。

当用户进行复选框选择时，我希望结果（标题，而不是真/假）最终在活动行的单个单元格（第8列）中，以逗号分隔。

我是VBA编码和动态学习的新手 - 有人可以帮忙吗？

Answer 1

Edit1：在If statement删除了行继续_ 。

创建子例程以检查所有Checkboxes并将数据传递到所选单元格。
尝试这样的事情：

Private Sub GetSelection()

    Dim c As MSForms.Control
    Dim cbk As MSForms.CheckBox
    Dim sel As String


    For Each c In Me.Controls '/* Iterate all controls */
        If TypeOf c Is MSForms.CheckBox Then '/* check if it is a checkbox */
            Set cbk = c '/* Set as Checkbox to get the caption property */
            If cbk Then '/* Check value, get caption if true */
                If sel = "" Then 
                    sel = cbk.Caption 
                Else 
                    sel = sel & "," & cbk.Caption
                End If
            End If
        End If
    Next

    '/* Transfer currently selected values in desired cell */
    Sheet1.Range("H" & ActiveCell.Row).Value2 = sel '/* Used H for column 8 */

End Sub

然后，您需要做的就是在所有CheckBox_Click事件中调用此子例程。

Private Sub CheckBox1_Click()

    GetSelection

End Sub