Membuat Form Input Data Excel Dengan Macro

Membuat Form Input Data Excel Dengan Macro - Artikel sederhana untuk dijadikan pembelajaran bagi penulis dan share buat sahabat pembaca guna menambah informasi seputar pengetahuan di microsoft excel, membuat form input layaknya seperti program aplikasi dengan menggunakan bahasa pemrograman khusus,seperti cobol, delphi, visual basic dan bahasa pemrograman lainnya.


Membuat form input data 

Contoh Form Input Data Sederhana

Pada bagian form macro Userform

Langkahnya
1. Buka MS Excel buat halaman, dan ubah nama sheet dengan data

"No, Nama Peserta, NIPP, Program
2. Ubah nama sheet dengan "Data", klik ganda di sheet name atau klik kanan kemudian rename ganti dengan "DATA", (bisa pakai yang lain terserah sahabat).
3. Pada worksheet klik menu view tab macros kemudian view macros

Buat Macro

Di menu macro name, isikan form kemudian klik creat
4. klik kanan VBA Project kemudian pilih insert, kemudian user form
5. silahkan desain userform sesuai dengan keinginan anda, atau desain seperti contoh form input data diatas, dengan menggunakan Label,TextBox, dan CommandBottom, di bagian properties ubah name textbox dan commandbottom :

Label1 caption ubah dengan No
Label2 caption ubah dengan Nama
Label3 caption ubah dengan NIPP
Label4 caption ubah dengan Program

Textbox1 name ubah dengan Tnomor
Textbox2 name ubah dengan Tnama
Textbox3 name ubah dengan TNipp
Textbox3 name ubah dengan Tprogram

CommandButtom1 Caption ubah dengan Keluar, Name ubah dengan CMDExit
CommandButtom2 caption ubah dengan Simpan, Name ubah dengan CMDSave

Jika sahabat membuat sama seperti contoh diatas berikut perintah atau script pada tombol simpan (CMDSave), biar dak susah copas saja kode berikut ini : (klik double tombol simpan/ klik kanan dibagian commandbuttom simpan

Dim IRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATA")

'menemukan baris kosong pada database
IRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check untuk sebuah kode
If Trim(Me.Tnomor.Value) = “” Then
Me.Tnomor.SetFocus
MsgBox "Masukan Kode Barang"
Exit Sub
End If

'copy data ke database
ws.Cells(IRow, 1).Value = Me.Tnomor.Value
ws.Cells(IRow, 2).Value = Me.Tnamapeserta.Value
ws.Cells(IRow, 3).Value = Me.Tnipp.Value
ws.Cells(IRow, 4).Value = Me.Tprogram.Value

'clear Data
Me.Tnomor.Value = “”
Me.Tnamapeserta.Value = “”
Me.Tnipp.Value = “”
Me.Tprogram.Value = “”
Me.Tnomor.SetFocus


Selanjutnya di tombol keluar isi dengan

Unload Me

 selanjutnya di form tambahkan kode berikut

Sub FORM()
UserForm1.Show
End Sub

Langkah terakhir kembali ke halaman worksheet excel, buat tombol bisa gunakan "insert - shapes - rectangle" letakkan di worksheet kemudian arahkan kursor dan klik kanan kemudian pilih "Assign Macro" di bagian macro name pilih "form".

Share this :