在用户窗体名称中显示带有变量的VBA用户窗体

Question

我正在做一个PPT，需要单击按钮以显示各种表格。

我已经在主模块中创建了一个公共函数。

Public Function ShowForm(FormName As String)
    Dim oneForm As Object
    For Each oneForm In UserForms
        If oneForm.Name = FormName Then
            oneForm.Show
            End
        End If
    Next oneForm
End Function

并在下面的按钮中使用它：

Private Sub NextPage_Click()

ShowForm ("SU0" & qlist(cntr))
cntr = cntr + 1

End Sub

但是该功能不起作用。我错过了什么吗，还是有更好的方法呢？

---

已解决

Google是关键...

我已经更改了模块中的功能，现在一切正常。

Public Function ShowForm(FormName As String)
    Dim oneForm As Object
    Set oneForm = CallByName(UserForms, "Add", VbMethod, FormName)
    oneForm.Show
End Function

请注意，为了处理多个用户表单，需要将这些表单的“ ShowModal”属性设置为FALSE。