的步骤如下:
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
是用于存储选中项的数组。
Value
属性是否为True
,即是否被选中。如果是,则将其Caption
属性(即复选框的文本)添加到selectedItems
数组中。selectedItems
数组中的数据进行后续处理,比如输出到工作表或进行其他操作。这种方法可以灵活地处理动态UserForm中的复选框,并将选中的项填充到数组中。根据具体的需求,你可以进一步扩展代码来处理更多的复选框或进行其他操作。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云