Cara Menghapus Filter di Excel VBA (5 Metode Sederhana)

Hugh West

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

Saat bekerja dengan Microsoft Excel Setiap kali kita ingin berkonsentrasi pada elemen-elemen tertentu dalam dataset atau tabel yang besar, teknik ini sangat berguna. Ketika pekerjaan selesai, kita membutuhkan kembali data-data tersebut dalam spreadsheet kita. Meskipun Excel sudah memiliki alat bawaan untuk ini. VBA adalah cara paling efisien, hemat waktu, dan aman untuk melakukan tugas apa pun di Excel. Pada artikel ini, kami akan memberikan beberapa contoh untuk menghapus filter di Excel VBA.

Unduh Buku Kerja Praktik

Anda bisa mengunduh buku kerja dan berlatih dengan mereka.

VBA untuk Menghapus Filter.xlsm

5 Metode Sederhana untuk Menghapus Filter di Excel VBA

Excel memiliki alat dan fungsi bawaan untuk menghapus filter dari data. Excel VBA kita bisa dengan cepat menghapus filter-filter tersebut hanya dengan menjalankan VBA Untuk menghapus filter dari data, kita akan menggunakan dataset berikut ini. Dataset berisi beberapa ID produk di kolom B , nama produk dalam kolom C dan negara pengiriman di kolom D Karena kami hanya ingin melihat detail produk Sampo dan Kondisioner Sekarang, misalkan kita perlu menghapus data yang telah difilter tersebut. Kita akan menggunakan beberapa Makro VBA Excel Mari kita tunjukkan contoh untuk menghapus filter-filter tersebut dari data menggunakan Excel VBA .

1. Terapkan VBA untuk Menghapus Semua Filter Dari Tabel Excel

Dengan Excel VBA pengguna dapat dengan mudah menggunakan kode yang berfungsi sebagai menu excel dari ribbon. Untuk menggunakan kode VBA kode untuk menghapus semua filter dari tabel Excel, mari ikuti langkah-langkahnya.

LANGKAH-LANGKAH:

  • Pertama, buka Pengembang tab dari pita.
  • Kedua, dari Kode kategori, klik pada Visual Basic untuk membuka Editor Visual Basic . atau tekan Alt + F11 untuk membuka Editor Visual Basic .

  • Alih-alih melakukan ini, Anda bisa mengklik kanan pada lembar kerja Anda dan pergi ke Lihat Kode Ini juga akan membawa Anda ke Editor Visual Basic .

  • Ini akan muncul dalam Editor Visual Basic di mana kita menulis kode untuk membuat tabel dari range.
  • Ketiga, klik pada Modul dari Sisipkan bilah menu drop-down.

  • Ini akan menciptakan Modul dalam buku kerja Anda.
  • Dan, salin dan tempelkan VBA kode yang ditunjukkan di bawah ini.

Kode VBA: 

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub
  • Setelah itu, jalankan kode dengan mengklik pada tombol RubSub atau menekan pintasan keyboard F5 .

  • Dan, terakhir, mengikuti langkah-langkah tersebut akan menghapus semua filter dari tabel excel pada lembar kerjamu.

Penjelasan Kode VBA 

 Sub Hapus_Filter1()

Sub adalah bagian dari kode yang digunakan untuk menangani pekerjaan dalam kode tetapi tidak akan mengembalikan nilai apa pun. Ini juga dikenal sebagai subprosedur. Jadi kami menamai prosedur kami Hapus_Filter1() . 

 Dim lstObj Sebagai ListObject

Deklarasi variabel. 

 Set lstObj = Sheet1.ListObjects(1)

VBA Set hanya memungkinkan kita untuk menghindari keharusan mengetikkan rentang yang perlu kita pilih berulang-ulang saat menjalankan kode. Jadi, kami menetapkan referensi ke tabel pertama di lembar. 

 lstObj.AutoFilter.ShowAllData

Baris kode ini akan menghapus semua filter untuk seluruh data. 

 Akhiri Sub

Ini akan mengakhiri prosedur.

Baca selengkapnya: Cara Menghapus Filter di Excel (5 Mudah &; Cara Cepat)

2. Hapus Semua Filter Tabel Excel pada Sheet Menggunakan VBA

Mari kita lihat contoh lain penggunaan Excel VBA untuk menghapus semua filter tabel excel pada suatu sheet. Untuk itu, ikuti langkah-langkah di bawah ini.

LANGKAH-LANGKAH:

  • Pertama, pergi ke Mengembangkan r dari pita.
  • Kedua, klik pada Visual Basic untuk membuka Editor Visual Basic .
  • Cara lain untuk membuka Editor Visual Basic hanya dengan menekan Alt + F11 .
  • Atau, klik kanan pada sheet, lalu pilih Lihat Kode .
  • Selanjutnya, pergi ke Sisipkan dan pilih Modul dari menu drop-down.
  • Dan, ini akan membuka jendela visual basic.
  • Setelah itu, salin dan tempelkan Kode VBA di bawah ini.

Kode VBA: 

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub
  • Selanjutnya, tekan tombol Tombol F5 atau klik pada Jalankan Sub untuk menjalankan kode.

  • Dan, kode ini akan menghapus semua filter tabel excel dari sheet Anda dan memberikan output seperti Metode 1 .

Penjelasan Kode VBA 

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj

Baris-baris kode tersebut mengulang semua tabel pada lembar kerja dan menghapus semua filter untuk seluruh lembar kerja.

Baca selengkapnya: Cara Memfilter Tabel Pivot Excel (8 Cara Efektif)

3. Hapus Filter dari Kolom dengan VBA di Excel

Mari kita lihat sekilas cara lain untuk menghapus filter dari kolom dengan Excel VBA. Mari kita lihat prosedur untuk ini.

LANGKAH-LANGKAH:

  • Untuk memulai, klik tombol Pengembang tab pada pita.
  • Kedua, luncurkan Editor Visual Basic dengan mengklik Visual Basic .
  • Atau, Anda dapat mengakses Editor Visual Basic dengan menekan Alt + F11 .
  • Atau, klik kanan pada lembar dan pilih Lihat Kode dari menu.
  • Berikutnya, pilih Modul dari kotak drop-down di bawah Sisipkan .
  • Dan jendela visual basic akan muncul.
  • Tulis kode di sana.

Kode VBA: 

 Sub Hapus_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub
  • Terakhir, tekan tombol Tombol F5 untuk menjalankan kode.

  • Penggunaan kode ini akan menghapus filter dari suatu kolom dalam tabel excelmu.

Penjelasan Kode VBA 

 Sheet1.Range ("B3:D16").AutoFilter Field:=4

Baris kode ini menentukan nomor bidang saja dan tidak ada parameter lainnya.

Baca selengkapnya: Excel VBA untuk Memfilter di Kolom yang Sama dengan Beberapa Kriteria (6 Contoh)

Bacaan Serupa

  • Excel VBA: Cara Memfilter dengan Beberapa Kriteria dalam Array (7 Cara)
  • Kode VBA untuk Memfilter Data berdasarkan Tanggal di Excel (4 Contoh)
  • Cara Menggunakan Filter di Lembar Excel yang Diproteksi (Dengan Langkah Mudah)
  • Filter Kolom Berbeda dengan Beberapa Kriteria di Excel VBA
  • Kode VBA untuk Memfilter Data di Excel (8 Contoh)

4. Hapus Semua Filter di Lembar Kerja Aktif

Sekarang, lihatlah yang lain Excel VBA untuk menghapus semua filter dari lembar kerja aktif. Mari ikuti langkah-langkahnya.

LANGKAH-LANGKAH:

  • Untuk memulai, buka ribbon dan pilih Pengembang pilihan.
  • Kemudian, untuk mengakses Editor Visual Basic , klik pada Visual Basic .
  • Menekan Alt + F11 juga akan memunculkan Editor Visual Basic .
  • Atau, sebagai alternatif, klik kanan lembar dan pilih Lihat Kode dari menu yang muncul.
  • Sekarang, dari Sisipkan opsi drop-down, pilih Modul .
  • Kemudian salin dan tempelkan VBA kode yang mengikuti.

Kode VBA: 

 Public Sub HapusFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub
  • Jalankan kode dengan menekan tombol F5 kunci.

  • Dan, akhirnya, Anda akan dapat menghapus filter dari data Anda dengan menggunakan ini VBA kode seperti Metode-1 .

Baca Lebih Lanjut: Cara Memfilter menurut Daftar di Lembar Lain di Excel (2 Metode)

5. Excel VBA untuk Menghapus Semua Filter dari Buku Kerja

Mari kita jelajahi satu lagi r Excel VBA cara untuk menghapus semua filter dari buku kerja. Jadi, mari kita lihat langkah-langkahnya.

LANGKAH-LANGKAH:

  • Untuk memulai, buka pita dan pilih Pengembang dari menu drop-down.
  • Kemudian pilih Visual Basic untuk membuka Editor Visual Basic .
  • The Editor Visual Basic juga dapat diakses dengan menekan Alt + F11 .
  • Atau, Anda dapat klik kanan lembar dan pilih Lihat Kode dari menu pop-up.
  • Setelah itu, pilih Modul dari Sisipkan menu drop-down.
  • Kemudian salin dan tempel kode VBA berikut.

Kode VBA: 

 Sub Hapus_Filter_Dari_Buku_Kerja() Dim shtnam As Lembar Kerja Dim lstObj As ListObject Untuk Setiap shtnam In Lembar Kerja Untuk Setiap lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam End Sub
  • Terakhir, jalankan kode dengan menekan F5 pada keyboard Anda dan Anda melihat hasilnya di lembar kerja Anda.

  • Ini VBA kode akan menghapus semua filter dari seluruh buku kerja Anda seperti yang ditunjukkan pada Metode pertama .

Penjelasan Kode VBA 

 For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam

Perulangan pertama adalah untuk mengulang semua tabel di buku kerja. Perulangan kedua adalah untuk mengulang semua tabel di lembar kerja. Kemudian, baris di dalam perulangan hanya menghapus filter dari tabel. Setelah itu, tutup perulangan dengan dua baris terakhir.

Baca selengkapnya: Pintasan untuk Filter Excel (3 Penggunaan Cepat dengan Contoh)

Kesimpulan

Metode di atas akan membantu Anda untuk Hapus Filter di Excel VBA Jika Anda memiliki pertanyaan, saran, atau umpan balik, silakan beri tahu kami di bagian komentar. Atau Anda dapat melihat sekilas artikel kami yang lain di ExcelWIKI.com blog!

Postingan sebelumnya Cara Menambahkan Baris di Excel dengan Formula (5 cara)
Postingan berikutnya Cara Membagi Sel menjadi Dua Baris di Excel (3 cara)

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.