借助VBA同时关闭窗体和工作簿，工作更轻松

我们经常在工作中遇到需要关闭窗体的情况，有时我们还希望同时关闭窗体所在的工作簿。虽然这可以通过手动关闭工作簿来实现，但使用VBA代码可以使这个过程更加高效和自动化。

在本文中，我们将深入探讨如何在VBA中编写代码，以便在关闭窗体时同时关闭窗体所在的工作簿。我们将分步介绍代码的编写过程，并提供清晰的示例代码供你参考。

编写VBA代码

要编写VBA代码来关闭窗体和工作簿，请按照以下步骤操作：

1. 打开包含窗体的Excel工作簿。
2. 右键单击窗体，然后选择“查看代码”。
3. 在代码窗口中，找到以下代码行：

Private Sub UserForm_Initialize()

4. 在此代码行下方添加以下代码：

Me.QueryClose = True

5. 查找以下代码行：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

6. 在此代码行中添加以下代码：

If CloseMode = vbFormControlMenu Then
    ThisWorkbook.Close savechanges:=False
End If

代码解析

• Me.QueryClose = True ：此代码行允许在关闭窗体时触发UserForm_QueryClose事件。
• If CloseMode = vbFormControlMenu Then ：此代码行检查关闭模式，如果关闭模式是通过窗体菜单命令触发的（例如单击关闭按钮），它将执行以下代码。
• ThisWorkbook.Close savechanges:=False ：此代码行关闭当前工作簿，而不保存任何更改。

示例代码

以下是一个完整的示例代码，用于在关闭窗体时同时关闭工作簿：

Private Sub UserForm_Initialize()
    Me.QueryClose = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        ThisWorkbook.Close savechanges:=False
    End If
End Sub

使用代码

将代码复制并粘贴到窗体的代码窗口中。保存并关闭代码窗口。现在，当你关闭窗体时，窗体所在的工作簿也将自动关闭。

结论

通过使用VBA代码，可以轻松实现关闭窗体时同时关闭工作簿。这可以提高你的工作效率，让你专注于更重要的任务。