Как применить заморозку или разморозку областей сразу к нескольким листам?
При работе с большими рабочими книгами Excel, содержащими десятки или даже сотни листов, часто требуется сохранять видимость определённых строк или столбцов с помощью заморозки областей. Однако стандартная функция Excel «Заморозить области»Работает только с активным листом, из-за чего повторение этого действия на каждом листе вручную становится крайне трудоёмким. Если вам нужно последовательно заморозить (или позже разморозить) одни и те же строки или столбцы на всех листах, существует ли способ применить эту настройку ко всем листам сразу — чтобы сэкономить время и не пропустить ни один лист?
Применение заморозки областей ко всем листам сразу с помощью кода VBA
Применение разморозки областей ко всем листам сразу с помощью кода VBA
Применение заморозки/разморозки областей ко всем листам одним щелчком с помощью Kutools для Excel
Применение заморозки областей ко всем листам сразу с помощью кода VBA
Если вы хотите заморозить области в одной и той же ячейке на каждом листе книги, VBA предоставляет эффективное решение для автоматизации этого процесса. Это помогает обеспечить единообразный вид всех листов, например, сохраняя заголовки строк или Ключевой столбец видимыми во всей большой книге. Обратите внимание: этот метод требует выбора ячейки, в которой вы хотите применить заморозку на каждом листе, так как VBA будет выполнять заморозку относительно активной ячейки на каждом отдельном листе.
1. Чтобы заморозить все листы в одинаковой позиции, сначала выберите ячейку, до которой нужно заморозить область на листе, затем удерживайте клавишу Shift, чтобы выделить все вкладки листов.
2. Нажмите ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
3. В окне редактора VBA выберите Вставка > Модуль, затем скопируйте и вставьте следующий код VBA в окно модуля:
Код 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
Когда на нескольких листах применена заморозка областей и вы хотите удалить эту настройку со всех листов одновременно, решение на основе VBA значительно упрощает процесс. Вместо ручной разморозки областей по одному листу следующий макрос быстро размораживает все листы сразу.
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 для Excel
Если вы не хотите использовать VBA или ищете более простой способ без написания кода, Kutools для Excel предлагает эффективный метод заморозки или разморозки областей на всех листах через удобное меню. Эта функция идеально подходит тем, кто ценит быстроту и надёжность, минимум действий и отсутствие необходимости настраивать макросы. Утилиты Закрепить области на нескольких листах и Снять закрепление областей на нескольких листах работают слаженно, позволяя одним щелчком настроить или отменить закрепление областей сразу на всех листах. Это значительно экономит время при работе с большими книгами и исключает риск несогласованности между листами.
После установки Kutools для Excelвыполните следующие действия:
1. Выберите ячейку, относительно которой нужно зафиксировать области на всех листах (например, ячейку B2, чтобы оставить видимыми строку 1 и столбец A). Эта позиция будет применена ко всем листам одинаково. См. снимок экрана:
2. На ленте Excel нажмите KUTOOLS PLUS > Лист > Закрепить области на нескольких листах. См. снимок экрана:
3. На всех листах заморозка областей будет немедленно применена к указанной ячейке (например, B2), обеспечивая единообразный вид всей книги.
Примечание: Чтобы снять заморозку областей со всех листов за одну операцию, выберите KUTOOLS PLUS > Лист > Снять закрепление областей на нескольких листах. Эта функция обеспечивает гибкость при работе с большими или сложными наборами данных. Она особенно полезна при подготовке шаблонов, проведении совещаний совета директоров или в любых ситуациях, где требуется быстрая и согласованная навигация.
Демонстрация: Применение заморозки/разморозки областей ко всем листам одним щелчком с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек