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).

2.Buka VB Editor yang ada di menu Developer  dengan cara klik Developer kemudian klik Macros akan muncul kolom macros name isi  dengan kata KLIK kemudian klik Insert. akan muncul sebuah script dan isi seperti berikut
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

5. Langkah berikutnya tambahkan script di bawah ini  pada Tombol Simpan/Tambah.

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….