Ruang Excel : Selamat berjumpa rekan-rekan pencinta microsoft excel, semoga semuanya dalam keadaan sehat wal'afiat sehingga dapat menjalankan aktivitas dalam kesehariannya. Pada kesempatan kali ini saya akan berbagi ilmu bagaimana Cara membuat daftar siswa dengan validasi pada microsoft excel dengan menggunakan formula index dan beberapa formula excel lainnya.

Ok, Kita mulai dari langkah pertama, yakni kita persiapkan sheet1 untuk Data utama (database) dan sheet2 untuk Daftar Siswa (droplists). Silahkan buat tabel data utama (database) pada sheet1 seperti berikut :

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