メインコンテンツへスキップ

一度に複数のワークシートにフリーズ/フリーズ解除ペインを適用するにはどうすればよいですか?

何百ものワークシートを含む大きなワークブックがあり、フリーズペインを適用してすべてのワークシートを一度にフリーズする必要があるとします。 Excelのペインのフリーズ機能を使用すると、一度にXNUMXつのワークシートのみをフリーズできますが、Excelですべてのワークシートを一度にフリーズまたはフリーズ解除する方法はありますか?

VBAコードを使用して、すべてのワークシートにフリーズペインを一度に適用します

VBAコードを使用して、すべてのワークシートにUnfreezePanesを一度に適用します

Kutools for Excelを使用して、ワンクリックですべてのワークシートにフリーズ/フリーズ解除ペインを一度に適用します


次のコードを使用して、フリーズペインをすべてのワークシートに適用できます。次の手順で実行してください。

1。 すべてのワークシートを同じ位置でフリーズする場合は、ワークシートでフリーズするセルを選択して、押し続けます シフト キーを押して、すべてのシートタブを選択します。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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 このコードを実行するにはキーを押します。すべてのワークシートは、フリーズペインが同じ位置にある状態で適用されています。

注: すべてのワークシートが選択されておらず、各ワークシートのアクティブセルが異なる位置にある場合、フリーズペインはアクティブセルの異なる場所に配置されます。


Excelのフリーズペインで複数のワークシートが適用されている場合、XNUMXつずつフリーズ解除する以外に、一度にフリーズ解除するにはどうすればよいですか?

1。 フリーズペインで適用されたワークシートをワークブックで起動します。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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 このコードを実行するためのキーを押すと、フリーズペインで適用されたすべてのワークシートが一度にフリーズ解除されました。


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

注:これを適用する ペインをフリーズする複数のワークシート、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Excel、次のようにしてください。

1。 すべてのワークシートにフリーズペインを適用するセルを選択します。この場合、セルB2をクリックします。スクリーンショットを参照してください。

docはすべてのシートをフリーズします1-1

2。 次に、をクリックします クツールズプラス > ワークシート > ペインをフリーズする複数のワークシート、スクリーンショットを参照してください:

3。 そして、すべてのワークシートがセルB2の同じ位置にフリーズペインに適用されました。

Note:すぐにフリーズを解除したい場合は、[ペインのフリーズ解除]複数のワークシート機能をクリックして適用する必要があります。 クツールズプラス> ワークシート > ペインのフリーズを解除する複数のワークシート.

今すぐExcel用のKutoolsをダウンロードして無料トライアル!


Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
dear all, I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet. it's really helpful. this info is what I am looking for. thank you very much Lan
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations