如何通过名称打开VBA Userform？无需硬编码Select Case语句

问题根源 #

你之前尝试的方法失败的原因：

• VBA.UserForms集合仅包含已加载到内存的窗体实例，未加载的窗体不在集合内，所以直接用索引/名称访问会报错，遍历也会因为集合为空而跳过。
• VBComponents(UserFormName).Show错误是因为VBComponent是窗体的代码模块对象，不是实例化的窗体对象，无法直接调用Show方法。

可行解决方案 #

方案1：调用UserForms.Add方法（无需开启VBA项目信任）

这是最可靠的方法，直接通过窗体名称创建实例并添加到UserForms集合：

Sub ShowUserFormByName(formName As String)
    Dim ufInstance As Object
    ' 创建窗体实例并添加到UserForms集合
    Set ufInstance = UserForms.Add(formName)
    ' 显示窗体，按需选择vbModal或vbModeless
    ufInstance.Show vbModeless
End Sub

使用示例：ShowUserFormByName("UserForm1")

方案2：通过VBProject实例化（需开启VBA项目信任）

如果需要更灵活的控制，可通过VBA项目组件创建实例：

Sub ShowUserFormByName_VBProject(formName As String)
    Dim vbComp As Object
    Dim ufInstance As UserForm
    
    Set vbComp = ThisWorkbook.VBProject.VBComponents(formName)
    ' 创建窗体实例
    Set ufInstance = CreateObject(ThisWorkbook.VBProject.Name & "." & formName)
    ufInstance.Show vbModeless
End Sub

注意：使用此方法需先开启信任：

1. 打开Excel选项 → 信任中心 → 信任中心设置
2. 选择宏设置 → 勾选「信任对VBA项目对象模型的访问」

额外注意事项 #

• 确保传入的formName与VBA编辑器中窗体的**(Name)属性**完全一致（区分大小写）。
• 若窗体设置为Show vbModeless，需注意窗体实例的生命周期，避免内存泄漏（可在关闭时调用Unload Me）。

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