Friday 27 December 2013

Membuat Formulir menggunakan Macro di MS Excell

Dalam proses pemasukan data, terkadang akan terasa merepotka jika harus di isi berulang-ulang dengan menggunakan proses pengetikan biasa, berikut ini adalah cara bagaimana cara membuat formulir pada MS Excell sehingga proses pemasukan data bisa dilakukan dengan lebih cepat



Langkah-langkah :
1.       Ganti Worksheet menjadi Mahasiswa
2.       Beri nama heading dengan  Data Mahasiswa dan isi kolom seperti pada gambar dibawah ini :



3.       Simpan  file save as pilih Excel Macro Enabled Workbook berinama mahasiswa
4.       Langkah selanjutnya adalah membuat macro cara nya pilih tab view --> pilih Macros


5.       Isikan Macro name dengan Form kemudian pilih Create




6.       Klik kanan pada VBAProject kemudian pilih Insert à User Form
7.       Langkah Selanjutnya adalah design formulir seperti pada gambar dibawah ini:





8.       Adapun Properti nya sebagai berikut :
Label1 Caption diganti dengan “No”
Label2 Caption diganti dengan “NIM”
Label3 Caption diganti dengan “Nama”
Label4 Caption diganti dengan “Jurusan”
Label5 Caption diganti dengan “Alamat”

TextBox1 Name diganti dengan “tno”
TextBox2 Name diganti dengan “tnim”
TextBox3 Name diganti dengan “tnama”
TextBox4 Name diganti dengan “tjurusan”
TextBox4 Name diganti dengan “talamat”

command button1 Caption diganti dengan “TAMBAH”
command button1 Name diganti dengan “CMDTMBH”
command button2 Caption diganti dengan “TUTUP”
command button2 Name diganti dengan “CMDTTP”

9.       Langkah selanjutnya adalah membuat kode, cara nya klik kanan button Tambah pilih View Code masukan kode sperti dibawah ini:

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


iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row


If Trim(Me.tno.Value) = "" Then
Me.tno.SetFocus
MsgBox "Masukan Data Mahasiswa"
Exit Sub
End If


ws.Cells(iRow, 1).Value = Me.tno.Value
ws.Cells(iRow, 2).Value = Me.tnim.Value
ws.Cells(iRow, 3).Value = Me.tnama.Value
ws.Cells(iRow, 4).Value = Me.tjurusan.Value
ws.Cells(iRow, 5).Value = Me.talamat.Value


Me.tno.Value = ""
Me.tnim.Value = ""
Me.tnama.Value = ""
Me.tjurusan.Value = ""
Me.talamat.Value = ""
Me.tno.SetFocus
End Sub

10.   Langkah selanjutnya adalah membuat kode untuk tombol (button) Tutup, cara nya klik kanan button Tutup pilih View Code masukan kode sperti dibawah ini:

Private Sub CMDTTP_Click()
Unload Me
End Sub

11.   Menghapus fungsi x  pada formuir dapat dilakukan dengan mengklik kanan pada bagian formulir, pilih View code masukan kode seperti dibawah ini:

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Gunakan Tombol"
End If
End Sub
12.   Masukan kode modul cara nya pilih Modul kemudian View Code seperti pada gambar dibawah ini:






Masukan script berikut ini

Sub FORM()
UserForm1.Show
End Sub





Mengaktifkan formulir yang telah dibuat
Cara mengaktifkan formulir adalah sebagai berikut:
1.       Kembali ke Worksheet  Rectangle  caranya letakan kursor di sembarang tempat pilih menu Insert --> Shapes -->  Rectangles seperti pada gambar dibawah ini:








2.       Rubah teks  Rectangles dengan Masukan data
3.       Klik kanan Rectangles pilih Assign Macro..  seperti pada gambar berikut ini


4.       Pilih Form  kemudian pilih Ok  maka formulir untuk input data akan segera tampil, isi dengan data yang dibutuhkan, lihat hasil dari input data



- Berikut adalah hasil nya:

 



 
 Riki Nuryadin (cukil_riki@yahoo.co.id)



1 comment:

  1. kok setelah melakukan penambahan g bertambah di di data malah mengganti data sebelumnya
    ? knp?

    ReplyDelete

Repositori Institusional Di Perguruan Tinggi

Oleh : Riki Nuryadin riki.nuryadin@upi.edu riki.nuryadin@gmail.com Abstrak: Institusional repositori adalah sebuah wadah o...