Membuat Form Isian data (Entri Data Barang VBA Excel)

Berikut langkah-langkahnya :

1. Buka Aplikasi Microsoft Excel
2. Ubah nama sheet1 terlebih dahulu (terserah dengan nama apa, misalnya "DATABARANG")
3. Kemudian ketikkan Kode Barang, Nama Barang, Satuan, dan Harga Barang pada excel
   
4. Setelah itu pilih Tab View pada excel, klik macros, dan akan muncul jendela seperti dibawah ini, lalu klik tombol create
   
5. Save terlebih dahulu lembar kerja excel dan pilih typenya Excel Macro Enabled Workbook, dan buat nama filenya misalnya DATABARANG
6. Langsung menuju Tab Developer, pilih Visual Basic, lalu Insert UserForm, buatlah Desain pada UserForm seperti dibawah ini :
   
7. Pada Gambar di atas, untuk judul (APLIKASI ENTRI DATA BARANG), Kode Barang, Nama Barang, Satuan Barang, dan Harga Barang menggunakan label pada ToolBox, nanti tinggal di ganti namanya saja. yang berada disamping Kode Barang, Nama Barang, dan Harga Barang menggunakan TextBox, yang berada disamping Satuan Barang itu menggunakan ComboBox, sedangkan untuk Tambah Data dan Selesai menggunakan CommandButton
8. Masing-masing kotak diklik dan ubah namanya pada properties, seperti ini :
   
9. KODE BARANG = Textkodebarang, yang disampingnya menjadi Textkode
10. NAMA BARANG = Textnamabarang, yang disampingnya menjadi Textnama
11. SATUAN BARANG = Cmdsatuanbarang, yang disampingnya menjadi Cbosatuan
12. HARGA BARANG = Texthargabarang, yang disampingnya menjadi Textharga
13. TAMBAH DATA = Cmdtambah dan SELESAI = Cmdselesai
14. Setelah langkah di atas selesai, selanjutnya adalah coding yaitu dengan klik kanan pada UserForm 1 dan pilih View Code, dan isi kodenya, jangan lupa di save
    
15. Kemudian, double klik pada TAMBAH DATA di UserForm dan isi kodenya, lalu save lagi
    
16. Double klik pada SELESAI, isi kodenya dan save
    
17. Dibagian paling akhir, ketik juga kode ini :
    
18. Private Sub CommandButton1_Click()
    
    
    End Sub
    
    
    Private Sub CommandButton2_Click()
    
    
    End Sub
    
    
    Private Sub Cmbsatuan_Change()
    
    
    End Sub
    
    
    Private Sub Cmdsatuanbarang_Click()
    
    
    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("DATABARANG")
    
    
    'untuk memberikan baris kosong pada database
    iRow = ws.Cells(Rows.Count, 1) _
    .End(xlUp).Offset(1, 0).Row
    
    
    'untuk mengecek sebuah kode barang
    'If Trim(Me.Textkode.Value) = "" Then
    
    
    'untuk mengkopi 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 membersihkan form sebelum ditambahkan data baru
    Me.Textkode.Value = ""
    Me.Textnama.Value = ""
    Me.Cbosatuan.Value = ""
    Me.Textharga.Value = ""
    
    
    Me.Textkode.SetFocus
    
    
    End Sub
    
    
    Private Sub Label1_Click()
    
    
    End Sub
    
    
    Private Sub Texthargabarang_Click()
    
    
    End Sub
    
    
    Private Sub Textkodebarang_Click()
    
    
    End Sub
    
    
    Private Sub Textnamabarang_Click()
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    With Cbosatuan
        .AddItem "Unit"
        .AddItem "Set"
        .AddItem "Pack"
        .AddItem "Kg"
        .AddItem "Meter"
    End With
    
    
    End Sub
    
    
    Private Sub Textharga_Change()
    
    
    End Sub
    
    
    Private Sub Textkode_Change()
    
    
    End Sub
    
    
    Private Sub UserForm_QueryClick(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
    Cancel = True
    
    
    MsgBox "Maaf kalau sudah selesai, klik tombol selesai"
    End If
    
    
    End Sub
    
    
    
    
19. Diatas adalah kode secara keseluruhan
20. Lalu klik Modules, pilih Modules 1 dan isi kodenya sebagai berikut dan save
    
21. Untuk melihat hasilnya, terlebih dahulu kembali dulu ke lembar kerja excel dan buat tombol entri data misalnya dari shape
    
22. Klik kanan tombol yang telah dibuat, pilih Assign Macro, pilih nama macro yang telah dibuat dari awal (ENTRI_DATA_BARANG), klik ok
23. Kembali lagi ke Visual Basic, untuk mengetahui hasilnya klik Run atau F5
    
24. Hasilnya adalah
    
25. Selanjutnya untuk Tambah Data bisa dengan mengklik tombol Entri Data saja dan akan muncul seperti jendela diatas
    
26. Terima Kasih