Ga naar hoofdinhoud

Hoe werkbladen in alfabetische / alfanumerieke volgorde in Excel te sorteren?

Normaal gesproken kunt u de volgorde van werkbladtabs in Excel sorteren of rangschikken door de bladtabs op de werkbladtabbalk te slepen en neer te zetten. Maar om dit voor elkaar te krijgen met meerdere werkbladen, kunt u de volgende lastige manieren overwegen om werkbladen snel in alfabetische / alfanumerieke volgorde in een grote werkmap te sorteren.

Sorteer werkbladen in alfabetische / alfanumerieke volgorde met VBA-code
Sorteer werkbladen in alfabetische / alfanumerieke volgorde met Kutools voor Excel


Sorteer werkbladen in alfabetische / alfanumerieke volgorde met VBA-code

Er is een macro voor het sorteren van werkbladen op alfa, gepost in het Microsoft Support Center. We kunnen het toepassen met de volgende stappen:

1.  Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2.  Klik Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA: Sorteer bladen in alfabetische / alfanumerieke volgorde

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. druk de F5 toets om deze macro uit te voeren. Klik in het volgende promptvenster op Ja, alle werkbladen worden in oplopende alfabetische volgorde gesorteerd; en klik Neeworden alle werkbladen gesorteerd in aflopende alfabetische volgorde.


Sorteer werkbladen in alfabetische / alfanumerieke volgorde met Kutools voor Excel

Als u niet bekend bent met macro's of de voorkeur geeft aan andere manieren, kunt u het proberen Kutools for Excel. Kutools for Excel's Sorteer bladen tool kan alle werkbladen gemakkelijk sorteren.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Klikken Koetools Plus > Werkblad > Sorteer bladen. Zie screenshot:

2. In de Sorteer bladen dialoogvenster, selecteert u een sorteringstype dat u nodig hebt in het rechterdeelvenster, zoals Alpha Sorteren, Alfanumeriek sorterenen klik vervolgens op de OK knop. Zie screenshot:

Vervolgens worden alle werkbladen gesorteerd op basis van het opgegeven sorteertype. Zie screenshot:

doc-sorteerbladen6

Kutools for Excel's Sorteer bladen tool kan snel alle werkbladen in de actieve werkmap herschikken. Het ondersteunt verschillende sorteringstypen, waaronder Alpha Sorteren, Alfanumeriek sorteren, Kleur sorteren en Omkeren. Bovendien kunt u ook werkbladen omhoog / omlaag verplaatsen en de sortering opnieuw instellen.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Demo: Sorteer alle werkbladen in alfabetische / alfanumerieke volgorde


Gerelateerd artikel:

Sorteer werkbladtabbladen op kleur

Beste Office-productiviteitstools

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

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