複数のワークシートに一度にウィンドウ枠の固定/解除を適用するにはどうすればよいですか？

数百のワークシートが含まれる大規模なワークブックがあり、すべてのワークシートに対して一度にウィンドウ枠の固定を適用したいとします。Excel のウィンドウ枠の固定機能では一度に一つのワークシートしか固定できません。Excel で一度にすべてのワークシートを固定または解除する方法はありますか？

VBA コードを使用してすべてのワークシートに一度にウィンドウ枠の固定を適用する

VBA コードを使用してすべてのワークシートに一度にウィンドウ枠の解除を適用する

Kutools for Excel を使用してワンクリックで全てのワークシートにウィンドウ枠の固定/解除を適用する

VBA コードを使用してすべてのワークシートに一度にウィンドウ枠の固定を適用する

以下のコードを使用して、すべてのワークシートにウィンドウ枠の固定を適用できます。次の手順を行ってください：

1. すべてのワークシートを同じ位置で固定したい場合、固定したいセルを選択し、Shift キーを押しながらすべてのシートタブを選択します。

2. ALT + F11 キーを押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。

3. 「挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBA コード: Excel ですべてのワークシートを一度に固定する

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. そして、F5 キーを押してこのコードを実行すると、すべてのワークシートが同じ位置でウィンドウ枠の固定が適用されます。

注: すべてのワークシートが選択されておらず、各ワークシートのアクティブセルが異なる位置にある場合、ウィンドウ枠の固定はアクティブセルの位置によって異なります。

VBA コードを使用してすべてのワークシートに一度にウィンドウ枠の解除を適用する

Excel で複数のワークシートにウィンドウ枠の固定が適用されている場合、一つずつ解除する以外に一度にそれらを解除するにはどうすればよいでしょうか？

1. ウィンドウ枠の固定が適用されたワークブックを開きます。

2. ALT + F11 キーを押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。

3. 「挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBA コード: Excel ですべてのワークシートを一度に解除する

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. そして、 F5 キーを押してこのコードを実行すると、ウィンドウ枠の固定が適用されたすべてのワークシートが一度に解除されます。

Kutools for Excel を使用してワンクリックで全てのワークシートにウィンドウ枠の固定/解除を適用する

VBA コードに慣れていない場合、強力なツールである Kutools for Excel があります。その「複数のワークシートのウィンドウ枠を固定する」と「複数のワークシートのウィンドウ枠の固定を解除する」ユーティリティを使用すると、現在のブック内のすべてのワークシートを一度に固定または解除できます。

Kutools for Excel をインストール後、次のように操作してください：

1. すべてのワークシートにウィンドウ枠の固定を適用したいセルを選択します。この例では、セル B2 をクリックします。スクリーンショットをご覧ください：

2. 次に、「Kutools Plus」＞「ワークシート」＞「複数のワークシートのウィンドウ枠を固定する」をクリックします。スクリーンショットをご覧ください：

3. これで、すべてのワークシートにセル B2 の位置でウィンドウ枠の固定が適用されます。

注: すぐに解除したい場合は、Kutools Plus＞ワークシート＞複数のワークシートのウィンドウ枠の固定を解除する機能を適用するだけです。

今すぐ Kutools for Excel をダウンロードして無料でお試しください！

デモ: Kutools for Excel を使用してワンクリックで全てのワークシートにウィンドウ枠の固定/解除を適用する