CARA MEMBUAT VBA INPUT DATA BARANG MENGGUNAKAN MACRO PADA MS.EXCELL

Assalamualaikum WR WB

Halo gan !!
Kali ini saya kembali membahas tentang tutorial membuat VBA atau (Visual Basic Application)
nah kali ini saya mencontohkan tentang pembuatan applikasi input data Barang.

Langsung saja CEKIDOT !!

1. Membuat Macro

-Pada worksheet pilih menu [View] > [Macros] > [View Macros]

-Isikan macro name “FORM” klik create

-Klik kanan mouse pada VBA Project kemudian pilih [Insert] > [User Form]

-Langkah selanjutnya adalah design form dengan Control yang akan kita gunakan adalah : Control Label, Textbox dan Command Button dan memberi 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”

-Langkah selanjutnya adalah membuat kode
1. Klik command button “TAMBAH “
2. Klik menu bar pilih view code
Atau klik kanan mouse pada tombol “TAMBAH” pilih view code 

3. Masukan kode dibawah ini 

Teman- teman bisa langsung copy paste aja 

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

pengisian code pada tombol tutup 

Private Sub CMDTTP_Click()
Unload Me
End Sub

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

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

Sub FORM()
UserForm1.Show
End Sub

Nah sekian tadi tutorial tentang membuat VBA input data Barang

Jangan lupa untuk save file nya dengan option Macro-Enable.

Sekian dari saya, semoga bermanfaat

Wassalamualaikum WR WB

Link : Download File