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

2021年4月11日10:29:28VBA案例精选 获取Excel窗口状态已关闭评论 185 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

代码运行结果:

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

代码截图:

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

VBA编辑神器放送

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

VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录