【Excel VBA】ウィンドウ枠が固定されている位置（基準セル）を取得する方法

2025年8月11日

マクロを様々なExcelファイルで実行する際、そのファイルがどのように「ウィンドウ枠の固定」を設定しているかを知りたい場合があります。例えば、「ウィンドウ枠の固定を一旦解除し、処理後に元に戻す」といった丁寧なマクロを作成するには、元の固定位置を把握する必要があります。

VBAには固定位置を直接取得するプロパティはありませんが、ウィンドウ枠を固定した際に生成される**「ペイン（Pane）」**の情報を調べることで、どのセルを基準に固定が設定されたのかを特定できます。この記事では、その具体的な方法を解説します。

ウィンドウ枠固定と「ペイン」の関係

「ウィンドウ枠の固定」を実行すると、Excelのウィンドウは内部的に複数の領域（ペイン）に分割されます。

先頭行のみ固定: 2つのペイン（上下）に分割
先頭列のみ固定: 2つのペイン（左右）に分割
行と列を両方固定: 4つのペインに分割

このとき、私たちが普段スクロールして操作しているメインの領域は、常にインデックス番号が最も大きいペインになります。この性質を利用して、どのパターンであっても常にメインのスクロール領域を特定するのが、今回のテクニックの鍵です。

完成したVBAコード

以下が、ウィンドウ枠の固定位置を特定し、その基準となっているセルのアドレスを表示するVBAコードです。

Sub GetFreezePaneAddress()

    ' 変数を宣言します
    Dim mainPane As Pane
    Dim freezeBasisAddress As String
    
    ' ウィンドウ枠が固定されているかを確認
    If ActiveWindow.FreezePanes = False Then
        MsgBox "このウィンドウでは、ウィンドウ枠が固定されていません。", vbInformation
        Exit Sub
    End If
    
    ' --- 1. メインとなるペイン（右下のスクロール領域）を取得 ---
    ' Panes.Countで最後のペインを特定するのが、どの分割パターンにも対応できる確実な方法です
    Set mainPane = ActiveWindow.Panes(ActiveWindow.Panes.Count)
    
    ' --- 2. ペインを左上までスクロールさせる ---
    ' これをしないと、現在のスクロール位置によって取得されるセルが変わってしまいます
    With mainPane
        .ScrollRow = 1
        .ScrollColumn = 1
        
        ' --- 3. 表示されている領域の左上のセルアドレスを取得 ---
        ' スクロール後、VisibleRangeの最初のセルが基準セルになります
        freezeBasisAddress = .VisibleRange.Cells(1, 1).Address(False, False)
    End With
    
    ' --- 4. 結果を表示 ---
    MsgBox "ウィンドウ枠の固定は、セル " & freezeBasisAddress & " を基準に設定されています。"
    
    ' オブジェクトを解放
    Set mainPane = Nothing
    
End Sub