Hallo, pada kesempatan kali ini saya akan berbagi Cara Membuat Command Button Pencarian data Siswa Otomatis.
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 :
Baris kode
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 Cara Membuat Command Button Pencarian data Siswa Otomatis yang dapat saya bagikan pada kesempatan kali ini semoga bermanfaat. salam!
