Перейти к основному содержанию

Как применить заморозить / разморозить панели сразу к нескольким листам?

Предположим, у вас есть большая книга, содержащая сотни рабочих листов, и теперь вам нужно применить Freeze Panes, чтобы заморозить все рабочие листы сразу. С помощью функции замораживания панелей Excel вы можете просто заморозить только один рабочий лист за раз. Есть ли способ сразу заморозить или разморозить все листы в Excel?

Примените Freeze Panes ко всем листам одновременно с кодом VBA

Примените Unfreeze Panes ко всем листам сразу с кодом VBA

Примените замораживание / разморозить панели ко всем рабочим листам сразу одним щелчком мыши с помощью Kutools for Excel


Вы можете использовать следующий код, чтобы применить закрепленные области ко всем рабочим листам, выполните следующие действия:

1. Если вы хотите зафиксировать все листы в одном месте, выберите ячейку, которую вы хотите зафиксировать на листе, а затем удерживайте Shift клавишу, чтобы выбрать все вкладки листа.

2. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

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 для запуска этого кода, и все рабочие листы были применены с закрепленными панелями в одном и том же положении.

Примечание: Если все листы не выбраны, а активные ячейки каждого листа расположены в разных местах, закрепленные области будут в разных местах, как и активные ячейки.


Если к закрепленным областям в Excel применяется несколько листов, как вы могли бы размораживать их одновременно, кроме как размораживать их по одному?

1. Запустите книгу, листы которой были применены с закрепленными панелями.

2. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

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 ключ для запуска этого кода, и все рабочие листы, которые применялись с закрепленными панелями, были разморожены сразу.


Если вы не знакомы с кодами VBA, вот мощный инструмент: Kutools for Excel, Его Закрепить области нескольких листов и Разморозить панели нескольких листов Утилиты могут помочь вам заморозить или разморозить сразу все рабочие листы текущей книги.

Примечание:Чтобы применить это Закрепить области нескольких листов, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Выберите ячейку, в которой вы хотите применить панель замораживания для всех листов, в этом случае я нажимаю ячейку B2, см. Снимок экрана:

док заморозить все листы 1-1

2. Затем нажмите Кутулс Плюс > Рабочий лист > Закрепить области нескольких листов, см. снимок экрана:

3. И затем ко всем вашим рабочим листам были применены закрепленные области в том же месте ячейки B2.

Внимание: Если вы хотите немедленно разморозить их, вам просто нужно применить функцию Разморозить панели для нескольких листов, нажав Кутулс Плюс> Рабочий лист > Разморозить панели нескольких листов.

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка 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