
Pencarian memang seringkali diperlukan ketika kita menghadapi sekumpulan data yang luar biasa banyak, dan Microsoft Excel sendiri menawarkan beragam metode atau pendekatan untuk melakuan sebuah pencarian, salah satu yang paling umum adalah melalui fitur Find and Replace yang bisa diakses mengunakan tombol pintas
Memang dalam melakukan sebuah pencarian, ada baiknya menentukan terlebih dahulu apa yang ingin dicari dan hasil apa yang kita inginkan. Kalau hanya sebatas mencari dan mengganti sebuah teks yang terdapat di dalam lembar kerja, maka saya pikir tidak perlu menggunakan formula, atau bahkan mungkin sekumpulan baris kode VBA yang njlimet. Kita hanya perlu menekan tombol
Saya yakin 100% bahwa Microsoft Excel memiliki beragam teknik pencarian selain yang sudah saya sebutkan di atas, terlebih jika hasil dari apa yang kita cari berdasarkan kriteria tertentu, maka
Pendekatan yang ingin saya bahas untuk tutorial kali ini adalah menggunakan fasilitas LOOP, dan lagi-lagi menggunakan Macro VBA untuk mencari data-data berdasarkan kriteria, dimana kriteria tersebut diletakkan dalam deretan kode Macro VBA.
Baca Tutorial Macro VBA Menggunakan Loop Lainnya
Dua cara memisahkan kalimat menjadi per huruf
Silahkan ulangi perintah jika salah!
Membuat kotak pesan secara berulang-ulang
Silahkan lihat data-data berikut:
Kalau anda perhatikan data di atas, Dina adalah salah satu siswa yang mengikuti kegiatan ekstrakurikuler sekolah lebih dari satu, sementara siswa yang lain hanya mengikuti satu macam ekskul saja. Maka, dalam melakukan pencarian, Dina bisa dikategorikan sebagai kriteria pencarian dan hasil dari pencarian tersebut akan menghasilkan ekskul Drumband, PMR, dan Seni Tari.
Jadi, untuk melakukan pencarian dari data-data tersebut, maka sudah bisa dipastikan bahwa fitur Find and Replace tidak bisa memberikan hasil yang diinginkan, dan otomatis opsi yang sangat memungkinkan adalah menggunakan bantuan Macro VBA. Dan, untungnya anda sudah menemukan artikel ini, karena baris kodenya sudah bisa langsung dipraktekkan.
Sub CariLagi() Dim Rng As Range Dim Hsl As Variant For Each Rng In Sheets(1).Range("A2:A9") If Rng.Value = "Dina" Then Hsl = Hsl & Cells(Rng.Row, 2) & vbCr End If Next MsgBox "Jenis ekskul yang di ikuti Dina :" & vbCr & Hsl End SubSebenarnya kriteria pencarian dengan menggunakan metode di atas agak sedikit 'memaksa', karena kita meyakini bahwa "Dina", "dina", atau "diNA" (tidak peduli menggunakan penulisan karakter huruf kecil atau huruf kapital) adalah siswa yang sama. Maka solusi untuk mengatasi permasalahan ini adalah dengan menggunakan Wildcard (baca tutorial wildcard lainnya disini), sehingga hasil penyempurnaan dari baris kode di atas adalah seperti berikut.
Sub CariLagi()
Dim Rng As Range
Dim Hsl As Variant
For Each Rng In Sheets(1).Range("A2:A9")
If Rng.Value Like "*ina" Then
Hsl = Hsl & Cells(Rng.Row, 2) & vbCr
End If
Next
MsgBox "Jenis ekskul yang di ikuti Dina :" & vbCr & Hsl
End Sub
Kesimpulan dari tutorial ini saya kembalikan kepada anda semua, mana dari dua model pencarian di atas yang bagus dan yang terpenting adalah sesuai dengan kebutuhan anda.
Mau lihat tutorial ini di youtube??
Sekarang Anda sudah mengetahui bagaimana caranya untuk melakukan pencarian data menggunakan pendekatan metode Loop (For Each) dengan cepat. Semoga belajar Macro VBA anda bersama excelive untuk edisi ini cukup menyenangkan.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya.
Incoming Search Terms
Mencari Nilai Dari Lembar KerjaMacam-macam Kegiatan Ekstrakurikuler Sekolah
Pencarian Data Berdasarkan Kriteria
Mencari Data-data Ektrakurikuler Dengan Macro VBA
Mencari Nilai Dalam Daftar Data MS Excel
Mencari Jumlah Data Dengan Format Kondisi di Excel
Membuat Search Box untuk Pencarian Data Excel Menggunakan Macro VBA
Terimakasih sudah membaca
Tutorial: Pencarian Berulang-ulang Berdasarkan Kriteria
Label: Loop - Author: excelive
Tutorial: Pencarian Berulang-ulang Berdasarkan Kriteria
Label: Loop - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :