MEMBUAT FORM DENGAN EXCEL MACRO
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 Mahasiswa ke
beberapa cells di excel dengan menggunakan "Form Input Data Mahasiswa".
Ya setidaknya kelihatan sedikit keren! Lihat Sreenshoot Aplikasi di bawah ini
Langkah yang harus dilakukan untuk membuat Aplikasi Input Data Mahasiswa dengan Form ini adalah
1.Buat
tabel data mahasiswa yang terdiri dari: Nama (cells
A2), TmptTgl/lhr (cells B2), Alamat (Cells
C2), Jns Kelamin (Cells D2), Agama (Cells
E2), No Hp(Cells F2), dan Jurusan (cells
G2).Langkah yang harus dilakukan untuk membuat Aplikasi Input Data Mahasiswa dengan Form ini adalah
sub klik ()
aziz.Show
end sub3.Setelah itu klik VB(visual Basic).lalu klik insert Userform.
*Gunakan tombol label untuk membuat label seperti : nama, kelas , alamat atau lain2 yang anda butuhkan
*Gunakan tombol texsbox untuk kolom pengisian dari label yang kita buat
*Gunakan tombol commandbutton untul membuat TOMBOL SIMPAN DAN TOMBOL KELUAR
4. Dengan menggunakan Toolbox seperti gambar di bawah Buat Form input data mahasiswa seperti terlihat gambar di bawah ini
Private Sub simpan_Click()
Dim aziz As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")
'menemukan
baris kosong pada database
aziz = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'check
untuk sebuah kode
If Trim(Me.t1.Value) = "" Then
Me.t1.SetFocus
MsgBox
"Isi Data Terlebih Dahulu"
Exit Sub
End If
'copy data ke database
ws.Cells(aziz, 1).Value = Me.t1.Value
ws.Cells(aziz, 2).Value = Me.t2.Value
ws.Cells(aziz, 3).Value = Me.t3.Value
ws.Cells(aziz, 4).Value = Me.t4.Value
ws.Cells(aziz, 5).Value = Me.t5.Value
ws.Cells(aziz, 6).Value = Me.t6.Value
ws.Cells(aziz, 7).Value = Me.t7.Value
'clear
data
Me.t1.Value = ""
Me.t2.Value = ""
Me.t3.Value = ""
Me.t4.Value = ""
Me.t5.Value = ""
Me.t6.Value = ""
Me.t7.Value = ""
Me.t1.SetFocus
End Sub
6. klik pada kolom texbok dan isi pada kolom name dengan (T1 sampai T7) yang semula bertuliskan Teksbox1 .... dst, seprti yg tertulis pada scrip di atas ,7. klik pada formya maka muncul menu2 di samping kiri , isi pada kolom name dengan kata (aziz)
8. Jangan lupa rename kata sheet pada kolom exel bagian bawah dengan kata DATA,
9. pada poin 6,7 dan 8 adalah sebagai kata pemanggil jadi jangan sampai keliru
10. Langkah berikutnya tambahkan script di bawah ini pada Tombol Keluar/Tambah. Private Sub keluar_Click()
Unload Me
End Sub
11. Langkah berikutnya tambahkan script di bawah ini pada Form1. (ini bisa di tambahkan juga bisa tidak)
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If
CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Apakah Yakin Anda Mau Keluar Dari Program
Ini, Tekan Tombol KELUAR!"
End If
End Sub
selanjutnya membuat tombol pemanggil pada exel , pilih insert shapes pilih bentuk yang anda sukai kemudian klik kanan pilih assign macro pilih nama form yang kita buat tadi yaitu kata (KLIK) kemudian klik OK.
12.Simpan dan
Jalankan Macro.
Selesai
….Selamat Mencoba….
