Note: The other languages of the website are Google-translated. Back to English

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

Припустимо, у вас є велика книга, яка містить сотні робочих аркушів, і тепер вам потрібно застосувати панелі «Заморозити», щоб заморозити всі аркуші відразу. За допомогою функції «Заморозити панелі» в 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (6)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
шановні, у мене є тест у моїй робочій книжці. Зверніть увагу: перш ніж застосувати цей макрос, перемістіть мишу до клітинки, до якої потрібно застосувати панель закріплення на аркуші. це дійсно корисно. цю інформацію я шукаю. дуже дякую Лан
Цей коментар був мінімізований модератором на сайті
Я спробував це в своїй робочій книжці, і це спрацювало дуже добре. Спасибі
Цей коментар був мінімізований модератором на сайті
хочете мати можливість закріпити верхній рядок на кількох аркушах
Цей коментар був мінімізований модератором на сайті
Чи можна це зробити лише на вибраних аркушах?

що мені потрібно змінити в коді.
Цей коментар був мінімізований модератором на сайті
Привіт, Фернандо,

Щоб застосувати панель фіксації до вибраних аркушів, використовуйте такий код:



Додаткове заморожування()

'Оновлення Extendoffice

Dim Ws як робочий лист

Dim xArrName як варіант

Розмір xS

xArrName = Array("Sheet2", "Sheet3") 'Змініть назви аркушів відповідно до ваших потреб

Application.ScreenUpdating = Невірний

Для кожного xS в xArrName

Встановіть Ws = Робочі аркуші (xS)

Якщо ні, то Ws – це нічого

Ws.Активувати

За допомогою Application.ActiveWindow

.FreezePanes = Правда

Кінець з

End If

Далі

Application.ScreenUpdating = True

End Sub



Будь ласка, спробуйте, дякую!
Цей коментар був мінімізований модератором на сайті
Це спрацює, але мені потрібно буде змінювати кожен раз, коли я намагаюся запустити його в іншій книзі.

Чи можна змінити макрос до аркушів, які я вибираю на головній панелі, клацнувши на одному та натиснувши shift і вибравши інші?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0  Персонажі
Рекомендовані місця