I tillegg til å organisere regneark-fanene dine ved å bruke farger på dem, kan du også sortere dem alfabetisk eller alfanumerisk, så lenge du har brukt egendefinerte navn på regnearkene dine. Dessverre er ikke sortering av regnearkfaner alfabetisk bygget inn i Excel, men du kan legge til en makro i arbeidsboken din som lar deg sortere kategoriene dine i stigende eller synkende rekkefølge. Vi viser deg hvordan du legger til en makro som er tilgjengelig på Microsofts støtteside i Excel-arbeidsboken din, som vil sortere arbeidsark-fanene dine.
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
VBA-redigereren kaller hver modul automatisk med et nummer på enden, for eksempel Module1, Module2, etc. Du kan bare godta standardnavnet på modulen. Men hvis du planlegger å legge til andre makroer i arbeidsboken din, er det en god idé å omdøpe hver modul slik at du vet hva de er. Vi omdøper modulen vår for å vise deg hvordan.
Skriv inn et navn for modulen i Navn-boksen og trykk Enter. Merk at modulnavnet ikke kan inneholde mellomrom.
