VBA复选框到表格的范围

我有一张有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

---

如何简单地将复选框的真实值导出到表中。我应该使用数组只存储真值吗

您可以在userform上的控件之间循环，如果元素的类型为

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

---

更多信息：

• 堆栈溢出：
• MSDN：
• 易学：
• 分区计划大纲图：