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

Ինչպե՞ս տեսակավորել Excel- ում այբբենական / այբբենական կարգով աշխատաթերթերը:

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

Տեսակավորեք այբբենական / այբբենական կարգով աշխատաթերթերը VBA կոդով
Excel- ի համար Kutools- ի հետ դասավորեք աշխատաթերթերը այբբենական / այբբենական թվով


Տեսակավորեք այբբենական / այբբենական կարգով աշխատաթերթերը VBA կոդով

Microsoft- ի աջակցության կենտրոնում տեղադրված ալֆայի կողմից թերթերը տեսակավորելու մակրո կա: Մենք կարող ենք այն կիրառել հետևյալ քայլերով.

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

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

VBA. Տեսակավորեք այբբենական / այբբենական թվով թերթերը

Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3, Սեղմեք F5 այս մակրո գործարկման բանալին: Հաջորդ հուշման վանդակում կտտացրեք այո, բոլոր աշխատաթերթերը տեսակավորվելու են ըստ այբբենական կարգի բարձրանալու. և կտտացրեք Ոչ, բոլոր աշխատաթերթերը տեսակավորվելու են ըստ այբբենական կարգի նվազման:


Excel- ի համար Kutools- ի հետ դասավորեք աշխատաթերթերը այբբենական / այբբենական թվով

Եթե ​​մակրոներին ծանոթ չեք կամ նախընտրում եք այլ եղանակներ, կարող եք փորձել Excel- ի համար նախատեսված գործիքներ. Excel- ի համար նախատեսված գործիքներ's Տեսակավորել թերթերը գործիքը կարող է հեշտությամբ տեսակավորել բոլոր աշխատանքային թերթերը:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1: Սեղմեք Kutools Plus > Աշխատանքային թերթիկ > Տեսակավորել թերթերը, Տեսեք,

2, Մեջ Տեսակավորել թերթերը երկխոսության տուփ, ընտրեք տեսակավորման տեսակ, որն անհրաժեշտ է աջ պատուհանի վրա, օրինակ ՝ Ալֆա Տեսակավորել, Ալֆայի թվային տեսակավորում, ապա սեղմեք OK կոճակ Տեսեք,

Այնուհետեւ բոլոր աշխատանքային թերթերը տեսակավորվում են ՝ ելնելով նշված տեսակավորման տեսակից: Տեսեք,

դոկ-տեսակ-սավաններ 6

Excel- ի համար նախատեսված գործիքներ's Տեսակավորել թերթերը գործիքը կարող է արագ վերադասավորել բոլոր աշխատանքային թերթերը ակտիվ աշխատանքային գրքում: Այն աջակցում է տեսակավորման մի քանի տեսակների, այդ թվում ՝ Ալֆա Տեսակավորել, Ալֆայի թվային տեսակավորում, Գույնի տեսակավորում և Հակադիրը, Բացի այդ, դուք կարող եք նաև տեղափոխել վեր / վար աշխատանքային թերթերը և վերականգնել տեսակավորումը:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (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 (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations