A bemutató azt mutatja be, hogyan lehet gyorsan ábécérendbe rendezni az Excel munkalapokat a VBA-kód és a Munkafüzet-kezelő eszköz használatával.

A Microsoft Excel számos gyors és egyszerű módszert kínál az oszlopok vagy sorok ábécésorrendbe rendezésére. A munkalapok átrendezésére azonban csak egy módszer létezik az Excelben: a lapok áthúzása a kívánt pozícióba a lap lapfül sávján. Ha egy igazán nagy munkafüzetben a lapok ábécésorrendbe rendezéséről van szó, ez hosszú és hibás út lehet. Időtakarékos alternatívát keres? Csak kettő létezik: VBA kód.vagy harmadik féltől származó eszközökkel.

Hogyan lehet betűrendbe állítani a lapokat az Excelben a VBA-val?

Az alábbiakban három VBA kódpéldát talál az Excel lapok növekvő, csökkenő és a felhasználó választása alapján bármelyik irányba történő rendezéséhez.

Feltételezve, hogy van némi tapasztalatod a VBA-val, csak az alapvető lépéseket fogjuk felvázolni, hogy makrót adj hozzá a munkalapodhoz:

1. Az Excel munkafüzetben nyomja meg az Alt + F11 billentyűkombinációt a Visual Basic szerkesztő megnyitásához.
2. A bal oldali ablaktáblán kattintson a jobb gombbal a ThisWorkbook , majd kattintson a Beillesztés > Modul .
3. Illessze be a VBA-kódot a Kód ablakba.
4. Nyomja meg az F5 billentyűt a makró futtatásához.

A részletes, lépésről-lépésre történő utasításokat lásd: Hogyan illesszünk be és futtassunk VBA-kódot az Excelben.

Tipp: Ha a makrót további felhasználásra szeretné megtartani, mindenképpen mentse el a fájlt Excel makróval rendelkező munkafüzetként (.xlsm).

Alternatív megoldásként letöltheti az Excel lapok ábécésítése munkafüzet mintáját, kérésre engedélyezheti a tartalmat, és közvetlenül onnan futtathatja a kívánt makrót. A munkafüzet a következő makrókat tartalmazza:

• TabsAscending - a lapok ábécé szerinti rendezése A-tól Z-ig.
• TabsDescending - a lapokat fordított sorrendben, Z-től A-ig rendezzük.
• AlphabetizeTabs - a lapok lapjait mindkét irányban, növekvő vagy csökkenő irányban rendezheti.

Ha a mintamunkafüzetet letöltötte és megnyitotta az Excelben, nyissa meg a saját munkafüzetét, ahol a lapokat betűrendbe szeretné rendezni, nyomja meg az Alt + F8 billentyűkombinációt, válassza ki a kívánt makrót, és kattintson a következő gombra. Fuss .

Excel lapok rendezése ábécé szerint A-tól Z-ig

Ez a kis makró az aktuális munkafüzetben lévő lapokat a következők szerint rendezi növekvő alfanumerikus sorrend , először azok a munkalapok, amelyek neve számokkal kezdődik, majd A-tól Z-ig.

Sub TabsAscending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name)> UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next MsgBox "A lapok A-tól Z-ig vannak rendezve." End Sub

Excel lapok rendezése Z-től A-ig

Ha a lapokat a csökkenő alfanumerikus sorrend (Z-től A-ig, majd lapok numerikus nevekkel), majd használja a következő kódot:

Sub TabsDescending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) <UCase$(Application.Sheets(j + 1).Name) Then Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next Next MsgBox "A lapok Z-től A-ig vannak rendezve." End Sub

A lapok ABC-sorrendbe állítása növekvő vagy csökkenő sorrendben

Ez a makró lehetővé teszi a felhasználók számára, hogy eldöntsék, hogyan rendezzék a munkalapokat egy adott munkafüzetben: betűrendben A-tól Z-ig vagy fordított sorrendben.

Mivel az Excel VBA szabványos párbeszédpanelje (MsgBox) csak néhány előre definiált gomb közül választhat, létrehozzuk a saját űrlapunkat (UserForm) három egyéni gombbal: A-tól Z-ig , Z-től A-ig , és Törölje .

Ehhez nyissa meg a Visual Basic szerkesztőt, kattintson a jobb gombbal a ThisWorkbook , és kattintson a Beillesztés > UserForm . Nevezze meg az űrlapot SortOrderFrom , és adjunk hozzá 4 vezérlőelemet: egy címkét és három gombot:

Ezután nyomja meg az F7 billentyűt (vagy kattintson duplán az űrlapra), hogy megnyissa a Kód: ablakban, és illessze be az alábbi kódot. A kód elfogja a gombok kattintásait, és minden egyes gombhoz egyedi címkét rendel:

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

Attól függően, hogy a felhasználó rákattint-e a A-tól Z-ig vagy Z-től A-ig gombot az űrlapon, a lapokat növekvő betűrendben (alapértelmezés szerint be van jelölve) vagy csökkenő betűrendben rendezheti; vagy bezárhatja az űrlapot, és nem csinál semmit, ha a Törölje Ez a következő VBA kóddal történik, amelyet a szokásos módon kell beilleszteni a következő módon Beillesztés > Modul .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Then Exit Sub For x = 1 To Application.Sheets.Count For y = 1 To Application.Sheets.Count - 1 If SortOrder = 1 Then If UCase$(Application.Sheets(y).Name)> 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 Function showUserForm() As Integer showUserForm = 0 Load SortOrderForm SortOrderForm.Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

Ha még nem ismeri jól a VBA-t, egyszerűen letöltheti a Sample Workbook to Alphabetize Tabs (Minta munkafüzet a lapok ábécé szerinti rendezéséhez) fájlt, nyissa meg az Excelben a saját fájlja mellett, ahol a lapokat rendezni szeretné, és futtassa a AlphabetizeTabs makró a munkafüzetből:

Válassza ki a kívánt rendezési sorrendet, mondjuk, A-tól Z-ig , és figyelje meg az eredményeket:

Tipp: A VBA segítségével másolatokat is készíthet az Excel munkalapjairól. A kód itt érhető el: Hogyan duplikáljunk lapot az Excelben VBA-val.

Az Excel lapok ábécé szerinti rendezése az Ultimate Suite segítségével

Az Ultimate Suite for Excel programcsomag felhasználóinak nem kell a VBA-val bíbelődniük - egy többfunkciós Munkafüzet-kezelő áll rendelkezésükre:

Ezzel az Excel szalaghoz hozzáadott eszközzel a lapok ábécésítése egyetlen gombnyomással történik, pontosan úgy, ahogyan azt kell!

Ha kíváncsi erre és több mint 70 további professzionális Excel-eszközre, az Ultimate Suite próbaverziója letölthető innen.

Köszönöm, hogy elolvastátok, és remélem, jövő héten találkozunk a blogon!