Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

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

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

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

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

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


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

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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fernando · 1 years ago
    Is it possible to do it on selected worksheets only?

    what would i need to change in the code.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      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!
      • To post as a guest, your comment is unpublished.
        Fernando · 1 years ago
        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?
  • To post as a guest, your comment is unpublished.
    JD · 5 years ago
    want to be able to freeze top row on multiple worksheets
  • To post as a guest, your comment is unpublished.
    Kurt · 7 years ago
    I tried this in my workbook and it worked very well.

    thanks
  • To post as a guest, your comment is unpublished.
    Orchid · 7 years ago
    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