Cara Membuat Form Isian Data dengan Macro atau VBA pada Microsoft Excel


Kembali lagi di post terbaru, kali ini kita akan membuat sebuah form isian data dengan menggunakan fitur macro atau VBA pada program aplikasi microsoft excel, langsung saja kita ke langkah-langkah cara pembuatannya


Adapun langkah-langkah pembuatan form sebagai berikut:

1. Pertama, tentu saja kita harus membuka file excel

2. Double Klik di nama worksheet lalu ganti nama yang asalnya Sheet1 menjadi “PARTSDATA” (bisa diganti dengan nama lain).

3.  Pada Row 1 kolom kita buat nama heading untuk tabelnya seperti tampak pada gambar dibawah ini 



4. Selanjutnya, kita simpan dulu file sebagai excel macro, klik file save as, pilih Excel Macro Enabled Workbook, lalu ketik nama file. Disini saya beri nama file “data barang”


5. Langkah berikutnya membuat Macro untuk file tersebut, pada worksheet pilih menu view. Klik tab Macros, pilih view macros :



6. Isikan macro name: “FORM”, lalu klik create:



7. Klik kanan mouse pada VBA Project, Pilih insert, Pilih user form:




8. Langkah selanjutnya adalah design form dengan Control yang akan kita gunakan adalah: Control Label, Textbox dan Command Button seperti tampak pada gambar berikut:



Langkah selanjutnya adalah member nama dan caption untuk tiap label, textbox dan command button
Label1 Caption diganti dengan “Kode”
Label2 Caption diganti dengan “Nama Barang”
Label3 Caption diganti dengan “Satuan”
Label4 Caption diganti dengan “Harga”




TextBox1 Name diganti dengan “tkode”
TextBox2 Name diganti dengan “tnama”
TextBox3 Name diganti dengan “tsatuan”
TextBox4 Name diganti dengan “tharga”


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:

a. Klik command button “TAMBAH “
b. Klik menu bar pilih view code,a tau klik kanan mouse pada tombol “TAMBAH” pilih view code
c. Masukan kode dibawah ini (biar gak cape copy paste saja code dibawah ini):

Private Sub CMDTMBH_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(“PARTSDATA”)
‘menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
‘check untuk sebuah kode
If Trim(Me.tkode.Value) = “” Then
Me.tkode.SetFocus
MsgBox “Masukan Kode Barang”
Exit Sub
End If
‘copy data ke database
ws.Cells(iRow, 1).Value = Me.tkode.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tsatuan.Value
ws.Cells(iRow, 4).Value = Me.tharga.Value
‘clear data
Me.tkode.Value = “”
Me.tnama.Value = “”
Me.tsatuan.Value = “”
Me.tharga.Value = “”
Me.tkode.SetFocus
End Sub


10. Dilanjutkan dengan pengisian code pada tombol tutup langkah seperti nomor 2 diatas dengan kode dibawah ini :

Private Sub CMDTTP_Click()
Unload Me
End Sub


11. Untuk menghindari menutup melalui tanda X pada form masukan kode dibawah ini dengan klik kanan mouse pada form dan pilih view code dan ketikan kode dibawah ini :

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox “MAKE TOMBOL ATUH KANG!”
End If
End Sub


12. Mengisi code pada module klik kanan module pilih view code dan isikan kode dibawah ini :

Sub FORM()
UserForm1.Show
End Sub


Selanjutnya kita tinggal menjalankan macro yang telah kita buat

Untuk mendownload file contoh silahkan klik link ini

Sekian, semoga bermanfaat!

Komentar

Posting Komentar

Postingan populer dari blog ini

Cara Membuat Form Input Data Siswa dengan Macro atau VBA pada Microsoft Excel

Gambar
Selamat siang, readers ! Kali ini, saya akan memberikan tutorial membuat form input data siswa dengan Macro atau VBA pada Microsoft Excel.  Form input data siswa ini berisikan mulai dari NIS, NISN, Nama siswa, Tempat lahir, tanggal lahir, jenis kelamin, alamat, No. HP, No, SKHUN, No. Ijazah, Nama Ibu kandung, tahun lahir ibu kandung, pekerjaan ibu, pendidikan ibu, nama ayah, tahun lahir ayah, pekerjaan ayah, pendidikan ayah, penghasilan orang tua, alamat orang tua. Contoh seperti ini: Baiklah, kita langsung menuju  step-by-step- nya saja, ya! :D STEP 1 Buka file ms. excel baru kemudian aktifkan VBA editor dengan menekan kombinasi keyboard ALT+F11, kemudian cari menu Insert dan klik UserForm. STEP 2 Setelah menyisipkan sebuah form baru, edit ukuran form sesuai dengan kebutuhan kemudian buat sebuah label dengan menggunakan Toolbox, dan letakkan pada Form kemudian ganti Caption menjadi NIS. STEP 3 Setelah label NIS terbuat, silakan buat label berikutnya sesuai dengan F
Baca selengkapnya

Cara Membuat Record Macro

Gambar
Halo, readers!  Pada postingan kali ini, kita akan membuat record macro untuk memudahkan pekerjaan kita pada microsoft excel.  Saya mencontohkan, jika suatu ketika kita diminta mengolah data nilai siswa untuk kepentingan ujian nasional, maka kita bisa menyelesaikannya dengan menggunakan record macro Dari data tersebut akan kita olah menggunakan record macro Langkah pertama  adalah menyederhanakan tabel agar hanya bagian yang penting saja yang akan terolah. Misalnya dari Ilustrasi 1, hapus baris 1 {Semester} dan kolom A {No} sehingga tabel simpel seperti berikut: Selanjutnya adalah mengolah data awal tersebut salah satunya dengan men-TRANSPOSE data agar formatnya mirip dengan format akhir. Ini adalah salah satu langkah alternatif bagi orang awam. Dalam hal ini daftar mata pelajaran semula berada di bagian baris atas diubah menjadi bagian kolom paling kiri, sedangkan kolom nama yang tadinya berada pada kolom kiri diubah menjadi bagian baris di atas.
Baca selengkapnya