TUTORIAL MEMBUAT APLIKASI FORM DENGAN MICROSOFT VIRTUAL BASIC for APPLICATIONS

 

1. Buka Microsoft Excel, lalu ganti nama sheet satu menjadi “PART DATA”, lalu tekan Alt+F11 untuk menuju ke Microsoft Virtual Basic for Aplications , hasilnya akan terlihat seperti ini :


 2. kemudian klik insert dan pilih user form , hasil nya akan terlihat seperti ini :


 3. Kemudian, atur pada lembar kerja menjadi seperti ini. Tambahkan “Labels” untuk menuliskan kode barang, nama barang dsb melalui toolbox. Untuk kotak isian kode, nama, harga barang kita gunakan “Textbox” sedangkan satuan barang kita gunakan “Combobox”. Tombol perintah dapat di masukkan dengan menambah “CommandButton”.


Jangan lupa ganti yang ditandai ini ya. Misal (Name) label Kode Barang menjadi textkode dll. Sesuaikan juga (Name) tiap label dan commandbutton ke kode yang akan kita masukkan ke view code.

4. Lalu klik kanan pada form,  pilih view code, kemudian isikan beberapa kode berikut :

Private Sub Label2_Click()

End Sub

'Private Sub Cbosatuan_Change()

Private Sub UserForm_Initialize()

With Cbosatuan

    .AddItem "Unit"

    .AddItem "Set"

    .AddItem "Pack"

    .AddItem "Kg"

    .AddItem "Meter"

    .AddItem "Liter"

End With

End Sub

Private Sub CMDSELESAI_Click()

Unload Me

End Sub

Private Sub CMDTAMBAH_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("PART DATA")

'untuk menemukan baris kosong pada database

iRow = ws.Cells(Rows.Count, 1) _

.End(xlUp).Offset(1, 0).Row

'untuk mengecek sebuah kode barang

'IfTrim(Me.Textkode.Value)= "" Then

'untuk mengkopy data ke database

ws.Cells(iRow, 1).Value = Me.Textkode.Value

ws.Cells(iRow, 2).Value = Me.Textnama.Value

ws.Cells(iRow, 3).Value = Me.Cbosatuan.Value

ws.Cells(iRow, 4).Value = Me.Textharga.Value

'untuk membersikan form sebelum di tambahkan data baru

Me.Textkode.Value = ""

Me.Textnama.Value = ""

Me.Cbosatuan.Value = ""

Me.Textharga.Value = ""

Me.Textkode.SetFocus

End Sub

Private Sub Texthargabarang_Click()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox "Oy Apodio, Klik SELESAI tu naa"

End If

End Sub

Hasilnya akan seperti ini :

 

5. Kemudian klik run,  hasilnya akan terlihat seperti ini :

 

6. Lalu atur pada ms excel menjadi seperti ini :

 

7. Kemudian pada shape klik kanan , dan pilh assign macro, hasinya akan terlihat seperti ini :

 

8. Lalu pilih edit, dan masukkan kode sebagai berikut :

 

9. Lalu klik run untuk menjalankan aplikasi, dan hasilnya akan menjadi seperti ini :

 

SEKIAN dari saya semoga bermanfaat

 

 

Related Post: