Excel怎么设置显示出用户窗体

excel中使用vba制作了一个用户窗体，但是默认情况下，用户窗体是隐藏的，我们该如何设置显示出来呢?下面就跟我一起看看吧。

Excel 设置显示出用户窗体的步骤

1、打开VBE环境。打开Excel工作簿后，通过点击“开发工具”选项卡的“Visual Basic”按钮或用快捷键“Alt + F11”打开VBE环境，如图所示。

2、添加用户窗体。打开VBE环境后，通过点击如图所示的工具按钮添加用户窗体。

3、设计用户窗体。如图所示，设计用户窗体，添加3个文本框，2个Label控件和1个按钮控件。

4、为按钮添加点击事件的代码。双击窗体上的按钮控件，在d出的代码编辑区域添加如图所示的代码。

5、核心步骤——为ThisWorkBook添加代码。首先，双击资源管理器中的“ThisWorkBook”，如图所示在打开的代码编辑环境下，点击“通用”下拉框，选择“WorkBook”，如图所示在出现的事件过程中添加如图所示的代码——在打开工作簿时自动立即用户窗体的关键代码。

6、另存为能保存VBA宏的文件。为了测试在打开Excel工作簿时立即显示用户窗体，需要将.xlsx文件另存为一种能保存VBA宏的文件格式，这里选择.xlsm文件格式。

7、测试效果。将所有文件关闭后，重新打开保存好的.xlsm文件，会发现添加的用户窗体会自动显示出来，如图所示。

Excel显示出用户窗体的相关 文章 ：

1. excel2010如何开启用户窗体

2. 使用Excel用户窗体查找工作表记录

3. 怎么在excel中调出窗体工具栏

直接添加一个MID父窗体或在已有窗体的属性中找到IsMDIContainer属性，然后设置为True，然后创建第二个窗体 ，需要加载子窗体的时候：

Dim NewMDIChild As New Form2

NewMDIChild.MdiParent = Me

NewMDIChild.Show()

Public Shared Sub CheckMDIChildForm(ByVal MDIForm As Windows.Forms.Form, ByVal MDIChildForm As Windows.Forms.Form, ByVal MDIChildFormName As String)

        If MDIForm.MdiChildren.Length < 1 Then

            '如果没有任何一个MDI子窗体，则创该MDI子窗体的窗体实例

            Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体

            MDIChildFrm.MdiParent = MDIForm '指定父窗体

            MDIChildFrm.Show() '打开窗体

            Exit Sub

        Else

            Dim x As Integer

            Dim frmyn As Boolean

            For x = 0 To (MDIForm.MdiChildren.Length) - 1

                Dim tempChild As Windows.Forms.Form = CType(MDIForm.MdiChildren(x), Windows.Forms.Form)

                If tempChild.Name = MDIChildFormName Then

                    '检测到有该MDI子窗体，设为激活 并退出循环

                    frmyn = True

                    tempChild.BringToFront()

                    Exit For

                Else

                    frmyn = False

                End If

            Next

            If Not frmyn Then

                '在打开的窗体中没检测到则新建

                Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体

                MDIChildFrm.MdiParent = MDIForm '指定父窗体

                MDIChildFrm.Show() '打开窗体

            End If

        End If

    End Sub

---