本文为《别怕,Excel VBA其实很简单(第3版)》随书问题参考答案

如果希望关闭窗体时,同时关闭窗体所在的工作簿,可以在该窗体的【代码窗口】中写入下面的过程:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode vbFormCode Then
ThisWorkbook.Close False
End If
End Sub

关闭工作簿不会关闭Excel的应用程序,Excel应用程序的窗体还会显示在屏幕上,如下图:

如果希望关闭窗体时,同时关闭Excel应用程序,不留下任何的Excel应用程序界面,可以将过程改写为:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode vbFormCode Then
Application.Quit
End If
End Sub

声明:本站所有文章均出自互联网,只为学习之用;如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。