Mengenal Metode FIND VBA MS.Excel

Posted by Bagus Swara On 2:13 PM

k

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 Sub
Err:

MsgBox Err.Description
End Sub

Post a Comment

:)) ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} :)] ~x( :-t b-( :-L x( :-q =))

Silahkan dishare dan tinggalkan komentar untuk kemajuan blog ini.
Terima kasih atas komentarnya brada.....!

Bagus Swara

Blog ini ane buat dengan tujuan sabagai E-Book electronic jadi siapa saja yang membutuhan artikel yang ada di blog ini silakan di digunkan, semoga apa yang ane sajikan dapat bermanfaat bagi ente semua....Read More

Langganan

Masukan Email Ente:

Postingan terbaru

Koment Terbaru

Followers