可以使用 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/nl3d 著作权归作者所有。请勿转载和采集!

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