使用VBA检测EXCEL窗口状态

在前面几篇文章里，我们讨论学习了VBA的一些基本用法，都是非常简单的应用，在这篇文章中我们学习VBA稍复杂的用法，也就是多语句的应用。

使用VBA检测EXCEL窗口状态 一般来说，我们会把EXCEL窗口打开到最大，也可能是EXCEL窗口一般化或最小化，在EXCEL中都可以用VBA来检测EXCEL窗口的状态。我们先来看实现这个功能的VBA语句。Public Sub 检测EXCEL窗口状态() Dim zhuangtai As String zhuangtai = Application.WindowState If zhuangtai = xlMaximized Then MsgBox "当前EXCEL窗口最大化", vbInformation ElseIf zhuangtai = xlMinimized Then MsgBox "当前EXCEL窗口最小化", vbInformation ElseIf zhuangtai = xlNormal Then MsgBox "当前EXCEL窗口一般显示", vbInformation End IfEnd Sub 上面这段程序就是标准的VBA程序了，我们来一一学习一下。 Public Sub 检测EXCEL窗口状态()：这一句写在整个EXCELVBA程序的最前面，通过sub我们可以知道这是一个过程，VBA的过程就是一组完成所要求操作任务的VBA语句。 Dim zhuangtai As String是在VBA程序中声明变量，zhuangtai就是一个变量，在这里我们声明变量为String。 zhuangtai = Application.WindowState就是把窗口状态这个应用赋与zhuangtaip这个变量，使zhuangtai这个变量在以后的VBA程序中代替Application.WindowState以便让VBA程序更加易读。If zhuangtai = xlMaximized Then MsgBox "当前EXCEL窗口最大化", vbInformation ElseIf zhuangtai = xlMinimized Then MsgBox "当前EXCEL窗口最小化", vbInformation ElseIf zhuangtai = xlNormal Then MsgBox "当前EXCEL窗口一般显示", vbInformation End If这是一个VBA中最常用的IF循环，在这个循环中我们嵌入了三个IF循环，vbInformation是VBA的MsgBox显示信息图标的参数，以If zhuangtai = xlMaximized Then MsgBox "当前EXCEL窗口最大化", vbInformation为例，语法的意思是，如果zhuangtai这个变量等于xlMaximized（EXCEL窗口最大）这个值，那么，EXCEL信息窗口显示"当前EXCEL窗口最大化"这个信息。在整个IF循环的最后是End If，也就是IF循环的结束标志。 End Sub则是整个上述VBA程序的结束标志。 如上所述，这就是一个完整的VBA程序。