vba - Excel VBA - 对于每个标签/用户表单

Question

我有一个 Excel Userform ，上面有几个 Labels ，其中一些在 Frame 上。

以下可能吗？

For each label [that is on the frame]
    [code]
Next label

如果是，你是怎么做到的？
或者您可以将其中一些分组，然后将它们控制为该组的成员，例如

For each label in [groupname]
    [code]
Next label

?
如果是，你是怎么做到的？我试图将它们分组，但没有成功。

我希望该用户表单也可以用作 user input interface 并带有仪表板之类的东西...当然，在 worksheet 上这样做会容易得多，但是您不能真正使它看起来不错，而且 userform -喜欢，可以吗？ (即作为一个小窗口运行，没有菜单或“用户窗体”区域之外的任何其他内容。)

Answer 1

试试这个循环表单中的所有标签:

For Each ctrl In Me.Controls
    If TypeName(ctrl) = "Label" Then
        Debug.Print ctrl.Name
    End If
Next ctrl

这用于在框架内循环标签(名称 Frame1 在我的例子中)

For Each ctrl In Me.Frame1.Controls
    If TypeName(ctrl) = "Label" Then
        Debug.Print ctrl.Name
    End If
Next ctrl