Tutorial nunjukkeun kumaha anjeun tiasa gancang nyortir lembar kerja Excel dina urutan abjad nganggo kode VBA sareng alat Workbook Manager.

Microsoft Excel nyayogikeun sababaraha cara anu gancang sareng gampang pikeun ngatur. kolom atawa baris dina urutan abjad. Tapi ngan ukur aya hiji metode pikeun nyusun ulang lembar kerja dina Excel - sered ka posisi anu dipikahoyong dina bar tab lambar. Lamun datang ka alphabetizing tab dina workbook bener badag, ieu bisa jadi cara panjang tur erroneous. Pilari alternatif ngahemat waktos? Ngan aya dua: kode VBA atawa parabot pihak katilu.

Kumaha cara nuliskeun alfabét tab dina Excel jeung VBA

Di handap anjeun bakal manggihan tilu conto kode VBA pikeun nyortir Excel lambar naek, turun, sareng dina dua arah dumasar kana pilihan pangguna.

Nganyatakeun yén anjeun gaduh sababaraha pangalaman sareng VBA, kami ngan bakal ngagariskeun léngkah dasar pikeun nambihan makro kana lembar kerja anjeun:

1. Dina buku kerja Excel anjeun, pencét Alt + F11 pikeun muka Éditor Visual Basic.
2. Dina panel kénca, klik katuhu ThisWorkbook , teras klik Selapkeun > Modul .
3. Tempelkeun kodeu VBA dina jandela Kode.
4. Pencét F5 pikeun ngajalankeun makro.

Pikeun pitunjuk léngkah-léngkah anu lengkep, mangga tingali Kumaha cara nyelapkeun sareng ngajalankeun kode VBA dina Excel.

Tip. Upami Anjeun hoyong nyimpen makro pikeun pamakéan salajengna, pastikeun pikeun nyimpen file Anjeun jadi hiji Excel macro-diaktipkeun workbook (.xlsm).

Alternatipna, anjeun tiasa ngaunduh conto buku kerja Tab Alphabetize Excel, aktipkeun eusi upami dipenta, sareng ngajalankeun makro anu dipikahoyong langsung ti dinya. Buku kerja ngandung makro di handap ieu:

• TabsAscending - nyortir lambar dumasar abjad ti A nepi ka Z.
• TabsDescending - susun lambar dina urutan sabalikna, ti Z nepi ka A.
• AlphabetizeTabs - nyortir tab lambar dina dua arah, naek atawa turun.

Kalayan workbook sampel diundeur jeung dibuka dina Excel anjeun, buka workbook anjeun sorangan dimana anjeun hoyong alphabetize tab, pencét Alt + F8 , pilih makro nu dipikahoyong, teras klik Run .

Susun tab Excel dumasar abjad ti A nepi ka Z

Makro leutik ieu nyusun lambaran dina buku kerja ayeuna dina urutan alfanumerik naek , lembar kerja kahiji anu ngaranna dimimitian ku angka, teras lembar ti A nepi ka Z.

Sub TabsAscending() For i = 1 Pikeun 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).Pindahkeun sanggeus:=Sheets(j + 1) End If Next Next MsgBox "The tabs have sorted from A to Z." End Sub

Atur tab Excel ti Z ka A

Upami anjeun hoyong nyortir lembar anjeun dina urutan alfanumerik turun (Z ka A, teras lembar nganggo nami angka), teras nganggo kode handap:

Sub TabsDescending () Pikeun i = 1 KaApplication.Sheets.Count For j = 1 Pikeun Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Saterusna Application.Sheets(j).Pindahkeun sanggeus:=Application.Sheets(j + 1) End If Next Next MsgBox "The tabs have sorted from Z to A. " End Sub

Tab alfabétis naék atawa turun

Makro ieu ngamungkinkeun pamaké anjeun mutuskeun kumaha nyortir lembar kerja dina buku kerja nu tangtu, dumasar abjad ti A nepi ka Z atawa dina urutan sabalikna.

Ti saprak éta kotak dialog standar (MsgBox) dina Excel VBA ngan ngamungkinkeun milih tina sakeupeul tombol tos siap, urang bakal nyieun formulir urang sorangan (UserForm) kalawan tilu tombol custom: A nepi ka Z , Z nepi ka A , jeung Batalkeun .

Pikeun ieu, buka Visual Basic Editor, klik katuhu ThisWorkbook , terus klik Selapkeun > Bentuk Pamaké . Ngaran formulir anjeun SortOrderFrom , sarta tambahkeun 4 kontrol ka dinya: labél jeung tilu tombol:

Salajengna, pencét F7 (atawa klik dua kali formulir ) pikeun muka jandela Code teras tempelkeun kodeu di handap ieu. Kode intercepts tombol clicks sarta nangtukeun tag unik ka unggal tombol:

Swasta 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

Gumantung naha pamaké ngaklik tombol A nepi ka Z atawa Z nepi ka A dina formulir anjeun, urut tab dinaurutan abjad naek (dipilih sacara standar) atawa urutan abjad turun; atanapi tutup formulir sareng teu ngalakukeun nanaon upami Batalkeun . Hal ieu dilakukeun ku kode VBA di handap ieu, nu anjeun selapkeun dina cara biasa via Selapkeun > Modul .

Sub AlphabetizeTabs() Taram SortOrder Salaku Integer SortOrder = showUserForm Lamun SortOrder = 0 Teras Kaluar Sub Kanggo x = 1 Ka 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).Pindahkeun sanggeus:=Sheets(y + 1) End If ElseIf SortOrder = 2 Then If UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Saterusna Sheets(y).Pindahkeun sanggeus:=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

Upami anjeun teu acan nyaman sareng VBA, anjeun ngan saukur tiasa ngaunduh Buku Sampel kami pikeun Alphabetize Tabs, buka dina Excel anjeun sareng file anjeun nyalira dimana anjeun hoyong. pikeun nyortir tab, tur ngajalankeun makro AlphabetizeTabs tina buku kerja anjeun:

Pilih urutan nu dipikahoyong, sebutkeun, A nepi ka Z , sarta titénan hasilna:

Tip. Kalayan VBA, anjeun ogé tiasa nyiptakeun salinan lembar kerja Excel anjeun. Kodeu sayogi di dieu: Kumahaduplikat lambar dina Excel kalawan VBA.

Kumaha nyortir tab Excel dumasar abjad jeung Ultimate Suite

Pamaké Ultimate Suite kami pikeun Excel teu kudu rebab jeung VBA - aranjeunna gaduh multi -Manajer Workbook fungsional anu tiasa dianggo:

Kalayan alat ieu ditambahkeun kana pita Excel anjeun, tab ngahurupkeun abjad dipigawé ku hiji klik tombol, persis sakumaha sakuduna!

Upami anjeun panasaran pikeun ngajalajah ieu sareng 70+ alat profésional langkung seueur pikeun Excel, vérsi uji coba Ultimate Suite kami sayogi diunduh di dieu.

Abdi hatur nuhun Anjeun pikeun maca sareng ngarepkeun anjeun tiasa ningali dina blog kami minggu payun!