De tutorial lit sjen hoe't jo Excel-wurkblêden fluch yn alfabetyske folchoarder sortearje kinne troch VBA-koade en it Workbook Manager-ark te brûken.

Microsoft Excel biedt in oantal rappe en maklike manieren om te regeljen kolommen of rigen yn alfabetyske folchoarder. Mar d'r is mar ien metoade om wurkblêden yn Excel opnij te regeljen - sleep se nei de winske posysje op 'e ljepperbalke fan blêd. As it giet om alfabetisearjen fan ljeppers yn in echt grut wurkboek, kin dit in lange en ferkearde manier wêze. Op syk nei in tiidbesparend alternatyf? D'r besteane mar twa: VBA-koade of ark fan tredden.

Hoe kinne jo ljeppers yn Excel alfabetisearje mei VBA

Hjirûnder fine jo trije VBA-koadefoarbylden om Excel te sortearjen blêden oprinnend, delgean en yn beide rjochtingen basearre op de kar fan de brûker.

Ynliedend dat jo wat ûnderfining hawwe mei VBA, sille wy allinich de basisstappen sketse om in makro ta te foegjen oan jo wurkblêd:

1. Druk yn jo Excel-wurkboek op Alt + F11 om de Visual Basic-bewurker te iepenjen.
2. Klik yn it lofterpaniel mei de rjochter-klik op Dit wurkboek , en klik dan op Ynfoegje > Module .
3. Paste de VBA-koade yn it Koadefinster.
4. Druk op F5 om de makro út te fieren.

Foar de detaillearre stap-foar-stap ynstruksjes, sjoch asjebleaft Hoe VBA-koade yn Excel ynfoegje en útfiere.

Tip. As jo ​​de makro hâlde wolle foar fierdere gebrûk, wês dan wis dat jo jo bestân bewarje as in Excel-makro-ynskeakele wurkboek (.xlsm).

As alternatyf kinne jo ús foarbyld Alfabetisearje Excel-ljepblêden-wurkboek downloade, ynhâld ynskeakelje as frege, en de winske makro direkt fan dêrút útfiere. It wurkboek befettet de folgjende makro's:

• TabsAscending - sortearje blêden alfabetysk fan A oant Z.
• TabsDescending - regelje blêden yn de omkearde folchoarder, fan Z oant A.
• AlphabetizeLabs - ljepblêden sortearje yn beide rjochtingen, oprinnend of delgeand.

Mei it foarbyldwurkboek ynladen en iepene yn jo Excel, iepenje jo eigen wurkboek wêr't jo ljeppers alfabetisearje wolle, druk op Alt + F8 , selektearje de winske makro en klik op Utfiere .

Sortearje Excel-ljeppers alfabetysk fan A oant Z

Dizze lytse makro regelet de blêden yn it hjoeddeiske wurkboek yn oprinnende alfanumerike folchoarder , earst wurkblêden wêrfan de nammen begjinne mei sifers, dan blêden fan A oant Z.

Sub TabsAscending() Foar i = 1 To Application.Sheets.Count Foar j = 1 To Application.Sheets.Count - 1 As UCase $ (Application.Sheets (j).Name) & GT; UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next MsgBox "De ljeppers binne sortearre fan A oant Z." End Sub

Arrangearje Excel-ljeppers fan Z oant A

As jo ​​jo blêden sortearje wolle yn ôfnimmende alfanumerike folchoarder (Z oant A, dan blêden mei numerike nammen), brûk dan de folgjende koade:

Sub TabsDescending() Foar i = 1 ToApplication.Sheets.Count Foar j = 1 To Application.Sheets.Count - 1 As UCase $ (Application.Sheets (j).Name) & lt; UCase$(Application.Sheets(j + 1).Name) Then Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "De ljeppers binne sortearre fan Z oant A. " End Sub

Alfabetisearje ljeppers op- of ôfnimmend

Dizze makro lit jo brûkers beslute hoe't se wurkblêden sortearje yn in opjûn wurkboek, alfabetysk fan A oant Z of yn omkearde folchoarder.

Sûnt de standert dialoochfinster (MsgBox) yn Excel VBA lit allinich kieze út in hantsjefol foarôf definieare knoppen, wy sille ús eigen formulier meitsje (UserForm) mei trije oanpaste knoppen: A oant Z , Z oant A , en Ofbrekke .

Iepenje hjirfoar de Visual Basic Editor, klik mei de rjochter mûsknop op ThisWorkbook en klik op Ynfoegje > UserForm . Neam jo formulier SortOrderFrom en foegje 4 kontrôles ta: in label en trije knoppen:

Druk dêrnei op F7 (of dûbelklik op it formulier ) om it finster Koade te iepenjen en de ûndersteande koade dêr plakke. De koade ûndersiket knopklikken en jout in unike tag oan elke knop:

Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

Ofhinklik fan oft de brûker op de A oant Z of Z oant A knop op jo formulier klikt, sortearje ljeppers ynoprinnende alfabetyske folchoarder (standert selektearre) of ôfnimmende alfabetyske folchoarder; of slute it formulier en doch neat yn gefal fan Ofbrekke . Dit wurdt dien mei de folgjende VBA-koade, dy't jo op 'e gewoane manier ynfoegje fia Ynfoegje > Module .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Dan Exit Sub Foar x = 1 To Application.Sheets.Count Foar y = 1 To Application.Sheets.Count - 1 As SortOrder = 1 Dan As UCase $ (Application.Sheets (y).Name) & GT; UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If ElseIf SortOrder = 2 Then If UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If End If Next Next End Sub Funksje showUserForm() As Integer showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm Einfunksje

As jo ​​noch net heul noflik binne mei VBA, kinne jo ús Sample Workbook gewoan downloade om ljeppers te alfabetisearjen, iepenje it yn jo Excel neist jo eigen bestân wêr't jo wolle om ljeppers te sortearjen en de makro AlphabetizeTabs út jo wurkboek út te fieren:

Kies de foarkarsoartefolchoarder, sis, A oant Z , en observearje de resultaten:

Tip. Mei VBA kinne jo ek kopyen meitsje fan jo Excel-wurkblêden. De koade is beskikber hjir: How todûbele blêd yn Excel mei VBA.

Hoe kinne jo Excel-ljepblêden alfabetysk sortearje mei Ultimate Suite

De brûkers fan ús Ultimate Suite foar Excel hoege net mei VBA te rommeljen - se hawwe in multi -funksjonele wurkboekbehearder ta har beskikking:

Mei dit ark tafoege oan jo Excel-lint, wurdt alfabetisearjen fan ljeppers dien mei ien klik op de knop, krekt sa't it moat!

As jo ​​nijsgjirrich binne om dit te ferkennen en 70+ mear profesjonele ark foar Excel, is in proefferzje fan ús Ultimate Suite hjir te downloaden.

Ik tankje jo foar it lêzen en hoopje jo nije wike op ús blog te sjen!