VBA复选框范围到表

Question

我有一个包含 13 个复选框的表单。我已经设置好了，如果它被选中，一个单元格被标记为 TRUE 或 FALSE。

我正在尝试将表单中的数据导出到表格中。我已经完成了所有其他工作，但是我对如何更好地输入复选框值感到困惑。

而不是为所有的复选框做这个 if 语句

If CHECKBOX = TRUE Then
    CHECKBOX_VAL = string
End If

If CHECKBOX2 = TRUE Then
    CHECKBOX_VAL2 = string2
End If

table_object_row.Range(x,x).Value = CHECKBOX_VAL
table_object_row.Range(x,x).Value = CHECKBOX_VAL2

我怎样才能简单地将复选框的 TRUE 值导出到表中。我应该使用数组只存储 True 值吗？

Answer 1

您可以遍历用户窗体上的控件，如果元素的类型为 CheckBox，则将其放入数组、表格或其他任何内容中。

Dim ctl
For Each ctl In UserForm1.Controls  'the controls collection of your userform
    If TypeName(ctl) = "CheckBox" Then

        Debug.Print "The value of " & ctl.Name & " is " & ctl.Value
        '(do something with your values here)

    End If
Next ctl

---

更多信息：

• 堆栈溢出：Overview of differences between Form Controls & ActiveX Controls
• MSDN：Controls Collection (Microsoft Forms)
• ExcelEasy : Controls Collection
• ozgrid : Loop Through Controls on a UserForm