【Excel VBA】ウィンドウが分割されているか、またそのペイン数を確認する方法

2025年8月11日

Excelの「分割」機能を使うと、一つのワークシートを2つまたは4つの領域（ペイン）に分けて、それぞれを独立してスクロールできます。広大なシートの異なる箇所を同時に見比べたい場合に非常に便利な機能です。

VBAマクロで画面操作を自動化する際、ユーザーがウィンドウを分割しているかどうかを事前に知りたい場合があります。この記事では、ActiveWindow.Panes.Countプロパティを使い、ウィンドウの分割状態を簡単に確認する方法を解説します。

「ウィンドウ枠の分割」と「ウィンドウ枠の固定」の違い

はじめに、よく似た機能である「ウィンドウ枠の固定」との違いを明確にしておきましょう。

ウィンドウ枠の分割: 画面を2つまたは4つの独立したスクロール領域に分けます。この記事で解説するPanes.Countで確認できるのは、こちらの機能です。
ウィンドウ枠の固定: 特定の行や列を固定し、スクロールしても常に表示されるようにします。

今回の方法は、「ウィンドウ枠の分割」に対してのみ有効です。

完成したVBAコード

以下が、現在アクティブなウィンドウのペイン（分割された領域）の数を数え、その結果に応じてメッセージを表示するVBAコードです。

Sub CheckWindowPaneCount()

    ' 変数を宣言します
    Dim currentWindow As Window
    Dim paneCount As Long
    Dim message As String
    
    ' 現在アクティブなウィンドウを操作対象とする
    Set currentWindow = ActiveWindow
    
    ' --- 1. ウィンドウのペイン数を取得 ---
    ' PanesコレクションのCountプロパティで数を取得できます
    paneCount = currentWindow.Panes.Count
    
    ' --- 2. ペイン数に応じてメッセージを分岐 ---
    Select Case paneCount
        Case 1
            message = "このウィンドウは分割されていません。"
        Case 2
            message = "このウィンドウは2つのペインに分割されています。（縦または横）"
        Case 4
            message = "このウィンドウは4つのペインに分割されています。（縦横両方）"
        Case Else
            ' 通常、3つのペインは存在しない
            message = "予期せぬペイン数です: " & paneCount & "個"
    End Select
    
    ' --- 3. 結果を表示 ---
    MsgBox message, vbInformation, "ウィンドウの分割状態"
    
End Sub