Excel VBA如何传递用户窗体名称给其他Sub并修改控件属性

你代码中调用的UserForms.Add(frm)会创建一个对应窗体类的全新实例，而非引用你主Sub中已经通过myForm.Show加载显示的已有窗体实例。此时内存中同时存在两个同窗体类的实例：一个是你可见的、已修改过label1内容的旧实例，另一个是后台静默创建、未显示的新实例，你修改新实例的控件属性自然不会反映到可见窗体上，因此不会报错但看不到效果。

推荐两种可行方案，优先选第一种：

方案1：直接传递窗体对象（推荐） #

不要传递窗体名称字符串，直接将已加载的窗体实例作为参数传入子过程，无需额外查找逻辑，性能更高且不会出错。
修改后代码如下：

Private Sub Mainsub()
   myForm.Show
   myForm.label1 = "Hello"
   ' 直接传递窗体对象
   Call otherSub(myForm)
End Sub

' 参数改为接收对象类型
Private Sub otherSub(frm As Object)
   frm.label1 = "Byebye"
   ' 如果是非模态显示窗体未即时刷新，可加下方代码强制刷新
   ' frm.Repaint
End Sub

方案2：通过名称遍历查找已加载窗体 #

如果业务逻辑要求必须传递字符串形式的窗体名称，可以遍历VBA内置的UserForms集合匹配已加载的实例，不要用Add方法创建新实例。
修改后代码如下：

Private Sub Mainsub()
   myForm.Show
   myForm.label1 = "Hello"
   Call otherSub("myForm")
End Sub

Private Sub otherSub(frmName As String)
   Dim objForm As Object
   ' 遍历所有已加载的窗体匹配名称
   For Each objForm In UserForms
       If objForm.Name = frmName Then
           objForm.label1 = "Byebye"
           Exit For
       End If
   Next
End Sub

内容的提问来源于stack exchange，提问作者Stivie886