Question

我在工作表上有大约100个表单控件复选框，并且没有问题到达并保存它们的值。这些不包含在任何组框中。但是，我想访问位于组框内的特定复选框，并且该复选框没有有意义的名称。我希望我可以先找到该组，然后隔离该复选框。

如果不在用户表单上，我如何在组框内循环？

我想我必须使用.Range(array())或.Groupitems()，但我似乎无法使其发挥作用。

捕获该复选框（位于组内）的方法，同时循环遍历mysheet上的所有复选框也可以，因为我已经这样做以保存它们的值。

For Each sh In ws.Shapes
    If sh.Type = msoFormControl Then
        If sh.FormControlType = xlGroupBox Then
            mygroup = sh.name
            'need to loop within "mygroup" and find the checkbox

提前致谢。

Answer 1

FYI groupbox在VBA中也称为框架。假设您将所有复选框放在名为myGB的组框中。

For each cb in UserForm1.myGB.controls
   cb.Value = True
   ....
Next cb

访问工作表上组框内的表单控件

1 个答案: