如何一次性對多個Excel工作表應用凍結/取消凍結窗格？

一次只能凍結一行或一列，但是您是否嘗試過一次性對多個工作表應用凍結或取消凍結窗格？這隻能使用Excel中的VBA來實現。閱讀本教程，瞭解如何一次性對多個Excel工作表應用凍結或取消凍結窗格。

一次性對多個Excel工作表應用凍結窗格

在這裡，我們將首先插入一個VBA模組，然後執行程式碼來凍結單元格。讓我們來看一個簡單的過程，瞭解如何在Excel中一次性對多個工作表應用凍結窗格。

步驟1

讓我們考慮一個新的Excel工作表，然後右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟VBA應用程式，然後單擊“插入”，選擇“模組”，並將程式輸入到文字框中，如下面的影像所示。

程式

Sub Freeze()
'Updateby Nirmal
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

步驟2

現在單擊F5執行VBA程式碼，多個單元格將被凍結，如下面的影像所示。

一次性對多個Excel工作表應用取消凍結窗格

在這裡，我們將首先插入一個VBA模組，然後執行程式碼來取消凍結單元格。讓我們來看一個簡單的過程，瞭解如何在Excel中一次性對多個工作表應用取消凍結窗格。

步驟1

程式

Sub UnFreeze()
'Updateby Nirmal
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