ウィンドウ枠の固定を設定/解除する【FreezePanesプロパティ】【ExcelVBA】

構文

Object.FreezePanes = expression

ウィンドウ枠の固定を設定/解除するコードサンプル

Public Sub sample()

    '■現在ウィンドウ枠が固定されている(True)されていない(False)を取得
    Debug.Print ActiveWindow.FreezePanes    'False
    
    '■セルA2を基準としてウィンドウ枠を固定する
    Range("A2").Select
    ActiveWindow.FreezePanes = True

    '■現在ウィンドウ枠が固定されている(True)されていない(False)を取得
    Debug.Print ActiveWindow.FreezePanes    'True
    
    '■ウィンドウ枠固定を解除
    ActiveWindow.FreezePanes = False

    '■一度ウィンドウ枠を固定し、固定場所を変更したい場合は一度解除が必要です
    Range("A2").Select
    ActiveWindow.FreezePanes = True

    Range("B2").Select
    ActiveWindow.FreezePanes = True 'セル「A2」で固定された状態で、セル「B2」では固定しなおされません

End Sub

注意点

• Range(“A2”).Selectのように一度セルをSelect(選択状態)にしています。
  これは基準となるセルを選択する必要があるからです。
  Range(“A2”).FreezePanes = True　といった表記方法はNGです。

関連記事

• 全シートのウインドウ枠固定解除する処理をパーツ化する【エクセルマクロ】
• ExcelVBA「ウインドウ枠の固定状態でも、セルA1を表示させる」