Aplikasi Komputer

Berikut langkah-langkahnya :

Buka Aplikasi Microsoft Excel
Ubah nama sheet1 terlebih dahulu (terserah dengan nama apa, misalnya "DATABARANG")
Kemudian ketikkan Kode Barang, Nama Barang, Satuan, dan Harga Barang pada excel
Setelah itu pilih Tab View pada excel, klik macros, dan akan muncul jendela seperti dibawah ini, lalu klik tombol create
Save terlebih dahulu lembar kerja excel dan pilih typenya Excel Macro Enabled Workbook, dan buat nama filenya misalnya DATABARANG
Langsung menuju Tab Developer, pilih Visual Basic, lalu Insert UserForm, buatlah Desain pada UserForm seperti dibawah ini :
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
Masing-masing kotak diklik dan ubah namanya pada properties, seperti ini :
KODE BARANG = Textkodebarang, yang disampingnya menjadi Textkode
NAMA BARANG = Textnamabarang, yang disampingnya menjadi Textnama
SATUAN BARANG = Cmdsatuanbarang, yang disampingnya menjadi Cbosatuan
HARGA BARANG = Texthargabarang, yang disampingnya menjadi Textharga
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
Kemudian, double klik pada TAMBAH DATA di UserForm dan isi kodenya, lalu save lagi
Double klik pada SELESAI, isi kodenya dan save
Dibagian paling akhir, ketik juga kode ini :
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
Diatas adalah kode secara keseluruhan
Lalu klik Modules, pilih Modules 1 dan isi kodenya sebagai berikut dan save
Untuk melihat hasilnya, terlebih dahulu kembali dulu ke lembar kerja excel dan buat tombol entri data misalnya dari shape
Klik kanan tombol yang telah dibuat, pilih Assign Macro, pilih nama macro yang telah dibuat dari awal (ENTRI_DATA_BARANG), klik ok
Kembali lagi ke Visual Basic, untuk mengetahui hasilnya klik Run atau F5
Hasilnya adalah
Selanjutnya untuk Tambah Data bisa dengan mengklik tombol Entri Data saja dan akan muncul seperti jendela diatas
Terima Kasih

Untuk hasil dari langkah-langkah diatas, klik disini

Berikut langkah-langkah untuk membuat userform pada excel :

Buka Microsoft Excel
Untuk menampilkan Microsoft Visual Basic, bisa dengan tekan Alt+11 pada keyboard atau dengan melalui Tab Developer lalu pilih Visual Basic
Maka akan muncul seperti gambar di bawah ini :
Klik kanan pada VBAProject, Pilih Insert dan pilih Userform :
Maka akan tampil UserForm, Toolbox dan Properties, apabila Properties belum muncul dapat di klik kanan pada UserForm
Kita dapat menggunakan Toolbox untuk untuk dimasukkan ke dalam Userform, isi Toolbox itu sendiri seperti Select Objects, Label, TextBox, ComboBox, ListBox, CheckBox dll
Untuk memasukkan ToolBox tersebut ke dalam UserForm tinggal klik icon yang ada pada ToolBox itu sendiri
Pada Properties dapat digunakan untuk mengatur apa yang akan kita buat di Userform misalnya seperti Insert Picture, merubah warna dll
Untuk melihat hasilnya klik tombol Run pada Toolbar atau F5