Как да приложа замразяване/отмразяване на панели към няколко работни листа наведнъж?
Да предположим, че имате голяма работна книга, която съдържа стотици работни листове, и сега трябва да приложите Freeze Panes, за да замразите всички работни листове наведнъж. С функцията Freeze Panes на Excel можете просто да замразите само един работен лист наведнъж, има ли начин да замразите или размразите всички работни листове веднага в Excel?
Приложете Freeze Panes към всички работни листове наведнъж с VBA код
Приложете Unfreeze Panes към всички работни листове наведнъж с VBA код
Приложете Freeze / Unfreeze Panes към всички работни листове наведнъж с едно щракване с Kutools за Excel
Приложете Freeze Panes към всички работни листове наведнъж с VBA код
Можете да използвате следния код, за да приложите Freeze Panes към всички работни листове, моля, изпълнете следните стъпки:
1. Ако искате да замразите всички работни листове в една и съща позиция, изберете клетка, която искате да замразите в работния лист, и след това задръжте Превключване клавиш за избор на всички раздели на листа.
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 за стартиране на този код и всички работни листове са приложени със замразени панели в една и съща позиция.
Забележка: Ако не са избрани всички работни листове и активните клетки на всеки работен лист са разположени на различни позиции, екраните за замразяване ще бъдат на различни места като активните клетки.
Приложете Unfreeze Panes към всички работни листове наведнъж с VBA код
Ако има няколко работни листа, които са приложени с панелите за замразяване във вашия 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 ключ за изпълнение на този код и всички работни листове, приложени със замразяващите панели, са размразени наведнъж.
Приложете Freeze / Unfreeze Panes към всички работни листове наведнъж с едно щракване с Kutools за Excel
Ако не сте запознати с VBA кодовете, ето мощен инструмент - Kutools за Excel, неговата Замразяване на прозорците на множество работни листове намлява Размразяване на прозорците на множество работни листове помощните програми могат да ви помогнат да замразите или размразите всички работни листове от текущата работна книга наведнъж.
Забележка:За да приложите това Замразяване на прозорците на множество работни листове, първо, трябва да изтеглите Kutools за Excelи след това приложете функцията бързо и лесно.
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете клетка, в която искате да приложите прозореца за замразяване за всички работни листове, в този случай щраквам върху клетка B2, вижте екранната снимка:
2, След това кликнете Kutools плюс > Работен лист > Замразяване на прозорците на множество работни листове, вижте екранна снимка:
3. И след това към всичките ви работни листове са приложени замразените панели в същата позиция на клетка B2.
Забележка: Ако искате да ги размразите незабавно, просто трябва да приложите функцията Размразяване на панели за множество работни листове, като щракнете върху Kutools плюс> Работен лист > Размразяване на прозорците на множество работни листове.
Изтеглете и изпробвайте безплатно Kutools за Excel сега!
Демонстрация: Приложете Freeze / Unfreeze Panes към всички работни листове наведнъж с едно щракване с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
