Selain mengatur tab lembar kerja Anda dengan menerapkan warna pada mereka, Anda juga dapat mengurutkan secara alfabet atau alfanumerik, selama Anda telah menerapkan nama khusus ke lembar kerja Anda. Sayangnya, menyortir tab lembar kerja secara abjad tidak dibuat di Excel, tetapi Anda dapat menambahkan makro ke buku kerja Anda yang akan memungkinkan Anda mengurutkan tab dalam urutan menaik atau menurun. Kami akan menunjukkan kepada Anda cara menambahkan makro yang tersedia di situs dukungan Microsoft ke buku kerja Excel Anda yang akan mengurutkan tab lembar kerja Anda.
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 secara otomatis memberi nama setiap modul dengan nomor di bagian akhir, seperti Module1, Module2, dll. Anda cukup menerima nama default dari modul. Namun, jika Anda berencana menambahkan makro lain ke buku kerja Anda, ada baiknya untuk mengganti nama setiap modul sehingga Anda tahu apa itu modul. Kami akan mengganti nama modul kami untuk menunjukkan caranya.
Ketik nama untuk modul di kotak Nama dan tekan Enter. Perhatikan bahwa nama modul tidak boleh berisi spasi.
