2023年12月17日发(作者：)

Sub testWindow() '测试Excel应用程序窗口状态 MsgBox "应用程序窗口将最大化" State = xlMaximized Call testWindowState MsgBox "应用程序窗口将恢复正常" State = xlNormal MsgBox "应用程序窗口已恢复正常" '测试活动工作簿窗口状态 MsgBox "当前活动工作簿窗口将最小化" State = xlMinimized Call testWindowState MsgBox "当前活动工作簿窗口将最大化" State = xlMaximized Call testWindowState MsgBox "当前活动工作簿窗口将恢复正常" State = xlNormal Call testWindowState MsgBox "应用程序窗口将最小化" State = xlMinimized Call testWindowStateEnd Sub‘*********************************************************Sub testWindowState() Select Case State Case xlMaximized: MsgBox "应用程序窗口已最大化" Case xlMinimized: MsgBox "应用程序窗口已最小化" Case xlNormal: Select Case State Case xlMaximized: MsgBox "当前活动工作簿窗口已最大化" Case xlMinimized: MsgBox "当前活动工作簿窗口已最小化" Case xlNormal: MsgBox "当前活动工作簿窗口已恢复正常" End Select End SelectEnd Sub示例说明：本示例有两个程序，其中testWindow()是主程序，调用子程序textWindowState()，演示了应

dowState()，演示了应用程序窗口和工作簿窗口的不同状态。当前活动窗口一般代表当前活动工作簿窗口，读者可以

工作簿窗口，读者可以在VBE编辑器中按F8键逐语句运行testWindow()程序，观察Excel应用程序及工作簿窗口的不

程序及工作簿窗口的不同状态。此外，在子程序中，还运用了嵌套的Select Case结构。