Pored organiziranja kartica radnih listi tako da ih dodate bojama, možete ih poredati abecednim redom ili alfanumeričkim brojem, pod uvjetom da ste primijenili svoje korisničke nazive u svoje radne listove. Nažalost, tablice sortiranja radnih listova abecednim redom nisu ugrađene u Excel, ali možete dodati makronaredbu u radnu knjigu koja će vam omogućiti sortiranje kartica uzlazno ili silazno. Pokazat ćemo vam kako dodati makronaredbu dostupnu na Microsoftovoj web stranici za podršku u Excel radnu knjigu koja će sortirati kartice radnih listova.
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 urednik automatski naziva svaki modul s brojem na kraju, kao što su Module1, Module2 itd. Možete jednostavno prihvatiti zadani naziv modula. Međutim, ako planirate dodati druge makronaredbe u radnu knjigu, preporučujemo da preimenujte svaki modul tako da znate što jesu. Preimenovati ćemo naš modul kako bismo vam pokazali kako.
