vba编程excel窗口实例 (excel通过vba显示满足条件的数值)

　　使用VBA，可以对Excel的窗口进行各种各样的设置，包含显示样式、显示的大小和位置等，而且设置非常简单，只要了解几种常用的属性即可。

　　下面列举几种常见设置。

• 获得Excel主窗口的显示样式

　 这里说的显示 样式包括最大小、最小化和一般显示三种状态，可以通过Application.WindowState属性获得这些信息，如：

Sub 获得Excel主窗口的显示样式()
    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

• 获得Excel主窗口的高度和宽度

　 Excel主窗口就是Application对象，它的高度和宽度分别是Application.Height和Application.Width属性，要获得窗口的高和宽度信息，访问这两个属性的值即可。如：

Sub 获得Excel主窗口的高度和宽度()
    Dim myHeight As Double, myWidth As Double
    myHeight = Application.Height
    myWidth = Application.Width
    MsgBox "Excel主窗口的高度和宽度分别为：" _
        & vbCrLf & "高度：" & myHeight _
        & vbCrLf & "宽度：" & myWidth, vbInformation
End Sub

• 获得Excel主窗口的边界位置

　Excel主窗口的边界位置，包括窗口左边离屏幕左端的距离，以及窗口顶端离窗口顶端的距离。

如果要获得这两个信息，可以分别访问Application.Left和Application.Top属性。如：

Sub 获得Excel主窗口的边界位置()
    Dim myLeft As Double, myTop As Double
    myLeft = Application.Left
    myTop = Application.Top
    MsgBox "Excel主窗口的左边界位置和顶端距离分别为：" _
        & vbCrLf & "左边界位置：" & myLeft _
        & vbCrLf & "顶端距离：" & myTop
End Sub

关注Excel笔记，学习更多Excel技巧。