读取动态UserForm复选框并填充数组

的步骤如下：

首先，需要在UserForm中创建一个或多个复选框控件，用于用户选择。
在VBA代码中，使用以下代码来读取选中的复选框并填充数组：

Dim checkbox As MSForms.CheckBox
Dim selectedItems() As String
Dim i As Integer

i = 0
For Each checkbox In UserForm1.Controls
    If TypeOf checkbox Is MSForms.CheckBox Then
        If checkbox.Value = True Then
            ReDim Preserve selectedItems(i)
            selectedItems(i) = checkbox.Caption
            i = i + 1
        End If
    End If
Next checkbox

上述代码中，UserForm1是你创建的UserForm的名称，selectedItems是用于存储选中项的数组。

在上述代码中，我们使用了一个循环来遍历UserForm中的所有控件。对于每个复选框控件，我们检查其Value属性是否为True，即是否被选中。如果是，则将其Caption属性（即复选框的文本）添加到selectedItems数组中。
最后，你可以根据需要使用selectedItems数组中的数据进行后续处理，比如输出到工作表或进行其他操作。

这种方法可以灵活地处理动态UserForm中的复选框，并将选中的项填充到数组中。根据具体的需求，你可以进一步扩展代码来处理更多的复选框或进行其他操作。

腾讯云相关产品和产品介绍链接地址：