Tutorial ini menunjukkan bagaimana Anda dapat dengan cepat mengurutkan lembar kerja Excel dalam urutan abjad dengan menggunakan kode VBA dan alat Manajer Buku Kerja.

Microsoft Excel menyediakan sejumlah cara cepat dan mudah untuk mengatur kolom atau baris dalam urutan abjad. Tetapi hanya ada satu metode untuk mengatur ulang lembar kerja di Excel - seret ke posisi yang diinginkan pada bilah tab lembar. Ketika datang untuk mengurutkan tab dalam buku kerja yang sangat besar, ini mungkin cara yang panjang dan salah. Mencari alternatif yang menghemat waktu? Hanya ada dua: kode VBAatau alat bantu pihak ketiga.

Cara membuat abjad tab di Excel dengan VBA

Di bawah ini Anda akan menemukan tiga contoh kode VBA untuk mengurutkan lembar Excel menaik, menurun, dan di kedua arah berdasarkan pilihan pengguna.

Menyiratkan bahwa Anda memiliki pengalaman dengan VBA, kami hanya akan menguraikan langkah-langkah dasar untuk menambahkan makro ke lembar kerja Anda:

1. Di buku kerja Excel Anda, tekan Alt + F11 untuk membuka Editor Visual Basic.
2. Pada panel kiri, klik kanan Buku Kerja ini , lalu klik Sisipkan > Modul .
3. Tempel kode VBA di jendela Code.
4. Tekan F5 untuk menjalankan makro.

Untuk petunjuk langkah demi langkah yang mendetail, silakan lihat Cara menyisipkan dan menjalankan kode VBA di Excel.

Tip. Jika anda ingin menyimpan makro untuk penggunaan lebih lanjut, pastikan untuk menyimpan file anda sebagai buku kerja Excel yang mendukung makro (.xlsm).

Atau, Anda dapat mengunduh contoh buku kerja Alphabetize Excel Tabs kami, mengaktifkan konten jika diminta, dan menjalankan makro yang diinginkan langsung dari sana. Buku kerja berisi makro berikut:

• TabsAscending - mengurutkan lembaran menurut abjad dari A sampai Z.
• TabsMenurun - susun lembaran-lembaran dalam urutan terbalik, dari Z ke A.
• AbjadTabs - mengurutkan tab lembar di kedua arah, naik atau turun.

Dengan buku kerja contoh yang diunduh dan terbuka di Excel Anda, buka buku kerja Anda sendiri tempat Anda ingin membuat abjad tab, tekan Alt + F8 , pilih makro yang diinginkan, dan klik Lari .

Urutkan tab Excel menurut abjad dari A hingga Z

Makro kecil ini mengatur lembaran-lembaran dalam buku kerja saat ini dalam urutan alfanumerik menaik pertama lembar kerja yang namanya diawali dengan angka, kemudian lembar kerja dari A sampai Z.

Sub TabsAscending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name)> UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next MsgBox "Tab-tab telah diurutkan dari A sampai Z." End Sub

Mengatur tab Excel dari Z ke A

Jika Anda ingin menyortir lembaran Anda dalam urutan alfanumerik menurun (Z ke A, kemudian lembar dengan nama numerik), kemudian gunakan kode berikut ini:

Sub TabsDescending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) <UCase$(Application.Sheets(j + 1).Name) Then Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "Tab-tab telah diurutkan dari Z ke A." End Sub

Mengurutkan tab menurut abjad naik atau turun

Makro ini memungkinkan pengguna Anda memutuskan cara mengurutkan lembar kerja dalam buku kerja tertentu, menurut abjad dari A hingga Z atau dalam urutan terbalik.

Karena kotak dialog standar (MsgBox) di Excel VBA hanya memungkinkan memilih dari beberapa tombol yang telah ditentukan sebelumnya, kita akan membuat formulir kita sendiri (UserForm) dengan tiga tombol kustom: A sampai Z , Z ke A dan Batal .

Untuk ini, buka Visual Basic Editor, klik kanan Buku Kerja ini , dan klik Sisipkan > UserForm . beri nama formulir Anda SortOrderFrom dan menambahkan 4 kontrol ke dalamnya: sebuah label dan tiga tombol:

Berikutnya, tekan F7 (atau klik dua kali formulir) untuk membuka Kode Kode ini mencegat klik tombol dan memberikan tag unik ke setiap tombol:

Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click() Me.Tag = 0 Me.Hide End Sub

Tergantung pada apakah pengguna mengklik tombol A sampai Z atau Z ke A pada formulir Anda, mengurutkan tab dalam urutan abjad menaik (dipilih secara default) atau urutan abjad menurun; atau tutup formulir dan tidak melakukan apa pun dalam kasus Batal Ini dilakukan dengan kode VBA berikut ini, yang Anda sisipkan dengan cara biasa melalui Sisipkan > Modul .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Then Exit Sub For x = 1 To Application.Sheets.Count For y = 1 To Application.Sheets.Count - 1 If SortOrder = 1 Then If UCase$(Application.Sheets(y).Name)> UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If ElseIf SortOrder = 2 Then If UCase$(Application.Sheets(y).Name)<UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If End If Next Next End Sub Function showUserForm() As Integer showUserForm = 0 Load SortOrderForm SortOrderForm.Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

Jika Anda belum terlalu nyaman dengan VBA, Anda cukup mengunduh Contoh Buku Kerja kami untuk Mengabjad Tab, membukanya di Excel Anda di samping file Anda sendiri di mana Anda ingin mengurutkan tab, dan jalankan AbjadTabs makro dari buku kerja Anda:

Pilih urutan sortir yang disukai, misalnya, A sampai Z dan amati hasilnya:

Tip. Dengan VBA, Anda juga dapat membuat salinan lembar kerja Excel Anda. Kode tersedia di sini: Cara menduplikasi lembar di Excel dengan VBA.

Cara mengurutkan tab Excel menurut abjad dengan Ultimate Suite

Pengguna Ultimate Suite untuk Excel kami tidak perlu mengutak-atik VBA - mereka memiliki Manajer Buku Kerja multi-fungsi yang dapat mereka gunakan:

Dengan alat ini ditambahkan ke pita Excel Anda, tab alfabetisasi dilakukan dengan satu klik tombol, persis seperti yang seharusnya!

Jika Anda penasaran untuk menjelajahi ini dan 70+ alat profesional lainnya untuk Excel, versi uji coba Ultimate Suite kami tersedia untuk diunduh di sini.

Saya berterima kasih telah membaca dan berharap bisa bertemu Anda di blog kami minggu depan!