代码运行结果：

代码截图：

代码文本：

Public Sub 获取窗口状态()
    Dim myState As String
    myState = Application.WindowState
    If myState = xlMaximized Then
        MsgBox "Excel窗口最大化", vbInformation
    ElseIf myState = xlMinimized Then
        MsgBox "Excel窗口最小化", vbInformation
    ElseIf myState = xlNormal Then
        MsgBox "Excel窗口一般显示", vbInformation
    End If
End Sub

注释：

窗口状态其实不论是最大化还是最小化都显而易见，此处我们可以将关注点主要放在If语句的用法上，当多条件判断时，我们如何写出正确语句。

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接：http://excel880.com/blog/archives/11297