Excel VBA 画面に表示されているセル範囲を取得する-VisibleRange

ExcelのVBAで画面に表示されているセル範囲を取得する記録です。

画面に表示されているセル範囲を取得するには「VisibleRange」プロパティを使います。

< スポンサーリンク >

「VisibleRange」プロパティ構文

ウィンドウまたはウィンドウ枠に表示されているセルの範囲を表すRangeオブジェクトを返します。一部しか表示されていない列や行も対象になります。読み取り専用。

「VisibleRange」プロパティ使用例

下図のようなアクティブウインドウに表示されているセル範囲を取得してみます。下図はC3～K15まで表示されています。

セル範囲を取得

画面に表示されているセル範囲をメッセージで表示します。

Sub test()
    MsgBox ActiveWindow.VisibleRange.Address
End Sub

セルの個数を取得

画面に表示されているセルの個数をメッセージで表示します。

Sub test()
    MsgBox ActiveWindow.VisibleRange.Cells.Count
End Sub

左上のセル番地を取得

左上のセルのセル番地をメッセージで表示します。

Sub test()
    MsgBox ActiveWindow.VisibleRange.Cells(1).Address
End Sub

右下のセル番地を取得

右下のセルのセル番地をメッセージで表示します。

Sub test()
    With ActiveWindow.VisibleRange
        MsgBox .Cells(.Cells.Count).Address
    End With
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします