Перейти до основного матеріалу

Як застосувати панелі заморожування / розморожування до кількох аркушів одночасно?

Автор: Сяоян Остання зміна: 2020-05-22

Припустимо, у вас є велика книга, яка містить сотні робочих аркушів, і тепер вам потрібно застосувати панелі «Заморозити», щоб заморозити всі аркуші відразу. За допомогою функції «Заморозити панелі» в Excel ви можете просто заморозити лише один аркуш одночасно, чи є спосіб заморозити або розморозити всі робочі аркуші одразу в Excel?

Застосувати панелі заморожування до всіх аркушів одночасно з кодом VBA

Застосувати розморожені панелі до всіх аркушів одночасно з кодом VBA

Застосуйте «Заморозити/Розблокувати панелі» до всіх робочих аркушів одним клацанням миші за допомогою Kutools для Excel


Ви можете використати такий код, щоб застосувати панелі заморожування до всіх аркушів, виконайте такі дії:

1. Якщо ви хочете заморозити всі аркуші в одному положенні, виберіть клітинку, яку потрібно заморозити на аркуші, і утримуйте Shift , щоб вибрати всі вкладки аркуша.

2. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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 для Excel, його Заморозити панелі декількох аркушів та Розморозьте панелі кількох аркушів утиліти можуть допомогти вам заморозити або розморозити відразу всі аркуші поточної книги.

Примітка:Щоб застосувати це Заморозити панелі декількох аркушів, по-перше, вам слід завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Виберіть комірку, де ви хочете застосувати область заморожування для всіх робочих аркушів, у цьому випадку я натискаю комірку B2, див. Знімок екрана:

doc заморозити всі аркуші 1-1

2. Потім натисніть Kutools Plus > Робочий аркуш > Заморозити панелі декількох аркушів, див. скріншот:

3. І тоді на всіх ваших робочих аркушах застосовано панелі заморозки в тому самому положенні комірки B2.

примітки: Якщо ви хочете негайно розморозити їх, вам просто потрібно застосувати функцію Розморозити панелі декількох робочих аркушів, натиснувши Kutools Plus> Робочий аркуш > Розморозьте панелі кількох аркушів.

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


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

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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