A munkalap füleinek rendezésével a színeket is alkalmazhatja, betűrendben vagy alfanumerikusan is rendezheti őket, mindaddig, amíg egyedi neveket alkalmaztál a munkalapokra. Sajnos az alfabetikusan létrehozott munkalapok lapjait nem építik be az Excelbe, de hozzáadhat egy makrót a munkafüzethez, amely lehetővé teszi a fülek rendezését növekvő vagy csökkenő sorrendben. Megmutatjuk, hogyan adhat hozzá makrót a Microsoft támogatási webhelyén az Excel munkafüzetébe, amely rendezi a munkalap füleit.
Sub Sort_Active_Book() Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult ' ' Prompt the user as which direction they wish to ' sort the worksheets. ' iAnswer = MsgBox('Sort Sheets in Ascending Order?' & Chr(10) _ & 'Clicking No will sort in Descending Order', _ vbYesNoCancel + vbQuestion + vbDefaultButton1, 'Sort Worksheets') For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 ' ' If the answer is Yes, then sort in ascending order. ' If iAnswer = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If ' ' If the answer is No, then sort in descending order. ' ElseIf iAnswer = vbNo Then If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If End If Next j Next i End Sub
A VBA szerkesztő automatikusan minden egyes modult nevez meg egy számmal a végén, mint a Module1, a Module2 stb. Egyszerűen elfogadhatja a modul alapértelmezett nevét. Ha azonban más makrókat szeretne felvenni a munkafüzetbe, célszerű átnevezni az egyes modulokat, hogy tudják, mi is. Módosítjuk a modulunkat, hogy megmutassuk hogyan.
