VBA untuk Mengurutkan Tabel di Excel (4 Metode)

Hugh West

18-06-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Menerapkan Makro VBA adalah metode yang paling efektif, tercepat, dan teraman untuk menjalankan operasi apa pun di Excel. Pada artikel ini, kami akan menunjukkan kepada Anda cara mengurutkan tabel di Excel dengan VBA .

Unduh Buku Kerja

Anda bisa mengunduh buku kerja Excel latihan gratis dari sini.

Urutkan Tabel dengan VBA.xlsm

Hal-hal yang Perlu Diketahui Sebelum Menerapkan VBA untuk Mengurutkan Tabel di Excel

Ada beberapa parameter yang harus sering Anda gunakan sewaktu bekerja dengan Sortir metode VBA Jadi di sini kita akan membahas beberapa parameter untuk membuat Anda terbiasa saat Anda menulis kode.

Parameter Wajib/ Opsional Tipe Data Deskripsi
Kunci Opsional Varian Menentukan range atau kolom yang nilainya akan diurutkan.
Pesanan Opsional XlSortOrder Menentukan urutan penyortiran yang akan dilakukan.
  • xlAscending = Untuk mengurutkan dalam urutan menaik.
  • xlMenurun = Untuk mengurutkan dalam urutan menurun.
Header Opsional XlYesNoGuess Menentukan apakah baris pertama berisi header atau tidak.
  • xlTidak = Ketika kolom tidak memiliki header; Nilai default.
  • xlYa = Apabila kolom-kolom memiliki tajuk.
  • xlGuess = Untuk membiarkan Excel menentukan header.

4 Metode dalam Menerapkan VBA untuk Mengurutkan Tabel di Excel

Bagian ini akan menunjukkan kepada Anda cara mengurutkan tabel Excel dengan mempertimbangkan nilai, warna, ikon dan beberapa kolom dengan VBA kode.

1. Sematkan VBA untuk Mengurutkan Tabel berdasarkan Nilai di Excel

Dengan mempertimbangkan contoh berikut ini, kita akan mengurutkan tabel ini berdasarkan nilai hadir di dalam Mark kolom dalam urutan menurun.

Langkah-langkah:

  • Tekan Alt + F11 pada keyboard Anda atau buka tab Pengembang -> Visual Basic untuk membuka Editor Visual Basic .

  • Di jendela kode pop-up, dari bilah menu, klik Sisipkan -> Modul .

  • Salin kode berikut ini dan tempelkan ke jendela kode. 
 Sub SortTableValue() Dim iSheet As Worksheet Dim iTable As ListObject Dim iColumn As Range Set iSheet = ActiveSheet Set iTable = iSheet.ListObjects("SortTBL") Set iColumn = Range("SortTBL[Marks]") With iTable.Sort .SortFields.Clear .SortFields.Add Key:=iColumn, SortOn:=xlSortOnValues, Order:=xlDescending .Header = xlYes .Apply End With End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • SortTBL → Menentukan nama tabel.
  • SortirTBL [Tanda] -> Menentukan nama kolom tabel yang akan diurutkan.
  • Kunci1:=iKolom → Menentukan rentang kolom untuk membiarkan kode mengetahui kolom mana dalam tabel yang akan diurutkan.
  • Urutan1:=xlMenurun → Menentukan urutan sebagai xlMenurun untuk mengurutkan kolom dalam urutan menurun. Jika Anda ingin mengurutkan kolom dalam urutan menaik maka tulislah xlAscending sebagai gantinya.
  • Header:= xlYes → Karena kolom dalam tabel ini memiliki header, maka kita menspesifikasikannya dengan xlYa pilihan.

  • Tekan F5 pada keyboard Anda atau dari bilah menu pilih Jalankan -> Jalankan Sub/UserForm Anda juga bisa mengklik pada ikon Putar kecil di bilah sub-menu untuk menjalankan makro.

Anda akan melihat bahwa kolom dalam tabel Anda sekarang adalah Diurutkan dalam urutan menurun .

Baca Juga: Cara Mengurutkan Data berdasarkan Nilai di Excel (5 Metode Mudah)

2. Masukkan Makro VBA untuk Mengurutkan Tabel untuk Beberapa Kolom

Anda juga bisa mengurutkan tabel untuk beberapa kolom di Excel dengan VBA makro.

Dari tabel di atas, kita akan mengurutkan kolom-kolomnya Nama dan Departemen dalam urutan menaik.

Langkah-langkah:

  • Cara yang sama seperti sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub SortTable() Dim iSheet As Worksheet Dim iTable As ListObject Dim iColumn As Range Set iSheet = ActiveSheet Set iTable = iSheet.ListObjects("NilaiTabel") Set iColumn1 = Range("NilaiTabel[Nama]") Set iColumn2 = Range("NilaiTabel[Jurusan]") With iTable.Sort .SortFields.Clear .SortFields.Add Key:=iColumn1, Order:=xlAscending .SortFields.Add Key:=iColumn2, Order:=xlAscending.Header = xlYes .Apply End With End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • TableValue → Menentukan nama tabel.
  • TableValue[Nama] -> Menentukan nama kolom pertama dari tabel yang akan diurutkan.
  • TableValue[Departemen] -> Menentukan nama kolom kedua dari tabel yang akan diurutkan.
  • Kunci1:=iKolom1 → Menentukan rentang kolom untuk memberi tahu kode bahwa kolom pertama dalam tabel perlu diurutkan.
  • Kunci1:=iKolom2 → Menentukan rentang kolom untuk memberi tahu kode bahwa kolom kedua dalam tabel perlu diurutkan.
  • Order1:=xlAscending → Menentukan urutan sebagai xlAscending untuk mengurutkan kolom dalam urutan menurun. Jika Anda ingin mengurutkan kolom dalam urutan menurun maka tulislah xlMenurun sebagai gantinya.
  • Header:= xlYes → Karena kolom-kolom tabel ini memiliki tajuk, maka kita menspesifikasikannya dengan xlYa pilihan.

  • Lari kode ini dan Anda akan mendapatkan kedua kolom-kolom tabel yang diurutkan dalam urutan menaik.

Baca selengkapnya: Cara Mengurutkan Beberapa Kolom Secara Otomatis di Excel (3 Cara)

Bacaan Serupa

  • Cara Mengurutkan Daftar Unik di Excel (10 Metode Berguna)
  • Urutkan Array dengan Excel VBA (Urutan Naik dan Turun)
  • Cara Mengurutkan dan Menyaring Data di Excel (Panduan Lengkap)
  • Pengurutan Otomatis Excel Saat Data Berubah (9 Contoh)
  • Urutan Acak di Excel (Rumus + VBA)

3. Menerapkan Makro untuk Mengurutkan Tabel berdasarkan Warna Sel di Excel

Anda juga bisa mengurutkan tabel menurut warna sel yang terkandung di dalamnya.

Dengan tabel di atas sebagai contoh, kami akan menunjukkan kepada Anda cara mengurutkannya berdasarkan warna yang dimiliki tabel ini.

Langkah-langkah:

  • Seperti yang ditunjukkan sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub SortTableColor() Dim iSheet As Worksheet Dim iTable As ListObject Dim iColumn As Range Set iSheet = ActiveSheet Set iTable = iSheet.ListObjects("SortTable") Set iColumn = Range("SortTable[Marks]") With iTable.Sort .SortFields.Clear .SortFields.Add(Key:=iColumn, Order:=xlAscending, SortOn:=xlSortOnCellColor).SortOnValue.Color = RGB(248, 203, 173) .SortFields.Add(Key:=iColumn,Order:=xlAscending, SortOn:=xlSortOnCellColor).SortOnValue.Color = RGB(255, 217, 102) .SortFields.Add(Key:=iColumn, Order:=xlAscending, SortOn:=xlSortOnCellColor).SortOnValue.Color = RGB(198, 224, 180) .SortFields.Add(Key:=iColumn, Order:=xlAscending, SortOn:=xlSortOnCellColor).SortOnValue.Color = RGB(180, 198, 231) .Header = xlYes .Apply End With End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini RGB kode yang kami sediakan, Anda dapat menemukannya atau kode lainnya RGB kode yang Anda inginkan dengan mengikuti gif yang diberikan di bawah ini.

  • Cukup klik pada sel berwarna .
  • Dalam Rumah tab, klik pada tab tanda panah di samping Fill Color (Warna Isi) lalu pilih Lebih Banyak Warna Anda akan melihat RGB kode dalam Adat tab yang muncul Warna kotak pop-up.

  • Lari kode ini dan tabel Anda akan menjadi Diurutkan berdasarkan warna .

Baca selengkapnya: Cara Mengurutkan berdasarkan Warna di Excel (4 Kriteria)

4. Terapkan VBA untuk Mengurutkan Tabel Excel dengan Ikon

Misalkan tabel dataset memiliki ikon untuk keterbacaan yang lebih baik. Anda dapat mengurutkan tabel tabel berdasarkan ikon di Excel dengan VBA makro.

Lihatlah dataset di atas. Di sini tabel memiliki ikon di samping nilai angka dalam tabel Tanda kolom sehingga kita dapat memahami siswa mana yang memiliki hasil yang baik, buruk atau rata-rata.

Perhatikan bahwa, jika Anda tidak tahu bagaimana Anda bisa menyisipkan ikon di dalam sel, Anda bisa melakukan ini dengan menggunakan perintah Pemformatan Bersyarat fitur di Excel.

  • Pilih seluruh rentang atau kolom.
  • Pergi ke Pemformatan Bersyarat -> Set Ikon Kemudian pilih set ikon apa pun yang Anda inginkan dari opsi tersebut.

Langkah-langkah untuk mengurutkan tabel berdasarkan ikon diberikan di bawah ini.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub SortTableIcon() Dim iSheet As Worksheet Dim iTable As ListObject Dim iColumn As Range Set iSheet = ActiveSheet Set iTable = iSheet.ListObjects("IconTable") Set iColumn = Range("IconTable[Marks]") With iTable.Sort .SortFields.Clear .SortFields.Add(Key:=iColumn, Order:=xlDescending, SortOn:=xlSortOnIcon).SetIcon Icon:=ActiveWorkbook.IconSets(xl5Arrows).Item(1) .SortFields.Add(Key:=iColumn,Order:=xlDescending, SortOn:=xlSortOnIcon).SetIcon Icon:=ActiveWorkbook.IconSets(xl5Arrows).Item(2)   .SortFields.Add(Key:=iColumn, Order:=xlDescending, SortOn:=xlSortOnIcon).SetIcon Icon:=ActiveWorkbook.IconSets(xl5Arrows).Item(3)   .SortFields.Add(Key:=iColumn, Order:=xlDescending, SortOn:=xlSortOnIcon).SetIcon Icon:=ActiveWorkbook.IconSets(xl5Arrows).Item(4)   .SortFields.Add(Key:=iColumn,Order:=xlDescending, SortOn:=xlSortOnIcon).SetIcon Icon:=ActiveWorkbook.IconSets(xl5Arrows).Item(5) .Header = xlYes .Apply End With End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • xl5 Panah -> Kami memilih set 5 anak panah dari opsi di dalam Pemformatan Bersyarat .
  • Item (1) -> Menentukan pertama jenis ikon panah.
  • Item (2) -> Menentukan kedua jenis ikon panah.
  • Item (3) -> Menentukan ketiga jenis ikon panah.
  • Item (4) -> Menentukan keempat jenis ikon panah.
  • Item (5) -> Menentukan kelima jenis ikon panah.

  • Lari kode ini dan tabel akan menjadi diurutkan berdasarkan ikon .

Baca Lebih Lanjut: Cara Mengurutkan Tabel Secara Otomatis di Excel (5 Metode)

Kesimpulan

Artikel ini menunjukkan kepada Anda cara mengurutkan tabel di Excel VBA Saya harap artikel ini sangat bermanfaat bagi Anda. Jangan ragu untuk bertanya jika Anda memiliki pertanyaan mengenai topik ini.

Postingan sebelumnya Cara Menyalin dan Menempel Tanpa Mengubah Format di Excel
Postingan berikutnya Cara Menemukan Nilai Kritis di Excel (2 Metode Berguna)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.