Tutorial Membuat Form Data Barang di Microsoft Excel 2010

Assalamualaikum w.r, w.b
Setelah pada postingan sebelumnya saya memposting cara mengaktifkan Tab Developer pada Microsoft Ecel, Kali ini saya akan menjelaskan tutotial membuat Form Data Barang di Microsoft Ecel 2010.
     Berikut Langkah-Langkahnya :

1. Buka Aplikasi Microsoft Excel

2. Klik pada nama worksheet mu, dan ganti menjadi nama yang diinginkan ( contohnya sheet 1               diubah menjadi data)

    seperti gambar berikut:

3. Lalu selanjutnya, ketik Kode Barang, Nama Barang, Satuan, dan Harga pada Microsoft Excel,             seperti gambar dibawah ini :

4. Lalu pilih Tab View, dan Klik macros, lalu klik tombol create, 

    seperti gambar dibawah ini :

5. Kemudian, save terlebih dahulu lembar kerja excel dan pilih typenya Excel Macro Enable                   workbook, dan buat nama filenya sesuai yang kita inginkan.

    seperti gambar dibawah ini :

6. Lalu langsung menuju Tab Developer, pilih Visual Basic (Alt+F11), lalu insert form, buatah desain     pada UserForm, kita juga bisa menambahkan gambar agar terlihat lebih menarik

    seperti gambar 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 diganti     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 diubah namanya pada properties.

    seperti gambar dibawah ini :

      1. KODE BARANG = Textkodebarang, yang disampingnya menjadi Textkode

      2. NAMA BARANG = Textnamabarang, yang disampingnya menjadi Textnama

      3. SATUAN BARANG = Cmdsatuanbarang, yang disampingnya menjadi Cbosatuan

      4. HARGA BARANG = Texthargabarang, yang disampingnya menjadi Textharga

      5. TAMBAH DATA = Cmdtambah dan SELESAI = Cmdselesai

      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

9. Lalu, double klik pada form TAMBAH DATA dan isikan kodenya, lalu SAVE

    seperti gambar diabawah ini :

10. Selanjutnya, double klik pada form SELESAI, lalu isi kodenya dan SAVE

      seperti gambar dibawah ini :

11. Pada bagian akhir, masukan kodenya juga

      seperti gambar dibawah ini :

12. Berikut adalah kode yang harus dimasukkan secara keseluruhan :

      Private Sub Label1_Click()

End Sub

Private Sub CboSatuan_Change()

End Sub

Private Sub TextKode_Change()

End Sub

Private Sub UserForm_Initialize()

With CboSatuan

    .AddItem "Unit"

    .AddItem "Set"

    .AddItem "Pak"

    .AddItem "Kg"

    .AddItem "Meter"

    .AddItem "Pack"

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("Data")

'untuk menemukan baris kosong pada database

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

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

'untuk mengecek kode barang

'Iftrim(Me.TextKode.Value) = "" Then

'untuk mengcopy 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 di tambahkan data baru

Me.TextKode.Value = ""

Me.TextNama.Value = ""

Me.CboSatuan.Value = ""

Me.TextHarga.Value = ""

Me.TextKode.SetFocus

End Sub

Private Sub TextJudul_Click()

End Sub

Private Sub TextKodeBarang_Click()

End Sub

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

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox "Yah, Mau Keluar. . ."

End If

End Sub

13. Untuk melihat hasilnya, kembali dulu ke lembar kerja excel dan buat tombol entri
      seperti gambar dibawah ini :

14. Klik kanan pada tombol yang telah dibuat, lalu pilih Assign Macro, pilih nama macro yang dibuat       pada awal tadi, lalu klik OK

15. Untuk mengetahui hasilnya, kembali ke Visual Basic dan Klik Run atau F5

      Hasilnya adalah seperti gambar dibawah ini :

16. Selanjutnya tinggal masukkan data barang yang ingin kita buat, maka data akan secara otomatis         masuk kedalam file Microsoft Excel kita tadi.

Ingin melihat hasilnya secara lengkap ???

Klik Link Berikut : Aplikasi Data Barang

Sekian Tutorial dari saya, TERIMAKASIH, Semoga Bermanfaat
Wassalamualaikum w.r,w.b.