Cara Menghapuskan tab di Excel dalam urutan menaik dan menurun

Tutorial menunjukkan bagaimana anda dapat dengan cepat menyusun lembaran kerja Excel dalam susunan abjad dengan menggunakan kod VBA dan alat Pengurus Buku Kerja.

Microsoft Excel menyediakan beberapa cara yang cepat dan mudah untuk mengatur lajur atau baris dalam susunan abjad. Tetapi hanya ada satu kaedah untuk menyusun semula lembaran kerja di Excel - seret mereka ke kedudukan yang dikehendaki di bar tab Lembaran. Ketika datang ke tab abjad dalam buku kerja yang sangat besar, ini mungkin cara yang panjang dan salah. Mencari alternatif menjimatkan masa? Terdapat hanya dua: kod VBA atau alat pihak ketiga.

• Menghapuskan tab di Excel dengan VBA
  • Susun tab mengikut abjad dari a hingga z
  • Susun tab lembaran dari z ke a
  • Menghapuskan tab Excel dalam urutan menaik atau menurun
• Susun tab mengikut abjad dengan pengurus buku kerja

Cara Menghapuskan tab di Excel dengan VBA

Di bawah ini anda akan menemui tiga contoh kod VBA untuk menyusun lembaran Excel menaik, turun, dan di mana -mana arah berdasarkan pilihan pengguna.

Menyatakan bahawa anda mempunyai pengalaman dengan VBA, kami hanya akan menggariskan langkah -langkah asas untuk menambah makro ke lembaran kerja anda:

1. Dalam buku kerja Excel anda, tekan Alt F11 untuk membuka editor Visual Basic.
2. Pada anak tetingkap kiri, klik kanan ini , dan kemudian klik Insert > Module .
3. Tampalkan kod VBA dalam tetingkap Kod.
4. Tekan F5 untuk menjalankan makro.

Untuk arahan langkah demi langkah terperinci, sila lihat cara memasukkan dan menjalankan kod VBA dalam Excel.

Petua. Jika anda ingin menyimpan makro untuk kegunaan selanjutnya, pastikan anda menyimpan fail anda sebagai buku kerja yang dibolehkan makro Excel (.xlsm).

Sebagai alternatif, anda boleh memuat turun Buku Kerja Sampel Abjad Excel kami, membolehkan kandungan jika diminta, dan menjalankan makro yang dikehendaki terus dari sana. Buku kerja mengandungi makro berikut:

• Tabsascending - Susun lembaran abjad dari A hingga Z.
• Tabsdescending - Susun lembaran dalam urutan terbalik, dari z ke A.
• Abjadetabs - Susunkan tab Lembaran di kedua -dua arah, menaik atau menurun.

Dengan buku kerja sampel yang dimuat turun dan buka di Excel anda, buka buku kerja anda sendiri di mana anda ingin mengasingkan tab, tekan Alt F8 , pilih makro yang dikehendaki, dan klik Run .

Susun tab Excel mengikut abjad dari a ke z

Makro kecil ini mengatur lembaran dalam buku kerja semasa dalam urutan alfanumerik menaik , lembaran kerja pertama yang namanya bermula dengan nombor, kemudian lembaran dari A hingga Z.

Sub tabsascending () untuk i = 1 ke application.sheets.count untuk j = 1 ke application.sheets.count - 1 jika uCase $ (application.sheets (j) .name) > Ucase $ ( application.sheets (j 1 ) .name) Akhir sub

Susun tab Excel dari z ke a

Jika anda ingin menyusun helaian anda dalam perintah alfanumerik menurun (z ke A, maka lembaran dengan nama angka), kemudian gunakan kod berikut:

Sub tabSdescending () untuk i = 1 ke application.sheets.count untuk j = 1 ke application.sheets.count - 1 jika Ucase $ (aplikasi.sheets (j) .name) uCase $ ( application.sheets (j 1 ) Akhir sub

Menghapuskan tab Menaik atau Menurun

Makro ini membolehkan pengguna anda memutuskan bagaimana untuk menyusun lembaran kerja dalam buku kerja yang diberikan, mengikut abjad dari A hingga Z atau dalam urutan terbalik.

Oleh kerana kotak dialog standard (MSGBox) dalam Excel VBA hanya membolehkan memilih dari beberapa butang yang telah ditetapkan, kami akan membuat borang kami sendiri (UserForm) dengan tiga butang tersuai: A hingga Z , Z ke A , dan Batal .

Untuk ini, buka Editor Visual Basic, klik kanan ini , dan klik Insert > UserForm . Namakan borang anda, dan tambahkan 4 kawalan kepadanya: label dan tiga butang:

Seterusnya, tekan F7 (atau klik dua kali borang) untuk membuka tetingkap kod dan tampal kod di bawah di sana. Kod memintas klik butang dan memberikan tag unik kepada setiap butang:

Commandbutton1_click () me.tag = 1 me.hide sub swasta sub commandbutton2_click () me.tag = 2 me.hide end sub commandbutton3_click ( ) me.tag = 0 me.hide end sub sub sub end end sub sub sub end end

Bergantung pada sama ada pengguna mengklik A ke Z atau Z ke butang pada borang anda, menyusun tab dalam susunan abjad menaik (dipilih secara lalai) atau menuruni urutan abjad; atau menutup borang dan tidak melakukan apa -apa sekiranya membatalkan . Ini dilakukan dengan kod VBA berikut, yang anda masukkan dengan cara biasa melalui MODULE > Modul .

Sub abjadetabs () sortOrder red sebagai integer sortOrder = showUserForm jika sortOrder = 0 kemudian keluar sub untuk x = 1 ke application.sheets.count untuk y = 1 ke application.sheets.count - 1 Jika sortOrder = 1 maka jika uCase $ ( application.sheets (y) .name ) Lain -lain​​​​​​​​​​​​​​​

Sekiranya anda tidak begitu selesa dengan VBA, anda hanya boleh memuat turun buku kerja sampel kami untuk Menghapuskan tab, membukanya di Excel anda bersama fail anda sendiri di mana anda ingin menyusun tab, dan menjalankan Makro Alphabetizetabs dari Buku Kerja anda:

Pilih perintah jenis pilihan, katakan, A hingga z , dan perhatikan hasilnya:

Petua. Dengan VBA, anda juga boleh membuat salinan lembaran kerja Excel anda. Kod ini boleh didapati di sini: Bagaimana untuk menduplikasi lembaran dalam Excel dengan VBA.

Cara menyusun tab Excel mengikut abjad dengan suite muktamad

Pengguna suite muktamad kami untuk Excel tidak perlu biola dengan VBA - mereka mempunyai pengurus buku kerja pelbagai fungsi yang mereka miliki:

Dengan alat ini ditambahkan ke reben Excel anda, tab abjad dilakukan dengan satu klik butang, betul -betul seperti yang sepatutnya!

Sekiranya anda ingin meneroka ini dan 70 alat profesional yang lebih profesional untuk Excel, versi percubaan Suite Ultimate kami tersedia untuk dimuat turun di sini.

Saya mengucapkan terima kasih kerana membaca dan berharap dapat melihat anda di blog kami minggu depan!

Atas ialah kandungan terperinci Cara Menghapuskan tab di Excel dalam urutan menaik dan menurun. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!