Sunday, July 9, 2017

Cara Membuat Tombol Cari Data Tabel di Excel

Cara Membuat Tombol Cari Data Tabel di Excel - Untuk mencari data di Excel dari tabel data yang terdapat banyak data pada dasarnya sangat mudah. Di Excel sudah tersedia fasilitas Find dengan cara pendam tombol Ctrl + F. Selanjutnya akan muncul DialogBox, tulis kata data yang ingin di cari tekan Enter data pasti ditemukan. Menu Find terletak di Tab Home lihat paling ujung kanan monitor.

Jadi ngapain capek-capek harus bikin rakitan tombol dengan Vba kode ? Tujuan datanya ditemukan. 

Mungkin bagi orang-orang yang suka melakukan experiment. Bagi yang ingin bikin rakitan tombol pencarian data yang terdapat pada tabel silahkan lanjutkan. Perhatikan gambar format gif dibawah. dimana pada cell J2 data siswa yang ingin ditemukan ditulis dan selanjutnya menekan tombok Cari Data. Pada tabel akan menampilkan data yang cocok dengan pencarian, sementara data lainnya disembunyikan sementara. 


Langkah - Langkah Membuat Tombol Cari Data Tabel di Excel :
  • Buka excel, rename Sheet1 menjadi "DataBase" dan buatlah data tabel seperti yang terlihat pada format gif diatas. 
  • Buatlah range yang dibutuhkan dengan cara klik pada Tab Formulas pilih Define Name, muncul kotak dialog isikan Name dan Refers to dengan ketentuan berikut ini 
Name : RangeData
Refers To : =OFFSET(DataBase!$A$2;0;0;COUNTA(DataBase!$A:$A);8)

Name : RangeNama 
dengan Refers To : =OFFSET(DataBase!$C$3;0;0;COUNTA(DataBase!$C:$C);1)
  • Masukkan 2 tombol CommandButton yang terdapat pada ActiveX Control dengan cara klik Tab Developer, pilih menu Insert dan pilih CommandButton ActiveX Control, Drag dengan ukuran yang sesua. Aturlah properties kedua tombol CommandButton dengan cara klik kanan pada tombol CommandButton pilih Properties, pada jendela properties atur sesuai ketentuan berikut
Properties CommandButton
CommandButton1 dengan Caption Cari Data, Properties lain standar
CommandButton2 dengan Caption Show All, Properties lain standar
  • Selanjutnya kita akan menulis kode Vba untuk tombol Cari Data yang akan memberikan perintah pada tombol Cari Data untuk menemukan data yang sesuai dengan yang ada pada cell J2. Klik kanan tombol CommandButton1 dengan Caption Cari Data pilih View Code. Pada jendela Kode silahkan tulis kode berikut ini
Private Sub CommandButton1_Click()
Set WsDataBase = Sheets("DataBase")
Set RgData = WsDataBase.Range("RangeData")
Set RgCari = WsDataBase.Range("J1:J2")
Set RtCari = WsDataBase.Range("J2")
If WsDataBase.Range("B3").Value = "" Then
    MsgBox "Tidak ada data dalam database", vbCritical, "Aplikasi Pencarian "
    Exit Sub
End If
With WsDataBase.Range("RangeNama")
    Set c = .Find(RtCari, LookIn:=xlValues)
    If c Is Nothing Then
        MsgBox "Nama Siswa Tidak Ditemukan", vbCritical, "Aplikasi Pencarian"
        Exit Sub
    Else
        WsDataBase.Range("J2").Value = RtCari
        RgData.AdvancedFilter Action:=xlFilterInPlace, _
            CriteriaRange:=RgCari
    End If
End With
End Sub
  • Klik kanan pada tombol CommandButton2 dengan Caption Show All, pilih View Code dan tuliskan kode berikut ini 
Private Sub CommandButton2_Click()
Set WsDataBase = Sheets("DataBase")
If WsDataBase.FilterMode Then
    WsDataBase.ShowAllData
End If
End Sub

Uji Tombol Cari Data yang telah menerapkan kode Vba, tulis data yang yang akan dicari di cell J2 dan tekan tombol Cari Data. Saat data telah ditemukan maka data lain pada tabel akan disembunyikan. Untuk menampilkan kembali data yang disembuyikan tekan tombol Show All. Jika Range dan penulisan kode sudah benar dan tepat maka tombol Cari Data akan berfungsi sebagaimana yang terlihat pada gambar format gif  diatas.

Demikian Cara Membuat Tombol Cari Data Tabel di Excel. Jika posting ini dirasakan banyak manfaat mohon dapat dishare dengan mengklik tombol share agar yang lain juga tahu caranya. Kirimkan masukkan dan pertanyaan anda dikolom komentar. Semoga  posting Cara Membuat Tombol Cari Data Tabel di Excel menjadi referensi bagi yang ingin capek-capek membuat tombol rakitan Cari Data.

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

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon