ウィンド枠の固定（FreezePanes）

最終更新日：2019-07-17

第70回.ウィンド枠の固定（FreezePanes）

ウインド枠を固定し、行の上部や列の左側がスクロールされないようにする場合のマクロVBA解説になります。
ワークシートの行の上部や列の左側は、通常は見出しとして使う事が多くなります。
ウィンドウ枠を固定することで見出しの行や列を固定し、スクロールしても見出しが表示されたままにする場合が多くなります。
通常は事前にウィンドウ枠を固定しておけば済みますが、
マクロVBAで作成したシートでは、必要に応じてVBAでウィンドウ枠を固定する必要が出てきます。
VBAでウィンドウ枠の固定状態を変更する場合は、
WindowオブジェクトのFreezePanesプロパティの値を変更することで行います。

Window.FreezePanesプロパティ

Windowオブジェクト.FreezePanes = 設定値

設定値

True の場合

ウィンドウ枠を固定します。
アクティブセルの上・左が固定されます。

False の場合

固定を解除します。

これは、Windowオブジェクトのプロパティです。
Windowオブジェクトの指定には、

・ActiveWindow
・Windows("ウインドウ名")
これらになりますが、
ウインドウ枠固定では、実質ActiveWindow一択と言ってよいでしょう。
理由としては、固定位置のセルをアクティブにしなければならず、
セルをアクティブにするためには、そのシートをアクティブにする必要があり、
結果として、フクティブウインドウに対して操作することになるからです。

Windowオブジェクトのプロパティが変更できるのは、
アクティブシートに対してのみ設定可能であるということです。
つまり、
ActiveWindow.FreezePanes = True
Windows("Book1").FreezePanes = True
このような指定が可能ですが、後者はほぼ意味を持たない指定という事です。

少なくとも、
~~Windows("Book1.xls").Sheets("Sheet2").FreezePanes = True~~
このような指定はできません。

ウインドウ枠の固定は、アクティブセルの位置で固定されますので、
事前に、固定位置のセルをアクティブにしておく必要があります。

ウインドウ枠固定時の注意

既にウィンドウ枠が固定されている場合に、
新たに、別の位置でウィンドウ枠を固定しようとしても変更されません。
ウィンドウ枠の固定位置を変更する場合は、
固定を解除してから、再度固定しなければなりません。

ウインドウ枠固定の使用例


  
    
      Workbooks("Book1.xls").Worksheets("Sheet2").Activate

      Range("B2").Select

      ActiveWindow.FreezePanes = False

      ActiveWindow.FreezePanes = True

対象のシートをアクティブにしてから、
固定するセルを選択し、
念の為、ウィンドウ枠の固定を解除してから、
ウィンドウ枠を固定しています。