vba - 将变量放在用户窗体名称中

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 个用户窗体，所以我需要为用户窗体名称使用一个变量。

"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