Okrem usporiadania kariet pracovného hárku tak, že ich aplikujete do farieb, môžete ich aj zoradiť abecedne alebo alfanumericky, pokiaľ používate vlastné mená na pracovných hárkoch. Bohužiaľ, zoradenie kariet pracovných hárkov abecedne nie je zabudované do programu Excel, ale do svojho zošita môžete pridať makro, ktoré vám umožní usporiadať karty vo vzostupnom alebo zostupnom poradí. Ukážeme vám, ako pridať makro, ktoré je k dispozícii na webovej lokalite podpory spoločnosti Microsoft, do zošita programu Excel, ktoré zoraďuje záložky pracovného hárka.
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
Editor VBA automaticky označuje každý modul s číslom na konci, napríklad Module1, Module2 atď. Môžete jednoducho prijať predvolený názov modulu. Ak však chcete do svojho zošita pridať ďalšie makrá, je dobré premenovať každý modul tak, aby ste vedeli, aké sú. Premenujeme náš modul a ukážeme vám ako.
