Aplikasi Input Data Siswa Dengan Excel

Membuat Macro Excel dengan menggunakan bahasa pemrograman VB sangat mudah, disini saya akan contohkan bagaimana menginput (memasukan) data siswa ke beberapa cells di excel dengan menggunakan "Form input data siswa". Ya setidaknya kelihatan sedikit keren hehe.... Lihat Sreenshoot Aplikasi di bawah ini


Langkah yang harus dilakukan untuk membuat Aplikasi Data Siswa dengan Form ini adalah

1. Buat tabel data siswa yang terdiri dari NIS (cells A2), Nama (cells B2), Jenis Kelamin (Cells C2), dan Kelas (cells D2)




2. Buka VB Editor yang ada di menu Developer. Anda bisa lihat bagaimana memasukan script vb di excel


3. Copy script di bawah ini pada module1

Sub FORM()
UserForm1.Show
Sheets("sheet1").Select
End Sub

Private Sub bukasheet()
Sheets("DATABASE").Select
UserForm1.Show
End Sub


4. Dengan menggunakan Toolbox seperti gambar di bawah Buat Form input data siswa seperti terlihat gambar di bawah ini





5. Langkah berikutnya tambahkan script di bawah ini

Private Sub CMDTMBH_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATABASE")

'menemukan baris kosong pada database siswa
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check untuk sebuah nis
If Trim(Me.tnis.Value) = "" Then
Me.tnis.SetFocus
MsgBox "Masukan NIS terlebih dahulu"
Exit Sub
End If

'copy data ke database siswa
ws.Cells(iRow, 1).Value = Me.tnis.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tkelamin.Value
ws.Cells(iRow, 4).Value = Me.tkelas.Value

'clear data siswa
Me.tnis.Value = ""
Me.tnama.Value = ""
Me.tkelamin.Value = ""
Me.tkelas.Value = ""
Me.tnis.SetFocus

End Sub

Private Sub CMDTTP_Click()
Unload Me
End Subhttp://www.blogger.com/img/blank.gif

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Gunakan Tombol TUTUP PROGRAM untuk Keluar"http://www.blogger.com/img/blank.gif
End If
End Sub


6. Simpan dan Jalankan macro.
7. Selesai

Sumber