覚書（EXCEL VBA）

以下、覚書のため無視ください。

画面表示されているセル範囲（ピクセル範囲）を取得する。

Sub Check()
    Worksheets("Sheet1").Activate
    MsgBox ActiveWindow.VisibleRange.Rows.Count
    MsgBox ActiveWindow.VisibleRange.Columns.Count
    MsgBox ActiveWindow.VisibleRange.Top
    MsgBox ActiveWindow.VisibleRange.Left
    MsgBox ActiveWindow.VisibleRange.Height
    MsgBox ActiveWindow.VisibleRange.Width
    MsgBox ActiveWindow.VisibleRange.Cells.Address
    MsgBox ActiveWindow.VisibleRange.Cells.Address(RowAbsolute:=False, ColumnAbsolute:=False)
End Sub