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

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

Excel- ում մենք կարող ենք արագ և հեշտությամբ դասակարգել տվյալները որոշակի աղյուսակի վրա հիմնված աշխատանքային թերթում, բայց երբևէ փորձե՞լ եք տեսակավորել տվյալները բազմաթիվ աշխատանքային թերթերի միջև: Դրանք մեկ առ մեկ դասավորելը ժամանակատար կլինի, այս հոդվածում ես կներկայացնեմ դրա լուծման հեշտ եղանակը:

Տեսակավորեք միանգամից մի քանի աշխատանքային թերթերի տվյալները VBA կոդով


նետ կապույտ աջ պղպջակ Տեսակավորեք միանգամից մի քանի աշխատանքային թերթերի տվյալները VBA կոդով

Ձեր աշխատանքային գրքի բոլոր թերթերում մեկ սյունակի վրա հիմնված տվյալները տեսակավորելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Տեսակավորեք միանգամից մի քանի աշխատանքային թերթերի վերաբերյալ տվյալները.

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 Այս ծածկագիրը գործարկելու համար բանալին, բոլոր ձևաչափման բոլոր թերթերը տեսակավորվել են միանգամից իջնելով յուրաքանչյուր թերթի E սյունակի վրա:

ՆշումՎերոհիշյալ ծածկագրում A: F տվյալների տիրույթն է, որը ցանկանում եք տեսակավորել, E սյունակի նամակն է, որի վրա ցանկանում եք տեսակավորել ՝ հիմնվելով:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (11)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի աշխատում...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես կարող եմ այս աշխատանքը կատարել բազմաթիվ սյունակների համար: Ես փորձում եմ մի քանիսը դասավորել ըստ K սյունակի, իսկ որոշներին ըստ M սյունակի և ես գիտեմ թերթի ճշգրիտ համարները: Իմ M սյունակը (երբ ես օգտագործում եմ վերը նշված կոդը) տեսակավորվում է միայն K-ով, ոչ թե M-ով, հետևաբար այն չի աշխատում: 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինձ համար հմայքի պես աշխատեց... շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
լավ է աշխատում, բայց ինչպե՞ս կարող եմ խուսափել վերնագրերը ներառելուց (այսինքն՝ տող 1):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Լյուսի,
Բոլոր թերթերը, բացառելով վերնագրի տողը, տեսակավորելու համար կիրառեք ստորև բերված vba կոդը.

Sub SortAllSheets ()
― Թարմացնելով Extendoffice
Dim WS As Worksheet-ը
Dim xIntR որպես ամբողջ թիվ
ActiveSheet.Range("A1:F1"): Ընտրեք
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Յուրաքանչյուր WS-ի համար աշխատանքային թերթերում
xIntR = Intersect(WS.UsedRange, WS.Range("A:F")).Տողեր.Հաշիվ
WS.Range("A2:F" & xIntR).Տեսակավորել բանալի1:=WS.Range("A2:A" & xIntR), Order1:=xlՆվազող
Հաջորդ WS
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն հույսով, որ դուք կտեսնեք սա… Սա հիանալի է աշխատում, բայց այն ներառում է բանաձևով բջիջներ, բայց ոչ տվյալներ, ներդիրներում բացեր ստեղծելով և տողերի տվյալները խառնելով: Ես պետք է պահեմ այդ բջիջները իմ ներդիրներում, քանի որ նրանք փնտրում են անուններ, որոնք ավելացվել են «հիմնական ներդիրում»: Ես ուզում եմ, որ այն տեսակավորի միայն իրական անունով բջիջները.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ օգտակար կոդ: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հեյ, սա հիանալի է, շատ շնորհակալություն դրա համար: Այս կոդի հետ կապված իմ միակ խնդիրն այն է, որ այն չի աշխատում իմ առաջին թերթիկում: Այն աշխատում է իմ մնացած թերթիկների վրա: Ինչպե՞ս կարող եմ դա կատարել բոլոր թերթերի վրա: Կարծես ծածկագիրը շրջանցում է առաջին թերթիկը։ Ցանկացած օգնություն շատ գնահատելի կլինի :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ տվյալները բաժանել մի քանի աշխատանքային գրքերի մեջ, այնուհետև ավելացնել արժեքը սյունակներից մեկում:

Ես պատրաստել եմ կոդը աշխատանքային գրքույկներում տվյալները բաժանելու համար, բայց օգնության կարիք ունեմ սյունակներից մեկում ընդհանուր գումարն ավելացնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք սա գործարկել առանց բոլոր թերթիկները ներառելու: Այսինքն թողնե՞լ որոշ թերթիկներ մակրոյից դուրս:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ինձ մոտ չէր ստացվում: Ես ունեմ աշխատանքային գրքույկ 12 թերթերով՝ պատվիրված ըստ տարվա ամիսների, յուրաքանչյուր թերթ, որը պարունակում է համապատասխան տվյալներ ընկերության ապրանքների և այլնի վերաբերյալ: Իմ նպատակն է տեսակավորել և զտել աշխատանքային գրքույկի բոլոր թերթերը: Ես կցանկանայի ունենալ մեկ թերթ, որը կգործեր որպես մայր թերթ (օրինակ՝ տարվա առաջին ամիս), որի վրա ես կկատարեի զտիչ կամ տեսակավորման ֆունկցիա (օրինակ՝ A -> Z տեսակավորում) և ավտոմատ կերպով մյուս թերթերը կհետևեն նույնը։ տեսակավորել կամ զտել: Օրինակ՝ «Հունվար» մակագրված թերթիկը օգտագործելիս, օրինակ, ընտրում եմ «D» սյունակը, որը ներառում է իմ ուզած ամսվա օրերը «աճողական» հերթականությամբ, «հունվար» թերթի վրա A -> Z տեսակավորումն իրականացնելիս: , ես ուզում եմ, որ սա ազդի մնացած բոլոր թերթերի հաջորդականությամբ (փետր-դեկտեմբեր)՝ ամսվա բոլոր օրերը տեսակավորված A -> Z: «Հունվար» թերթի վրա կատարված ցանկացած փոփոխություն, որը վերաբերում է տեսակավորմանն ու զտմանը, պետք է: ազդել աշխատանքային գրքույկի թերթիկների մնացորդի վրա:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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