如何将多个复选框名称返回到 Excel 电子表格

【问题标题】：How to return multiple checkbox names to the excel spreadsheet如何将多个复选框名称返回到 Excel 电子表格
【发布时间】：2014-04-08 07:42:15
【问题描述】：

在表单框架中创建一堆复选框并创建“确定”命令按钮后，能够将复选框名称发送回电子表格的第 22 列 A 列然后继续向下使用每个复选框的代码是什么姓名。例如，如果我有复选框名称（绿色、蓝色、紫色、红色）并且用户选中蓝色和红色，然后单击“确定”。我希望电子表格在单元格 A22 上显示“蓝色”，然后在单元格 A23 上显示红色。

谢谢。

【问题讨论】：

标签： vba checkbox

【解决方案1】：

.Controls 集合上的简单循环/迭代。由于该集合可能包含其他类型的控件（列表框、选项按钮等），因此请在继续之前使用简单的If/Then 逻辑来检查控件的类型。

Sub Example()
Dim ctrl as control
Dim i as Integer

For each ctrl in Me.MyFrame.Controls
    If TypeName(ctrl) = "CheckBox" Then
        Range("A22").Offset(i).Value = ctrl.Name
        i = i + 1
    End If
Next

End Sub

【讨论】：