ウィンドウ枠を固定するマクロ

FreezePanesプロパティを使って、ウィンドウ枠を固定します。

このマクロでは、データ領域の１行目の項目がスクロールされても固定されます。

ある程度データが増えた時に、ウィンドウを固定するとデータがとても見やすくなります。

Workbooks(“ブック名”).FreezePanesプロパティ

ウィンドウ枠を固定するプロパティです。

Sub サンプル3210()
<pre><code>Range("A1").CurrentRegion.Select
ActiveCell.Offset(1, 1).Select
ActiveWindow.FreezePanes = True
'ActiveWindow.FreezePanes = False</code></pre>
End Sub

Range(“A1”).CurrentRegion.Select
’ データ領域を取得します。
ActiveCell.Offset(1, 1).Select
’ データエリアの左上端のセルから１行、１列先にあるセルを選択します。
ActiveWindow.FreezePanes = True
’ ウィンドウ枠を固定します。
ActiveWindow.FreezePanes = False
’ 引数を「False」にすると、ウィンドウ枠の固定を解除します。

■　マクロ実行前の画像
一行目に、名前、住所、電話の項目が設定されている。
A列に、名前が入力されています。

●マクロの実行結果
マクロを「F8」で一行づつ実行します。
データ領域を選択します。

固定するセルを選択します。
ここでは、Offset(1,1)なので、セルB2になります。
もし、Offset(1,2)とすれば、セルC2になります。

一行、一列目が固定されました。

上にスクロールしても、一行目は固定されて移動しません。

以上で「ウィンドウ枠を固定するマクロ」の説明を終わります。