Lomakkeiden välilehtien järjestämisen lisäksi voit myös lajitella ne aakkosjärjestykseen tai aakkosnumeerisesti, kunhan olet käyttänyt mukautettuja nimeä laskentataulukoihin. Valitettavasti laskentataulukot lajitellaan aakkosjärjestykseen Exceliin, mutta voit lisätä makron työkirjaan, jonka avulla voit lajitella välilehdesi ylöspäin tai laskevassa järjestyksessä. Näytämme, kuinka voit lisätä makron Microsoftin tukisivustossa Excel-työkirjallesi, joka lajittelee laskentataulukot.
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-editori nimeää automaattisesti jokaisen moduulin numeron loppuun, kuten Module1, Module2 jne. Voit yksinkertaisesti hyväksyä moduulin oletusnimi. Jos kuitenkin haluat lisätä muita makroja työkirjaan, kannattaa nimetä kaikki moduulit uudelleen, jotta tiedät, mitä he ovat. Nimeämme moduulimme uudelleen ja näytämme sinulle miten.
