使用VBA检测EXCEL窗口状态

2022-04-26 08:00:09 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《使用VBA检测EXCEL窗口状态》，欢迎阅读！
窗口,状态,检测,使用,EXCEL
使用VBA检测EXCEL窗口状态

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

使用VBA检测EXCEL窗口状态一般来说，我们会把EXCEL窗口打开到最大，也可能是EXCEL窗口一般化或最小化，在EXCEL中都可以用VBA来检测EXCEL窗口的状态。我们先来看实现这个功能的VBA语句。Public Sub 检测EXCEL窗口状态() Dim zhuangtai As String zhuangtai = 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 = 就是把窗口状态这个应用赋与zhuangtaip这个变量，使zhuangtai这个变量在以后的VBA程序中代替以便让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窗口最大化”这个信息。在整个IF循环的最后是End If，也就是IF循环的结束标志。 End Sub则是整个上述VBA程序的结束标志。如上所述，这就是一个完整的VBA程序。