Membuat Filter Data Dengan Menggunakan VBA Pada Ms. Excel

pada tanggal

Filter data cara kerjanya berfungsi untuk menyaring data-data yang memiliki kriteria tertentu.  Di dalam tutorial ini akan dijelaskan salah satu contoh cara membuatnya pada Ms. Excel mungkin temen-temen suatu saat dapat menggukanya.

Langkah 1 : Membuat Name Range Pada Setiap Tabel Data Yang Dikehendaki

Pembuatan NameRange ini sangat penting karena akan digunakan dalam pembuatan script di dalam VBA. Cara memberikan NameRange pada tabel yang akan disaring misalya seperti ini,

Tabel ini belum dinamai NameRangenya, lalu kita namai NameRange nya dengan cara :

Cara 1 : Blok semua data yang ada >> klik formulas pada menu bar >> klik Name Manager.

Setelah itu akan muncul kotak dialog seperti ini lalu kita klik New

<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>

Lalu kita ganti name nya terus klik OK

Cara 2 : Blok semua data yang ada >> ketik pada sebelah kiri formula bar dengan nama misalnya "DataSales"

Dengan cara yang sama, lalu kita memberikan penamaan NameRange pada tabel data yang lain, misalnya seperti dalam tabel berikut ini,

Pada contoh tutorial ini hanya terdiri dari CellFilter dan TabelHasil. CellFilter berfungsi sebagai input kriteria yang ingin kita cari, Sedangkan TabelHasil berfungsi untuk menampilkan data-data apa saja yang akan ditampilkan berdasarkan kriteria pada cellFilter nya yang terdapat pada tabel misalnya DataSales. Selanjutnya Kita beri nama NameRange nya seperti contoh sebelumnya.

<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>

Langkah 2 : Membuat Script dengan VBA

Masuk kedalam VBA dengan cara mengklik VisualBasic pada menu Developers. Jika temen-temen belum menapilkan menu Developer pada menu bar untuk menampilkannya maka temen-temen dapat klik :

  1. Klik Menu File
  2. Klik Option
  3. Klik CustomizeRibbon
  4. Pada Kolom Main Tabs di klik dan centang Developer.

Atau dapat juga masuk ke dalam Visual Basic dengan caranya tekan Alt + F11.

Selanjutnya klik kanan file project kita "Microsoft File Object" >> klik Insert >> Module

Sehingga muncul tampilan lembar penulisan script seperti ini :


Selanjutnya kita buat script seperti ini bisa di copypaste :

Sub FilterData_Click()
Range("DataSales").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("CellFilter"), CopyToRange:=Range("TabelHasil"), Unique:=False
End Sub

Setelah selesai kita klik file >> Save.

Langkah 3 : Membuat Tombol Perintah Pencarian

Tombol perintah filter data berfungsi untuk memerintahkan agar saat diklik aplikasi langsung dapat menjalankan fungsinya sebagai filter data. Cara membuatnya antara lain :

Klik Menu Developer >> Insert >> klik Button (Form Control)

Selanjutnya kita letakkan tombol tersebut dimana pun yang kita inginkan serta berilah nama Captionya dan kita pilih nama script yang sudah kita buat tadi lalu klik OK

 

Selesai...

Selanjutnya kita simpan hasil kerja kita tersebut kedalam format Excel Macro - Enable WorkSheet

Jika temen-temen masih bingung silahkan download contoh dibawah ini : klik


Komentar

Posting Komentar