Question

我在子功能中有以下代码：

If Auswertung.Controls("T" & Te & "F" & Fr & "Option1").Value = False Then
    falseSelection = falseSelection + 1
end If

If Auswertung2.Controls("T" & Te & "F" & Fr & "Option1").Value = False Then
    falseSelection = falseSelection + 1
end If

有15个UserForms，因此我需要为UserForm名称使用变量。

"Auswertung" & X & .Controls("T" & Te & "F" & Fr & "Option1").Value
(This is wrong, but I do not know which capabilites VBA has)

有没有办法实现这个目标？

Answer 1

访问VBA

这就是你遍历项目所有形式的方式。在您的情况下，您可以修改它以存储在变量中，然后对.Name运行检查以查看它是否与您需要的表单匹配

Dim f
For Each f In CurrentProject.AllForms
    Debug.Print f.Name
Next

或者您只需按以下方式通过名称引用表单

Forms.Item("Auswertung" & X).Controls

Excel VBA

Dim f As Object
For Each f In VBA.UserForms
    Debug.Print f.Name
Next

将变量放在UserForm名称中

1 个答案: