Cara Membuat Aplikasi Penerimaan Siswa Baru Menggunakan Excel VB.A

Cara Membuat Aplikasi Penerimaan Siswa Baru Menggunakan Excel

selamat datang di blog yang sedrhana ini pada kesempatan ini saya aka beebagi  bagai mana cara membuat form pendafataran siswa baru pada perguruan tinggi dan jenjang sd sampai sma dan smk,  pada aplikasi ini saya praktekkan pada perguruan tinggi stmik, kebetulan dulu tempat saya kulian dan bekerja sebagi setaf labolaturium di kampus tersebut.

kebetulan pada saat itu tahun ajaran baru, kemudian ada salah satu setaf menugaskan saya membuat form ppdb menggunakan excel, dari itu saya  mencoba peraktik membuat aplikasi tersebut, ternyata bisa jadi juga, he

untuk interfisnya atau tampilan halamannya bisa teman - teman lihat pada gambar di bawah ini.

jika teman- temen ingin peraktek pengen buat aplikasi kayak gini bisa ikutin langkah langkah berikut ini, namun pada saat ini saya tidak menjelaskan secara detail namun saya akan membahasa secara singkat atau initinya saja.

Adapun langkah - langkahnya sebagai berikut :

1. Instal Aplikasi Microsoft Office , cara yang pertama ini temen-temen wajib punya yang namnaya aplikasi microsoft office ini jika belum silahkan di instal dulu di leptopnya, berapapun persinya, mau versi 2013,2007, 2010, 2016 dan selanjutnya,
2. Aktifkan tab developer,  dan yang tidak kalah penting temen- temen harus mengaktifkan tab tersebut, karena pada tab tersebut teman - teman bisa akses tool pada tab developer ,  itu
3. setelah  langkah 1 dan 2 sudah selesai selanjutnya temen-temen buat form yang mirif pada gambar diatas, atau sesuaikan dengan kebutuhan dan keinginan temen-temen.
4. sebelumnya temen-temen buat databasenya seperti dibawah ini, kemudian buat dua tombol, isi data dan identitas,  pada nama tombol terserah  temen-temen sesuaikan kreasinya sesuai dengan keinginannya, bisa di lihat pada gambar di bawah ini :

   5. pada tombol identitas,  jika di kelik akan muncul halaman identitas calom mahasiswa dan siswi, yang sudah di inputkan pada sheet databasenya.

  6. Masukkan kode pada tombol simpan, bagi temen-temen yang tidak mau repot bisa copy dan paste kode di bawah ini.

Private Sub btn_batal_Click()
btn_Cari.Visible = True
btn_keluar.Visible = True
btn_batal.Visible = False
btn_ubah.Visible = False
btn_simpan.Visible = True
btn_hapus.Visible = False
Call hapus
End Sub

Private Sub btn_Cari_Click()
    btn_simpan.Visible = False
    btn_Cari.Visible = False
    btn_keluar.Visible = False
    btn_ubah.Visible = True
    btn_batal.Visible = True
    btn_hapus.Visible = True
    If t_nama.Value = "" Then
        MsgBox "Nama Harus diisi", vbCritical, "Pesan"
        t_nama.SetFocus
        btn_simpan.Visible = True
        btn_Cari.Visible = True
        btn_ubah.Visible = False
        btn_batal.Visible = False
        btn_keluar.Visible = True
        btn_hapus.Visible = False
    Else
    t_nama = t_nama.Value
    With Worksheets("Sheet1").Range("B4:B150")
        Set c = .Find(t_nama, LookIn:=xlValues)
        If Not c Is Nothing Then
            baris = c.Row
            t_nama.Value = Worksheets("Sheet1").Cells(baris, 2).Value
            Me.t_tmpt_lhr.Value = Worksheets("Sheet1").Cells(baris, 3).Value
            Me.t_jk.Value = Worksheets("Sheet1").Cells(baris, 4).Value
            Me.t_agama.Value = Worksheets("Sheet1").Cells(baris, 5).Value
            Me.t_jur.Value = Worksheets("Sheet1").Cells(baris, 6).Value
            Me.t_dusun.Value = Worksheets("Sheet1").Cells(baris, 7).Value
            Me.t_desa.Value = Worksheets("Sheet1").Cells(baris, 8).Value
            Me.t_kec.Value = Worksheets("Sheet1").Cells(baris, 9).Value
            Me.t_kab.Value = Worksheets("Sheet1").Cells(baris, 10).Value
            Me.t_asal_sklh.Value = Worksheets("Sheet1").Cells(baris, 11).Value
            Me.t_jurusan_asal.Value = Worksheets("Sheet1").Cells(baris, 12).Value
            Me.t_no_ijazah.Value = Worksheets("Sheet1").Cells(baris, 13).Value
            Me.t_nama_ayah.Value = Worksheets("Sheet1").Cells(baris, 14).Value
            Me.t_nama_ibu.Value = Worksheets("Sheet1").Cells(baris, 15).Value
            Me.t_p_ayah.Value = Worksheets("Sheet1").Cells(baris, 16).Value
            Me.t_p_ibu.Value = Worksheets("Sheet1").Cells(baris, 17).Value
            Me.t_uang_df.Value = Worksheets("Sheet1").Cells(baris, 18).Value
            Me.t_ijazah.Value = Worksheets("Sheet1").Cells(baris, 19).Value
            Me.t_ktp.Value = Worksheets("Sheet1").Cells(baris, 20).Value
            Me.t_foto.Value = Worksheets("Sheet1").Cells(baris, 21).Value
            Me.t_petugas.Value = Worksheets("Sheet1").Cells(baris, 22).Value
            Me.t_tgl.Value = Worksheets("Sheet1").Cells(baris, 23).Value
       Else
        MsgBox "Nama calon mahasiswa baru belum terdaftar", vbCritical, "Pesan"
        btn_simpan.Visible = True
        btn_Cari.Visible = True
        btn_ubah.Visible = False
        btn_batal.Visible = False
        btn_keluar.Visible = True
        btn_hapus.Visible = False
        End If
    End With
End If
End Sub

Private Sub btn_hapus_Click()
If t_nama.Value = "" Then
    MsgBox "text nama tidak boleh kosng", vbInformation, "Pesan"
    t_nama.SetFocus
Else
        t_nama = t_nama.Value
        With Worksheets("Sheet1").Range("B4:B150")
        Set c = .Find(t_nama, LookIn:=xlValues)
        If Not c Is Nothing Then
        baris = c.Row
        Worksheets("Sheet1").Cells(baris, 2).EntireRow.Delete
        Call hapus
        MsgBox "Data Berhasil dihapus", vbInformation, "Pesan"
        btn_simpan.Visible = True
        btn_Cari.Visible = True
        btn_ubah.Visible = False
        btn_keluar.Visible = True
        btn_batal.Visible = False
        btn_hapus.Visible = False
        End If
        End With
End If
End Sub

Private Sub btn_keluar_Click()
End
End Sub


Private Sub btn_simpan_Click()
Dim emptyRow As Long
'aktifkan Sheet1
Sheet1.Activate

'deteksi baris kosong
emptyRow = WorksheetFunction.CountA(Range("b:b")) + 4

'Simpan data ke sheet1
If Me.t_nama.Value = "" Then
    MsgBox "Nama tidak boleh Kosong", vbInformation, "Pesan"
    Me.t_nama.SetFocus
ElseIf Me.t_tmpt_lhr.Value = "" Then
    MsgBox "Tempat, Tanggal Lahir  tidak boleh Kosong", vbInformation, "Pesan"
    Me.t_tmpt_lhr.SetFocus
Else
Cells(emptyRow, 2).Value = t_nama.Value
Cells(emptyRow, 3).Value = t_tmpt_lhr.Value
Cells(emptyRow, 4).Value = t_jk.Value
Cells(emptyRow, 5).Value = t_agama.Value
Cells(emptyRow, 6).Value = t_jur.Value
Cells(emptyRow, 7).Value = t_dusun.Value
Cells(emptyRow, 8).Value = t_desa.Value
Cells(emptyRow, 9).Value = t_kec.Value
Cells(emptyRow, 10).Value = t_kab.Value
Cells(emptyRow, 11).Value = Me.t_asal_sklh.Value
Cells(emptyRow, 12).Value = Me.t_jurusan_asal.Value
Cells(emptyRow, 13).Value = Me.t_no_ijazah.Value
Cells(emptyRow, 14).Value = Me.t_nama_ayah.Value
Cells(emptyRow, 15).Value = Me.t_nama_ibu.Value
Cells(emptyRow, 16).Value = Me.t_p_ayah.Value
Cells(emptyRow, 17).Value = Me.t_p_ibu.Value
Cells(emptyRow, 18).Value = Me.t_uang_df.Value
Cells(emptyRow, 19).Value = Me.t_ijazah.Value
Cells(emptyRow, 20).Value = Me.t_ktp.Value
Cells(emptyRow, 21).Value = Me.t_foto.Value
Cells(emptyRow, 22).Value = Me.t_petugas.Value
Cells(emptyRow, 23).Value = Me.t_tgl.Value

Call hapus
 MsgBox "Data Berhasil tersimpan", vbInformation, "Pesan"
 Me.t_nama.SetFocus
 End If
End Sub

Private Sub btn_ubah_Click()
btn_batal.Visible = True

t_nama = t_nama.Value
With Worksheets("Sheet1").Range("B4:B150")
Set c = .Find(t_nama, LookIn:=xlValues)
If Not c Is Nothing Then
    baris = c.Row
    Worksheets("Sheet1").Cells(baris, 2).Value = t_nama.Value
    Worksheets("Sheet1").Cells(baris, 3).Value = Me.t_tmpt_lhr.Value
    Worksheets("Sheet1").Cells(baris, 4).Value = t_jk.Value
    Worksheets("Sheet1").Cells(baris, 5).Value = t_agama.Value
    Worksheets("Sheet1").Cells(baris, 6).Value = t_jur.Value
    Worksheets("Sheet1").Cells(baris, 7).Value = t_dusun.Value
    Worksheets("Sheet1").Cells(baris, 8).Value = t_desa.Value
    Worksheets("Sheet1").Cells(baris, 9).Value = t_kec.Value
    Worksheets("Sheet1").Cells(baris, 10).Value = t_kab.Value
    Worksheets("Sheet1").Cells(baris, 11).Value = Me.t_asal_sklh.Value
    Worksheets("Sheet1").Cells(baris, 12).Value = Me.t_jurusan_asal.Value
    Worksheets("Sheet1").Cells(baris, 13).Value = Me.t_no_ijazah.Value
    Worksheets("Sheet1").Cells(baris, 14).Value = Me.t_nama_ayah.Value
    Worksheets("Sheet1").Cells(baris, 15).Value = Me.t_nama_ibu.Value
    Worksheets("Sheet1").Cells(baris, 16).Value = Me.t_p_ayah.Value
    Worksheets("Sheet1").Cells(baris, 17).Value = Me.t_p_ibu.Value
    Worksheets("Sheet1").Cells(baris, 18).Value = Me.t_uang_df.Value
    Worksheets("Sheet1").Cells(baris, 19).Value = t_ijazah.Value
    Worksheets("Sheet1").Cells(baris, 20).Value = t_ktp.Value
    Worksheets("Sheet1").Cells(baris, 21).Value = t_foto.Value
    Worksheets("Sheet1").Cells(baris, 22).Value = Me.t_petugas.Value
    Worksheets("Sheet1").Cells(baris, 23).Value = t_tgl.Value
    Call hapus
    MsgBox "Data Berhasil diubah", vbInformation, "pesan"
    btn_Cari.Visible = True
    btn_ubah.Visible = False
    btn_hapus.Visible = False
    btn_batal.Visible = False
    btn_keluar.Visible = True

End If
End With


btn_keluar.Visible = True
btn_simpan.Visible = True
t_nama.SetFocus

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub UserForm_Initialize()
Me.t_nama.SetFocus
btn_ubah.Visible = False
btn_batal.Visible = False
btn_hapus.Visible = False

With t_foto
    .AddItem "Ada"
    .AddItem "Tidak ada"
End With

With t_ijazah
    .AddItem "Ada"
    .AddItem "Tidak ada"
End With

With t_ktp
    .AddItem "Ada"
    .AddItem "Tidak ada"
End With

With t_jk
    .AddItem "Laki-Laki"
    .AddItem "Perempuan"
End With

With t_jur
    .AddItem "Teknik Informatika"
    .AddItem "Sistem Informasi"
End With

With t_agama
    .AddItem "Islam"
    .AddItem "Hindu"
    .AddItem "Budha"
End With
End Sub
 Sub hapus()
 Me.t_nama.Value = ""
 Me.t_tmpt_lhr.Value = ""
 Me.t_jk.Value = ""
 Me.t_agama.Value = ""
 t_dusun.Value = ""
 t_nama.SetFocus
 t_desa.Value = ""
 t_kec.Value = ""
 t_kab.Value = ""
 t_asal_sklh.Value = ""
 t_jurusan_asal.Value = ""
 t_no_ijazah.Value = ""
 t_nama_ayah.Value = ""
 t_nama_ibu.Value = ""
 t_p_ayah.Value = ""
 t_p_ibu.Value = ""
 t_uang_df.Value = ""
 t_ijazah.Value = ""
 t_ktp.Value = ""
 t_petugas.Value = ""
 Me.t_tgl = ""
 Me.t_foto.Value = ""
 t_jur.Value = ""
 End Sub
 Sub tampil()
 t_nama = t_nama.Value
    With Worksheets("Sheet1").Range("B4:B150")
        Set c = .Find(t_nama, LookIn:=xlValues)
        If Not c Is Nothing Then
            baris = c.Row
            t_nama.Value = Worksheets("Sheet1").Cells(baris, 2).Value
            Me.t_tmpt_lhr.Value = Worksheets("Sheet1").Cells(baris, 3).Value
            Me.t_jk.Value = Worksheets("Sheet1").Cells(baris, 4).Value
            Me.t_agama.Value = Worksheets("Sheet1").Cells(baris, 5).Value
            Me.t_jur.Value = Worksheets("Sheet1").Cells(baris, 6).Value
            Me.t_dusun.Value = Worksheets("Sheet1").Cells(baris, 7).Value
            Me.t_desa.Value = Worksheets("Sheet1").Cells(baris, 8).Value
            Me.t_kec.Value = Worksheets("Sheet1").Cells(baris, 9).Value
            Me.t_kab.Value = Worksheets("Sheet1").Cells(baris, 10).Value
            Me.t_asal_sklh.Value = Worksheets("Sheet1").Cells(baris, 11).Value
            Me.t_jurusan_asal.Value = Worksheets("Sheet1").Cells(baris, 12).Value
            Me.t_no_ijazah.Value = Worksheets("Sheet1").Cells(baris, 13).Value
            Me.t_nama_ayah.Value = Worksheets("Sheet1").Cells(baris, 14).Value
            Me.t_nama_ibu.Value = Worksheets("Sheet1").Cells(baris, 15).Value
            Me.t_p_ayah.Value = Worksheets("Sheet1").Cells(baris, 16).Value
            Me.t_p_ibu.Value = Worksheets("Sheet1").Cells(baris, 17).Value
            Me.t_uang_df.Value = Worksheets("Sheet1").Cells(baris, 18).Value
            Me.t_ijazah.Value = Worksheets("Sheet1").Cells(baris, 19).Value
            Me.t_ktp.Value = Worksheets("Sheet1").Cells(baris, 20).Value
            Me.t_foto.Value = Worksheets("Sheet1").Cells(baris, 21).Value
            Me.t_petugas.Value = Worksheets("Sheet1").Cells(baris, 22).Value
            Me.t_tgl.Value = Worksheets("Sheet1").Cells(baris, 23).Value
 End Sub

Untuk lebih jelasnya bisa temen-temen tonton videonya di bawah ini:

disin kami akan berbagi aplikasi gratiss tanpa bawar membayar, he. bapak dan ibu guru bisa mendownload file dari aplikasi ini, link downloadnya bisa di lihat atau dikunjungi di bawah ini:

file aplikasi absen siswa otomatis menggunakan excel - unduh

file aplikasi absen guru otomatis menggunakan excel - unduh

Aplikasi Administrasi Guru dan TU Menggunakan Excel Secara Otomatis - unduh

Cara Membuat Aplikasi Penerimaan Siswa Baru Menggunakan Excel VB.A - unduh 

demikian untuk artikel kali ini semoga membantu, selamat mendownload, samoai jumpa pada tutorial aplikasi exsel lainnya,, bey , bey

Share this post