Mengenal Metode FIND VBA MS.Excel

 

Assalamualaikum wr.wb
Dalam MS.Excel metode FIND sangat membantu kita dalam pencarian data dalam lembar kerja Excel. Secara teory, metode ini cara kerjanya hampir sama dengan jika kita menggunakan perulangan (Loops), tapi metode ini jauh lebih cepat dan lebih efisien dari pada looping. Metode FIND ini sangat berguna untuk pencarian data dalam lembar kerja yang cuku banyak dengan data yang tersebar.
Dalam tutorial ini kita akan belajar tentang metode FIND, cara kerjanya, aplikasi dan beberapa contoh 

Metode Find dapat ditulis dengan sintak 

Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat) 

Penjelasan:

1. What (required): Parameter yang akan kita cari parameter ini dapat berupa string, integer dll
Syntax: expression.Find(What:="x")

2. After (optional): Menentukan cell pencarian dimulai, jika parameter tidak ditentukan maka pencarian dimulai dari pojok kiri cell
Syntax: expression.Find(What:=”x”, After:=ActiveCell)

3. LookIn (optional): Jenis data yang akan di cari misal xlFormulas, xlValues...
Syntax: expression.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas) 

4. LookAt (optional): Pencarian diseluruh data atau sebagian data atau kedua-duanya. Nilai: xlWhole and xlPart 
Syntax: expression.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart)

5. SearchOrder(optional): Pencarian berdasarkan baris atau berdasarkan kolom. Nilai xlByRows, xlByColumns
Syntax: expression.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows)

6. SearchDirection(optional): Menentukan jenis pencarian data. xlNext untuk pencarian salanjutnya dan xlPrevious (Untuk pencarian sebelumnya) 
Syntax: expression.Find(What:="x", After:=ActiveCell, LookIn:xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)

7. MatchCase(optional):Apakah pencarian berdasarkan MatchCase apa tidak. Nilai True, False.
Syntax: expression.Find(What:="x", After:=ActiveCell, LookIn:xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)

8. MatchByte(optional): Ini digunakan jika Anda telah menginstal dua jenis karakter set (DBCS). Nilai True, False.

9. SearchFormat(optional):Parameter ini digunakan bila Anda ingin memilih sel dengan properti tertentu. Hal ini digunakan dalam hubungannya dengan properti FindFormat. Katakanlah, Anda memiliki daftar sel dimana satu sel tertentu (atau kisaran sel) dalam Cetak miring. Anda bisa menggunakan properti FindFormat dan set ke miring. Jika Anda kemudian menggunakan parameter SearchFormat di Find, akan memilih sel Miring. Nilai True, False.
Syntax: expression.Find(What:=”x”, After:=ActiveCell, LookIn:xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, MarchByte:=False, SearchFormat:=False)

Contoh Listing Program dalam VBA

Sub Sample2()
Dim oSht As Worksheet
Dim lastRow As Long, i As Long
Dim strSearch As String
Dim aCell As Range
On Error GoTo Err
Set oSht = Sheets("Sheet2")
lastRow = oSht.Range("A" & Rows.Count).End(xlUp).Row
strSearch = "MAX"
Set aCell = oSht.Range("A1:A" & lastRow).Find(What:=strSearch, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not aCell Is Nothing Then
MsgBox "A"
aCell.Formula = Replace(aCell.Formula, strSearch, "SUM")
End If
Exit SubErr:
MsgBox Err.Description
End Sub