Persiapan
- Excel
- Menu Developer
- Sheet1 dan Sheet2
Menu Developer di atas di sebelah Menu View kalau tidak ada kalian bisa ikutin cara ini, pilih File - Option - Customize Ribbon setelah itu ceklis aja Developer dan Ok
- 3 Label
- 1 Command Button
- 3 Textbox
Tools yang sudah di masukkan :
Untuk mengubah kalian tinggal klik kanan dan ubah seperti gambar di bawah
Gambar dibawah ini menunjjukan mengubah Caption jika kalian mau ubah nama pilihlah bagian paling atas nanti seperti ini tulisannyanya " (Name) "
Lanjut ke codingp programnya klik 2x Button Simpan untuk memasuki ke tempat coding nah masukkan kodingnya :
Private Sub simpan_Click()
Dim kosong As Long
Sheet2.Activate
kosong = WorksheetFunction.CountA(Range("A:A")) + 1
Sheet2.Cells(kosong, 1).Value = kode_barang.Value
Sheet2.Cells(kosong, 2).Value = nama_barang.Value
Sheet2.Cells(kosong, 3).Value = harga_barang.Value
End Sub
Kalau udah tinggal play kan aja klik buttun segitiga yang warna hijau atau tekan F5
Jika terjadi error tinggal berikan komentar dan kalau mau request project program tinggal command juga entar di usahakan di buatkan tutorialnya
0 Comments