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. 

Cara Membuat Tombol Cari Data Tabel

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 sesuai. 
• 
  
• 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.

Berbagi :