Wednesday, July 5, 2017

Cara Filter Kategori Data Dengan Vba Excel Di WorkSheet

Pada posting ini kita akan sama-sama belajar tentang Cara Filter Kategori Data Dengan Vba Excel Di WorkSheet. Secara manual pada Excel sudah tersedia tombol filter pada Tab Data di menu Sort & Filter. Menggunakan tombol tersebut dengan cara memilih/blok area header tabel dan selanjutnya klik pada Filter, pada header tabel akan muncul tanda filter yang selanjutnya dapat kita pilih kategori data apa saja yang ingin difilter. Jika kategori data yang difilter tidak terlalu banyak mungkin dapat dilakukan dengan mudah. Namun jika kategori data telalu banyak, ini hal yang rumit karena setelah melakukan filter data yang tampil adalah data hasil filter saja sementara data yang lain akan disembunyikan. Untuk menampilkan kembali kategori data, kita harus membuka lagi tanda filter dan dan menceklist kembali kategori yang tidak difilter tadi. Begitu seterusnya yang akan dilakukan jika melakukan filter data secara manual.

Bekerja dengan pekerjaan yang setiap hari berhadapan dengan data sudah selayaknya kita merancang sendiri tombol filter yang secara otomatis bekerja lebih mudah dan terlihat profesional dalam mengelola data. Semoga apa yang saya sajikan pada posting ini menjadi referensi bagi anda yang mencari informasi tentang Cara Filter Kategori Data Dengan Vba Excel Di WorkSheet walaupun tulisan yang saya sampaikan sulit di cerna, itu semua dikarenakan saya bukan penulis yang baik. Semua posting yang ada di blog ini hanya untuk menyalurkan hobi saya ngeblog saja. Syukur jika bermanfaat..!!


Langkah - langkah Cara Filter Kategori Data Dengan Vba Excel Di WorkSheet :
  • Ngak pake lama..! Langsung buka Excel dan buat data pada Sheet1 seperti yang terlihat pada gambar gif diatas. Header tabel dimulai dari cell A5 = No, cell B5 = NIS, cell C5 = NISN, cell D5 = Nama Siswa, cell E5 = Kelas, F5 = Tempat Lahir, cell G1 = Tanggal Lahir, dan cell H1 = Jenis Kelamin dan Pada cel E2 tulislah kata PENCARIAN
  • Masukkan 2 Shapes yang akan digunakan sebagai tombol Filter Data dan tombol Show All dengan cara klik tab Insert pilih menu Shapes dan klik pada shapes. Letakkan Shapes yang dipilih sesuai dengan gambar gif diatas.
  • Buatlah data  yang akan dijadikan list pada Validation List dimulai pada cell 05 hingga 0 23 dengan data kelas : "LULUS, Mutasi, IX-B, IX-A, IX-C, NO-INFO, IX-D, IX-E, VIII-A, VIII-B, VIII-C, VIII-D, VIII-F, VIII-E, VII-A, VII-E, VII-B, VII-C, VII-D"
  • kita akan membuat list dengan Data Validation dengan cara pilih cell F2. Selanjutnya klik tab Data pilih Data Validation yang terdapat pada Data Tools. Pada kotak dialog Data Validaton pilih List pada Allow, dan isikan Source dengan range =$O$5:$O$23 yang merupakan daftar list yang akan ditampilkan. Perhatikan gambar dibawah ini.
  • Pada tahap selanjutnya kita akan memasukkan kode Vba untuk tombol Filter Data dan tombol Show All. Klik kanan pada tombol Filter Data pilih Assign Macro pada kotak dialog klik tombol New dan tulislah kode berikut ini pada jendela kode
Sub Rectangle1_Click()
Dim yrange
yrange = Worksheets(1).Range("F2").Value
    ActiveSheet.Range("$D$5:$D$524").AutoFilter Field:=1, Criteria1:=yrange
End Sub

  • Klik kanan pada tombol Show All pilih Assign Macro pada kotak dialog Assign Macro klik tombol New dan tulislah kode berikut ini pada jendela kode
Sub Rectangle2_Click()
 ActiveSheet.Range("$D$5:$D$524").AutoFilter Field:=1
End Sub

Selesai..!! Uji tombol yang sudah dibuat dengan memilih kategori data yang ada pada List dan klik tombol Filter Data. Bila perancangan dan penempatan kode sudah sesuai makan perintah akan berjalan sebagaimana terlihat pada gambar format gif diatas. Demikian posting Cara Filter Kategori Data Dengan Vba Excel Di WorkSheet semoga dapat dijadikan referensi bagi yang mencari informasi. 

Nama Admin Zaki Fitriadi, Pengangguran, Blogger Awam Kelahiran Banda Aceh 1982, Mengenal Blog Tahun 2010, Baru Aktif Tahun 2015, Berbagi Apa Yang Dipejari Secara Otodidak di Dunia Maya

2 komentar

asaalamualaikum..
om admin bagaimana cara sum pada lis box

Penjumlahan angka yang terdapat pada daftar yang ada pada listbox begtu ya maksudnya ?? nti jika kwota internet sudah mencukupi saya akan posting.!! karena hal tersebut pernah ditanyakan oleh pengunjung lain juga.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon