Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս կիրառել սառեցման / ապասառեցման ապակիները միանգամից մի քանի աշխատանքային թերթերի վրա:

Ենթադրելով, որ դուք ունեք մի մեծ աշխատանքային գրքույկ, որը պարունակում է հարյուրավոր աշխատաթերթեր, և այժմ դուք պետք է կիրառեք Սառեցման տախտակները ՝ միանգամից բոլոր աշխատանքային թերթերը սառեցնելու համար: Excel- ի Freeze Panes գործառույթի միջոցով դուք կարող եք միանգամից միայն մեկ աշխատանքային թերթիկ սառեցնել, կա՞ արդյոք Excel- ում միանգամից բոլոր աշխատանքային թերթերը միանգամից սառեցնելու կամ սառեցնելու միջոց:

Կիրառեք Freeze Panes- ը միանգամից բոլոր աշխատանքային թերթերին `VBA կոդով

Կիրառեք Unfreeze Panes միանգամից բոլոր աշխատանքային թերթերին ՝ VBA կոդով

Կիրառել Freeze / Unfreeze Panes բոլոր աշխատանքային թերթերին միանգամից մեկ կտտոցով Kutools- ի համար Excel- ի


Դուք կարող եք օգտագործել հետևյալ ծածկագիրը `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 այս կոդն աշխատեցնելու բանալին, և բոլոր աշխատանքային թերթերը կիրառվել են սառեցման ապակիների հետ նույն դիրքում:

Նշում: Եթե ​​բոլոր աշխատանքային թերթերը ընտրված չեն, և յուրաքանչյուր աշխատաթերթի ակտիվ բջիջները տեղակայված են տարբեր դիրքերում, ապա սառեցնող ապակիները տարբեր տեղերում կլինեն, քանի որ ակտիվ բջիջները:


Եթե ​​ձեր 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 կոդերին, ահա մի հզոր գործիք ՝ Excel- ի համար նախատեսված գործիքներ, նրա Սառեցրեք ապակիները բազմաթիվ աշխատանքային թերթեր և Ապասառեցումը ապակեպատում է բազմաթիվ աշխատանքային թերթեր Կոմունալ ծառայությունները կարող են օգնել ձեզ միանգամից սառեցնել կամ ցրտահարել ընթացիկ աշխատանքային գրքի բոլոր աշխատաթերթերը:

Նշում:Սա կիրառելու համար Սառեցրեք ապակիները բազմաթիվ աշխատանքային թերթեր, նախ, դուք պետք է ներբեռնեք այն Excel- ի համար նախատեսված գործիքներ, ապա գործառույթը կիրառեք արագ և հեշտությամբ:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1, Ընտրեք բջիջ, որտեղ ցանկանում եք կիրառել սառեցման վահանակը բոլոր աշխատանքային թերթերի համար, այս դեպքում ես կտտացնում եմ բջիջը B2, տես նկարի նկարը.

փաստաթուղթը սառեցնել բոլոր թերթերը 1-1

2. Այնուհետեւ կտտացրեք Kutools Plus > Աշխատանքային թերթիկ > Սառեցրեք ապակիները բազմաթիվ աշխատանքային թերթեր, տես նկարի նկարը.

3, Եվ այնուհետև ձեր բոլոր աշխատաթերթերը կիրառվել են B2 բջիջի նույն դիրքում գտնվող սառեցման ապակիների վրա:

ՆշումԵթե ​​ուզում եք դրանք անմիջապես սառեցնել, պարզապես անհրաժեշտ է կիրառել Unfreeze panes բազմաթիվ աշխատանքային թերթերի հնարավորությունը ՝ կտտացնելով Kutools Plus> Աշխատանքային թերթիկ > Ապասառեցումը ապակեպատում է բազմաթիվ աշխատանքային թերթեր.

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, 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