MIcrosoft Office Excel 2007

cara membuat aplikasi form input data pada microsoft excel 2017

Aplikasi Excel Form Input Data Siswa dengan Macro

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 NPM (cells A2), Nama (cells B2), Jenpm Kelamin (Cells C2), dan Kelas (cells D2)

2.         Buka VB Editor yang ada di menu Developer. Anda bisa menekan kombinasi

Alt +F11

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 npm'
If Trim(Me.tnpm.Value) = "" Then
Me.tnpm.SetFocus
MsgBox "Masukan NPM terlebih dahulu"
Exit Sub
End If

'copy data ke database siswa'
ws.Cells(iRow, 1).Value = Me.tnpm.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.tnpm.Value = ""
Me.tnama.Value = ""
Me.tkelamin.Value = ""
Me.tkelas.Value = ""
Me.tnpm.SetFocus

End Sub

Private Sub CMDTTP_Click()
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Gunakan Tombol TUTUP PROGRAM untuk Keluar “
End If
End Sub

6.         Simpan dan Jalankan macro.

7.          Selesai