Home » エクセルマクロ・Excel VBAの使い方 » Windowオブジェクト » 全ワークシートでウィンドウ枠を固定する－FreezePanesプロパティ

全ワークシートでウィンドウ枠を固定する－FreezePanesプロパティ

対象：Excel97, Excel2000, Excel2002, Excel2003

複数のシートに一括操作を行う作業グループは便利な機能です。

同じ文字列を入力したり、書式設定をしたりする際には非常に役立ちます。
ですが、一括操作できてもよさそうなのに、設定できないものもあります。

ウィンドウ枠の固定です。

同じフォーマットのワークシートが並んでいる場合、全てのワークシートでウィンドウ枠を固定したいという気持ちになると思います。そんなときに作業グループを設定しておいて、メニュー［ウィンドウ］−［ウィンドウ枠の固定］コマンドを実行したものの、結局アクティブなシートしかウィンドウ枠が固定されなくて、ガッカリした方もいらっしゃるのではないでしょうか。

［スポンサードリンク］

全ワークシートでウィンドウ枠を固定するサンプルマクロ

こんなときはVBAマクロの出番です。

Sub 全ワークシートでウィンドウ枠を固定する()
　Dim ws As Worksheet
　For Each ws In Worksheets
　　ws.Select
　　Range("B2").Select
　　ActiveWindow.FreezePanes = True
　Next
End Sub

サンプルマクロで行っている処理

アクティブなブックの、すべてのワークシートにFor Each～Nextループを回して
　　For Each ws In Worksheets

ワークシートを選択し、
　　　ws.Select

B2セルを選択しておいてから、
　　　Range("B2").Select

ウィンドウ枠の固定を行っています。
　　　ActiveWindow.FreezePanes = True

逆に、すべてのワークシートでウィンドウ枠の解除を行う場合は、
　　　ActiveWindow.FreezePanes = False
です。

最終更新日時：2019-09-17 13:02

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » Windowオブジェクト » 全ワークシートでウィンドウ枠を固定する－FreezePanesプロパティ

Home » エクセルマクロ・Excel VBAの使い方 » Windowオブジェクト » 全ワークシートでウィンドウ枠を固定する－FreezePanesプロパティ

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
通常は1,080円の『Excel VBAユーザーのためのWord VBA入門（1）』が、8月25日まで半額の540円になっています↓↓ グラフに関連するオブジェクトモデルの基本を解説した『理解するExcel VBA／グラフ操作の基本』を出しました↓↓ VBAユーザーの皆さんに向けて、Pythonの超入門書をキンドル本として出しました↓↓
3年前(2019年8月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:COUNTIF関数で空白以外のセルをカウントする
3位:IF関数で○○以上××以下という条件を指定する
4位:COUNTIF関数で「○○以上」「○○以下」の指定
5位:右から（後から・末尾から）n文字を削除したい
6位:数式がそのままセルに表示される
7位:IF関数で空白なら空白にする



「Windowオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.