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

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

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

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (6)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելիներս, ես իմ աշխատանքային գրքույկում թեստ ունեմ, լավ նկատի ունեցեք, որ մինչ այս մակրո կիրառելը, խնդրում եմ մկնիկը տեղափոխեք այն բջիջը, որը ձեզ անհրաժեշտ է թերթի սառեցման վահանակը կիրառելու համար: դա իսկապես օգտակար է: այս տեղեկությունն այն է, ինչ ես փնտրում եմ: շատ շնորհակալ եմ Լեն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի սա իմ աշխատանքային գրքում և այն շատ լավ աշխատեց: շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ցանկանում եք կարողանաք սառեցնել վերին տողը մի քանի աշխատաթերթերի վրա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է դա անել միայն ընտրված աշխատաթերթերում:

ինչ պետք է փոխեմ կոդում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Ֆերնանդո,

Ընտրված թերթերի վրա սառեցման վահանակը կիրառելու համար օգտագործեք հետևյալ կոդը.



Ենթասառեցում ()

― Թարմացնելով Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array ("Sheet2", "Sheet3") 'Փոխեք թերթերի անունները ըստ ձեր կարիքի

Դիմում. ScreenUpdating = Սուտ է

Յուրաքանչյուր xS-ի համար xArrName-ում

Set Ws = Worksheets (xS)

Եթե ​​ոչ Ws-ը ոչինչ է, ապա

Ws.Ակտիվացնել

Application.ActiveWindow-ով

.FreezePanes = Ճշմարիտ

Վերջ

Վերջ: Եթե

հաջորդ

Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub



Խնդրում եմ փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա կաշխատի, բայց ես պետք է փոխեմ ամեն անգամ, երբ փորձում եմ այն ​​գործարկել այլ աշխատանքային գրքում:

Հնարավո՞ր է, որ մակրոսը փոփոխվի հիմնական պատուհանում իմ ընտրած թերթերի մեջ՝ սեղմելով մեկի վրա և սեղմելով shift և ընտրելով մյուսները:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից