我正在做一个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
但该功能不起作用。我错过了什么或者有更好的方法吗?
Solved
谷歌是关键...
我已经更改了模块中的功能,现在一切正常。
Public Function ShowForm(FormName As String)
Dim oneForm As Object
Set oneForm = CallByName(UserForms, "Add", VbMethod, FormName)
oneForm.Show
End Function
请注意,为了处理多个用户表单,这些表单的“ShowModal”属性需要设置为 FALSE。
None
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)