可以使用UserForm对象的ShowModal或者Show方法实现在一个窗体内嵌套显示另一个窗体。

示例代码:

Sub ShowNestedUserForm() Dim uf1 As UserForm1 Dim uf2 As UserForm2

Set uf1 = New UserForm1
Set uf2 = New UserForm2

uf2.ShowModal
'或者使用uf2.Show方法

End Sub

其中UserForm1是主窗体,UserForm2是嵌套显示的窗体。在UserForm1中添加一个CommandButton控件,点击该按钮会弹出UserForm2窗体。

UserForm1代码:

Private Sub CommandButton1_Click() Dim uf2 As UserForm2

Set uf2 = New UserForm2

uf2.ShowModal
'或者使用uf2.Show方法

End Sub

UserForm2代码:

Private Sub UserForm_Click() Unload Me End Sub

以上代码可以在VBA编辑器中直接复制粘贴运行,前提是创建了UserForm1和UserForm2两个窗体。

如果实现一个窗体内嵌套显示另一个窗体vba代码实现

原文地址: https://www.cveoy.top/t/topic/b1sg 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录