Membuat Aplikasi Pencarian Data Dengan Excel

Programming Excel untuk membuat aplikasi pencarian data telah menjadi kebutuhan yang semakin meningkat dalam beberapa tahun terakhir. Microsoft Excel sebagai perangkat lunak pengolah angka yang paling banyak digunakan di dunia, mampu menyediakan fitur tambahan yang membantu dalam mengoptimalkan penggunaan spreadsheet, salah satunya fitur VBA (Visual Basic Application) yang dapat membantu dalam membuat aplikasi sederhana yang dapat mendukung pengolahan data. Dalam artikel ini, kami akan membahas cara membuat aplikasi pencarian data sederhana dengan menggunakan Excel dan VBA.

Baca Cepat show

Cara Membuat Aplikasi Pencarian Data Dengan Excel

Pertama-tama, sebelum memulai pembuatan aplikasi pencarian data, pastikan Anda memiliki file Excel yang berisi data yang akan diolah dan dicari. Setelah itu, mulailah dengan langkah-langkah berikut:

1. Buat Tombol Untuk Pencarian Data

Pertama, buka file Excel yang akan digunakan sebagai basis untuk aplikasi pencarian data. Kemudian, pilih Developer -> Insert -> Button untuk membuat tombol baru pada spreadsheet. Setelah itu, klik kanan tombol tersebut dan pilih View Code.

Pada jendela VBE (Visual Basic Editor), Anda akan melihat dua bagian: Microsoft Excel Objects dan Project-VBAProject. Pilih sheet yang berisi data yang ingin Anda cari. Kemudian, dengan menggunakan tombol Insert -> Module pada menu bar, buatlah modul baru dengan mengaktifkan tab Code dan mengetikkan kode berikut:

Sub Button1_Click()
Dim searchValue As String
searchValue = InputBox("Masukkan kata kunci pencarian:")
 
        With ActiveSheet
        For Each myRange In .Range("A1:Z1000")
            If myRange.Value = searchValue Then
                MsgBox "Nilai ditemukan pada baris " & myRange.Row
                Exit Sub
            End If
        Next myRange
        MsgBox "Nilai tidak ditemukan", vbExclamation
        End With
End Sub

Penjelasan kode di atas, yaitu:

Dim searchValue As String: Menginisialisasi variabel dengan jenis data String dengan nama “searchValue” yang akan digunakan untuk menyimpan kata kunci.
SearchValue = InputBox (“Masukkan kata kunci pencarian:”): Memunculkan kotak dialog dimana pengguna dapat memasukkan kata kunci yang akan dicari.
With ActiveSheet: Mengontrol data pada sheet yang aktif.
For Each myRange In .Range(“A1:Z1000”): Mengecek setiap sel dari A1 sampai Z1000 pada sheet yang aktif.
If myRange.Value = searchValue Then: Menentukan apakah nilai di dalam sel adalah sama dengan nilai pencarian.
MsgBox “Nilai ditemukan pada baris” & myRange.Row: Menampilkan kotak pesan yang memberi tahu pengguna bahwa nilai ditemukan pada baris tersebut dan menampilkan nomor baris.
Exit Sub: Keluar dari subrutin.
MsgBox “Nilai tidak ditemukan”, vbExclamation: Menampilkan kotak pesan yang memberitahu pengguna bahwa nilai tidak ditemukan.

Baca Juga : Cara Menghitung Di Excel Perkalian

Setelah itu, simpan modul baru yang telah dibuat dengan cara memilih File -> Save. Kemudian, kembali ke Excel dan klik tombol yang telah dibuat untuk mencoba mencari nilai pada file Excel Anda.

2. Membuat Form Pencarian Data

Untuk membuat aplikasi pencarian data yang lebih interaktif, mari kita buat formulir pencarian data. Pertama-tama, buatlah sheet baru di Excel yang diberi nama “Form”. Kemudian, buat form search dengan kedua input box dan tombol OK seperti gambar dibawah ini:

Setelah itu, klik tombol View Code pada jendela VBE. Di dalam modul baru, Anda bisa menambahkan kode berikut:

Option Explicit
Dim ws As Worksheet

Sub SearchForm()
   Dim FindString As String
   Dim Rng As Range
   FindString = Range("B3").Value
   If Trim(FindString) <> "" Then
      With ws.Range("A1:Z1000") 
        Set Rng = .Find(What:=FindString, _
                         After:=.Cells(.Cells.Count), _
                         LookIn:=xlValues, _
                         LookAt:=xlPart, _
                         SearchOrder:=xlByRows, _
                         SearchDirection:=xlNext, _
                         MatchCase:=False)
        If Not Rng Is Nothing Then
            Application.ScreenUpdating = False 
            Rng.Select
            Application.Goto Rng, True
            Selection.Value = Rng.Value 
            Selection.Copy
            Range("B5").Select
            ActiveSheet.Paste
            Application.ScreenUpdating = True 
        Else
            MsgBox "Nilai tidak ditemukan", vbExclamation
        End If
      End With
   End If
End Sub

Sub ResetForm()
   Range("B3:B5").ClearContents
End Sub

Sub CloseForm()
   Unload UserForm1
End Sub

Sub ShowSearchForm()
   Set ws = ActiveSheet
   UserForm.Show
End Sub

Penjelasan kode di atas meliputi:

Option Explicit: Mendeklarasikan semua variabel dan tipe data pada modul VBA.
Dim ws As Worksheet: Mendeklarasikan variabel ws yang akan digunakan pada entire workbook.
SearchForm() Sub: Ini akan menjadi subrutin utama yang mencari nilai yang ditulis pada kotak nilai pencarian dan menampilkan semua hasil dalam kotak komentar.
FindString = Range(“B3”).Value: Menunjukkan nilai pencarian dalam sel tertentu dalam sheet.
If Not Rng Is Nothing Then: Memeriksa apakah nilai telah ditemukan.
Application.ScreenUpdating = False: Agar tidak terlihat perubahan pada spreadsheet selama pencarian.
Rng.Select: Memilih nilai yang telah ditemukan sebagai range.
Application.Goto Rng, True: Menavigasi ke sel yang sesuai dengan nilai yang telah ditemukan.
Selection.Value = Rng.Value: Menempatkan nilai yang telah ditemukan pada kotak komentar.
Range(“B5”).Select: Memilih kotak komentar untuk menyimpan nilai yang ditemukan.
ActiveWorkbook.Paste: Menempatkan nilai yang ditemukan di dalam kotak komentar.
Application.ScreenUpdating = True: Agar perubahan spreadsheet kembali terlihat.
Closing & Resetting Form: Kedua sub rutin ini dimaksudkan untuk menghapus semua data yang dimasukkan dalam formulir pencarian menyembunyikannya.
ShowSearchForm(): Menunjukkan form pencarian pada sheet yang aktif.

Baca Juga : Cara Membuat Interval Pendapatan Dalam Excel

Setelah menambahkan kode di atas ke jendela editor VBE, pilih File -> Save. Kemudian, kembali ke Excel dan aktifkan sheet yang akan digunakan sebagai basis untuk aplikasi pencarian data dan klik tombol Developer -> Insert -> Form.

Selanjutnya, Anda dapat menempatkan kotak yang diperlukan dan menambahkan tombol OK, Reset, dan Close. Namun sebelum itu, pilih Properties pada kotak command yang akan digunakan sebagai OK dan ubahlah nilai pada nama menjadi ‘OKButton’. Pada tombol Reset, masukkan nama ‘ResetButton’; dan pada tombol Close masukkan nama ‘CloseButton’. Setelah selesai, klik kanan form yang baru dibuat dan pilih View Code.

Di dalam jendela VBE tersebut, gunakan kode berikut untuk tombol OK:

Private Sub OKButton_Click()
SearchForm
End Sub

Untuk tombol Reset Code, gunakan kode berikut:

Private Sub ResetButton_Click()
ResetForm
End Sub

Untuk tombol Close Code, gunakan kode berikut:

Private Sub CloseButton_Click()
CloseForm
End Sub

Setelah selesai menambahkan tiga sub-routine untuk tombol, pastikan Anda menyimpan kode yang telah dibuat dengan memilih File -> Save di jendela VBE. Kemudian, Anda dapat memeriksa form pada sheet yang digunakan sebagai dasar dari aplikasi pencarian data.

FAQ

Pertanyaan 1: Apakah saya bisa membuat aplikasi pencarian data yang lebih canggih?

Jawaban: Tentu saja. Dalam artikel ini kami hanya membahas dasar-dasar membuat aplikasi pencarian yang menggunakan VBA Excel. Anda selalu bisa menambahkan fitur tambahan dan lebih kompleks dengan coding VBA yang lebih canggih.

Pertanyaan 2: Bisakah saya memperluas fungsi pencarian data ke seluruh workbook Excel?

Jawaban: Ya, Anda dapat membuat aplikasi pencarian yang mencakup seluruh workbook Excel. Namun, hal tersebut membutuhkan sedikit keterampilan VBA yang lebih maju. Anda perlu menggunakan beberapa fungsi Excel VBA seperti With, End, Left, Right, Mid, RegEx, dan lain-lain.

Baca Juga : CARA MEMBUAT DATA LIST DI EXCEL

Video Tutorial

Untuk lebih memperjelas langkah-langkah di atas, Anda bisa menonton video tutorial di bawah ini:

Kesimpulan

Dengan fitur VBA Excel, Anda dapat membangun berbagai aplikasi sederhana untuk membantu mempermudah pekerjaan di komputer. Dalam artikel ini, kami telah membahas cara membuat aplikasi pencarian data sederhana dengan menggunakan Excel dan VBA yang dapat digunakan pada file Excel yang digunakan sehari-hari.