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


  1. Buka VB Editor yang ada di menu Developer  dengan cara klik Developer kemudian klik VB(visual Basic).setelah itu 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
  2. Dengan menggunakan Toolbox seperti gambar di bawah Buat Form input data mahasiswa seperti terlihat gambar di bawah ini



  1. 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("MI")
'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
  1. Langkah berikutnya tambahkan script di bawah ini  pada Tombol Keluar/Tambah.

Private Sub keluar_Click()
Unload Me
End Sub
  1. Langkah berikutnya tambahkan script di bawah ini  pada Form1.

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


7.Agar form yang kita buat bisa tampil pada exel maka di perlukan kode untuk pemanggil dengan kode seperti berikut


Private Sub UserForm_Click()
form1.Show
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 kemudian klik OK.


8.Simpan dan Jalankan Macro. Selesai



….Selamat Mencoba….