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)