窗体（frmName）不工作

Question

我想使用字符串变量而不是硬编码窗体名称，如下所示。

FrmMainControl.Controls 

但想使用它。

Forms("FrmMainControl").Controls 

但是，我得到了未定义的错误Sub或Function。请帮忙。这是VBA btw。

Answer 1

假设表格为load ed，您可以搜索UserForms集合;

Dim form As UserForm: Set form = getInstanceOfLoadedUfrm("frmMainControl") 
If Not form Is Nothing Then 
    MsgBox form.Controls.Count 
Else 
    '//load 
    Set form = UserForms.Add("frmMainControl") 
    MsgBox form.Controls.Count 
End If 

Function getInstanceOfLoadedUfrm(name As String) As UserForm 
name = UCase$(name) 
For Each form In UserForms 
    If (Ucase$(form.name) = name) Then 
     Set getInstanceOfLoadedUfrm = form 
    End If 
Next 
End Function