MEMBUAT FUNGSI FIND / MENCARI DATA DI FORM EXCEL

Macro Pencari Data

Kode Macro berikut ini adalah kode Macro untuk mencari data dalam sebuah sheet (lembar kerja). Di Excel biasanya kita menggunakan perintah Ctrl F7, lalu mengetik data yang hendak kita cari. Perintah pengganti Ctrl F7 ini juga dapat dijalankan dengan menggunakan perintah Macro. Ada sedikit perbedaan hasil pencarian jika anda menggunakan kode ini dengan menggunakan perintah Ctrl F7. Bagaimana caranya dan apa bedanya???Ikuti mantra berikut ini:

• Pertama, buka sebuah sheet lembar kerja, lalu ketik beberapa nama di sel A1 sampai A10 seperti gambar berikut:

• Klik Tool==>Macro==>Visual Basic Editor
• Pada jendela program ketik kode berikut

Sub Cari_Data()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Masukkan Data Yang Akan Dicari")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("A:A") <===Range bisa diganti menjadi ("A:C") dsb
Set Rng = .Find(What:=FindString, _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Data Tidak Ada"
End If
End With
End If
End Sub

Lalu jalankan Macro seperti biasa, Pilih Tool==>Macro==>Pilih Macro Cari_Data
Maka akan muncul sebuah kotak Input Box seperti gambar berikut:

Atau jalankan melalui klik tombol CommandButton, adapun caranya sudah sudah diposting pada Cara Lain Menjalankan Macro-1. Lalu ketik sebuah nama yang hendak anda cari, misalnya ketik Rooney

Maka hasilnya akan menjadi seperti ini:

Data yang dicari --Rooney--muncul di posisi paling atas dari sheet kerja. Jika ingin kembali anda tinggal scroll ke atas
Bedanya dengan menggunakan perintah Ctrl F7 adalah:

Sudah jelaskan bedanya?