VBA案例精选 获取Excel窗口状态

代码运行结果：

代码截图：

代码文本：

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语句的用法上，当多条件判断时，我们如何写出正确语句。

【你们百度三天  不过我随口一句】
郑广学老师独家逐行手写沉浸式案例教学法 知其然更知其所以然
全套教程包含 VBA175例+函数操作408例+代码助手VIP
+100期直播回放
【268元进1000人高手VBA永久答疑群+880网站VIP】
买课咨询请加微信EXCEL880B

点击进入 郑广学老师Excel教程免费学7天 !

---

扫描二维码