Ruangexcel.blogspot.com : Dalam setiap aplikasi database peserta didik pada masing-masing lembaga pendidikan pasti terdapat berbagai macam format berupa data siswa seperti daftar absen, biodata per individu dan sebagainya. nah, pada kesempatan kali ini, saya akan mencoba untuk berbagi beberapa cara untuk mencari data siswa per individu berupa biodata. Mari kita ikuti langkah-langkah membuat daftar pencarian data dengan menggunakan atau memanfaatkan visual basic berikut ini :

Pertama, buka lembar kerja microsoft excel dan buat lembar sheet FORM dan DATABASE.

Kedua, setelah kita membuat lembar kerja pada langkah pertama, kita buat format data utama siswa (database) dan format biodata (Form Data Pencarian).. Format Form bisa ikuti seperti gambar form di atas dan sheet Database mulai isi data dari cell A2:G8 kemudian save dalam bentuk macro-enabled worksheet.

Ketiga, buka kembali lembar file microsoft excel yang barusan dibuat dan buat CommandButton dan masukan kode scrip berikut :

Dim WRisi, WRdata As Worksheet
Dim I, KL, RB, NM, IA, xs
Dim BARIS, KOLOM
Dim urut
Dim pesane
Private Sub CommandButton1_Click()
    Set WRisi = Worksheets("FORM")
    Set WRdata = Worksheets("DATABASE")
   
    If Label1.Caption = "NAMA" Then
        For I = 1 To 200000
            RB = 2
            If WRdata.Cells(I, 5).Value = WRisi.Range("D8").Value Then
                For IA = 11 To 40
                    RB = RB + 1
                    WRisi.Cells(IA, 4).Value = WRdata.Cells(I, RB).Value
                Next IA
                Exit Sub
            End If
        Next I
    Else
        For I = 1 To 200000
            RB = 2
            If WRdata.Cells(I, 3).Value = WRisi.Range("D8").Value Then
                For IA = 11 To 40
                    RB = RB + 1
                    WRisi.Cells(IA, 4).Value = WRdata.Cells(I, RB).Value
                Next IA
                Exit Sub
            End If
        Next I
    End If
End Sub

Private Sub Label1_Click()
    If Label1.Caption = "NAMA" Then
        Label1.Caption = "NIS"
    Else
        Label1.Caption = "NAMA"
    End If
End Sub

Demikian berbagi pada kesempatan kali ini semoga bermanfaat. Contoh file pencarian data siswa unduh Command Button Pencarian data Siswa Otomatis

Langkah Pertama, Membuat Tabel Database. Sebelum kita menggunakan fitur form ini, terlebih dahulu kita harus menentukan jumlah kolom tabel yang akan digunakan. Contohnya: jika kita ingin membuat 8 kolom isian, maka kita blok kolom A hingga kolom H, kemudian tampilkan kotak dialog 'Create Table' dengan memilih menu: Insert > Tables > Table, Lalu klik 'OK'. Selanjutnya kita tinggal mengubah tulisan 'Column1' dan seterusnya sesuai dengan judul masing-masing kolom.

Langkah Kedua, Kita menampilkan Icon Form. Pada awalnya menu perintah Form ini tidak ditampilkan pada menu di bagian sudut kiri atas (menu Ribbon), maka untuk dapat menampilkannya mari kita ikuti langkah-langka berikut:

Pertama, Klik tanda panah kecil pada menu Ribbon lalu pilih 'More Commands...'(seperti terlihat dalam gambar di atas). Selanjutnya akan tampil kotak dialog 'Excel Options' yang menyorot menu 'Quick Access Toolbar'.

Kedua, Pada menu drop-down di bawah tulisan 'Choose commands from:', kita pilih 'Commands Not in the Ribbon', kemudian temukan dan pilih menu Form...' pada kotak daftar di sebelah kiri. Selanjutnya klik tombol 'Add >>', maka menu 'Form...' tersebut tampil di kotak daftar di sebelah kanan.

Ketiga, Klik 'OK' dan icon telah berhasil kita aktifkan (terlihat seperti pada gambar di bawah ini) Setelah kita melakukan langkah tersebut diatas, ketika menu icon Form kita klik, maka form entri data ditampilkan dengan isian sesuai judul kolom tabel yang kita buat sebelumnya.

Melalui kotak dialog form ini, kita tidak hanya dapat membuat entri data, akan tetapi dapat pula meng-edit data yang telah tercatat pada daftar, menghapus data juga dapat mencari dan menampilkan data sesuai dengan kriteria yang kita tentukan. 

Adapun kriteria tersebut, misalnya: setelah kita meng-klik tombol 'Criteria', agar dapat menampilkan data dengan nama berawalan huruf 'H', maka pada isian Nama ketik H lalu kita dapat mengklik tombol 'Find Next' atau 'Find Prev' untuk menampilkan data khusus yang telah terpilih. Untuk mencari atau menghapus entri tertentu pada tabel Excel melalui tombol Form, kita dapat mengikuti langkah-langkah seperti contoh yang ditunjukkan pada video tutorial di bawah ini.

Video Tutorial Membuat Menu Form Input, Cari, dan Hapus Data tanpa Rumus dan Kode vba