Pertama buka workbook baru dan buatlah tabel seperti gambar berikut
Setelah itu tekan Alt + F11 sehingga muncul halaman Visual Basic
nb: Pastikan ijin macro sudah diaktifkan ( klik disini untuk melihat caranya )dan anda sudah mengenal VBA ( klik disini untuk mengenal vba )
Aturlah userform seperti gambar berikut
- 4 Label dengan nama Label1 , Label2, Label3 dan Label4
- 4 Textbox dengan nama Textbox1 , Textbox2, Textbox3 dan Textbox4
- 1 Commandbutton dengan nama Commandbutton1
Kemudian salin kode berikut , kemudian doubleclick pada userform , tekan Ctrl + A kemudian tekan Ctrl + V untuk menempelkan kode.
'Copy dari sini................................................'Copy sampai disini............................................Private Sub CommandButton1_Click()
'MOHON MAAF BILA ADA PENJELASAN YANG KURANG JELAS, SEMOGA ANDA DIBERI KEMUDAHAN _
UNTUK BELAJAR DAN JANGAN PERNAH BERPUTUS ASA. SEMANGAT . . .
'menggunakan logical function untuk memastikan textbox terisi semua (START)=======================================
If TextBox1.Text = "" Then ' (if) adalah jika , (textbox1.text="") berarti _
teks dari textbox1 sama dengan kosong. (then) yaitu mengarahkan pada perintah _
jika syarat diatas terpenuhi.
MsgBox Label1.Caption & " tidak boleh kosong", vbCritical, "Kesalahan" ' memberi pemberitahuan
TextBox1.SetFocus ' mengarahkan kursor pada textbox1
Exit Sub 'perintah berhenti sampai disini
ElseIf TextBox2.Text = "" Then
MsgBox Label2.Caption & " tidak boleh kosong", vbCritical, "Kesalahan"
TextBox2.SetFocus
Exit Sub
ElseIf TextBox3.Text = "" Then
MsgBox Label3.Caption & " tidak boleh kosong", vbCritical, "Kesalahan"
TextBox3.SetFocus
Exit Sub
ElseIf TextBox4.Text = "" Then
MsgBox Label4.Caption & " tidak boleh kosong", vbCritical, "Kesalahan"
TextBox4.SetFocus
Exit Sub
End If
'menggunakan logical function untuk memastikan textbox terisi semua (END)=======================================
'mencari baris kosong untuk diisi data berikutnya======================
Set ws = Sheets("sheet1") 'misal ws adalah sheet1
irow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
' maksudnya adalah ....
' ws.Cells(ws.Rows.Count, 1) berarti mengarahkan kursor cell pada _
baris 'ws.rows.count' yaitu baris paling bawah dari sheet1 , dan 1 adalah letak _
kolom ke 1 yaitu kolom A.
' End(xlUp) adalah kode untuk melakukan perintah menekan tombol END kemudian _
menekan tombol UP / arah Atas. yang akan mengarahkan cell tepat pada cell _
pertama dr bawah yang tidak kosong.
' offset(1,0) -> offset (x,y) adalah memposisikan cell yang aktif x untuk mengatur _
baris dan angka x=1 berarti mengarahkan 1 baris kebawah. dan y=0 berarti kolom tetap.
' .row kita mengambil alamat baris (row) atau x dari cell yang aktif.
'mengisi data pada tabel yang kita buat
nomor = Application.WorksheetFunction.CountA(ws.Range("a:a")) 'megatur nomor urut sesuai _
jumlah baris dengan menggunakan fungsi 'Counta' pada fungsi worksheet.
ws.Cells(irow, 1).Value = nomor ' baris kosong pertama pada kolom 1 = nomor
ws.Cells(irow, 2).Value = TextBox1.Text ' baris kosong pertama pada kolom 2 = isi dari textbox1
ws.Cells(irow, 3).Value = TextBox2.Text ' baris kosong pertama pada kolom 3 = isi dari textbox2
ws.Cells(irow, 4).Value = TextBox3.Text ' baris kosong pertama pada kolom 4 = isi dari textbox3
ws.Cells(irow, 5).Value = TextBox4.Text ' baris kosong pertama pada kolom 5 = isi dari textbox4
'memberi pesan bahwa data telah ditambahkan
MsgBox TextBox1.Text & " berhasil ditambahkan", vbInformation, "Input Data"
'mengosongkan text pada masing-masing textbox------------------------------
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.SetFocus ' mengatur kursor pada textbox1
End Sub
Private Sub UserForm_Initialize()
'memberi judul pada userform------------------------------------------
Me.Caption = "Tutorial Input Barang"
'Memberi keterangan/caption pada masing-masing label------------------------------
Label1.Caption = "Nama Barang"
Label2.Caption = "Stok"
Label3.Caption = "Harga Beli"
Label4.Caption = "Harga Jual"
CommandButton1.Caption = "Simpan"
'mengosongkan text pada masing-masing textbox------------------------------
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
'mengatur tabindex / urutan kontrol pada form-----------------------------------
TextBox1.TabIndex = 0
TextBox2.TabIndex = 1
TextBox3.TabIndex = 2
TextBox4.TabIndex = 3
TextBox1.SetFocus ' mengatur kursor pada textbox1
CommandButton1.TabIndex = 4
End Sub
Setelah itu tekan F5 untuk menjalankan .
Selamat mencoba Tutorial 3 : Cara Membuat Aplikasi Input Barang Menggunakan Microsoft Excel
Download Filenya Disini : Cara Membuat Aplikasi Input Barang Menggunakan MS Excel.xlsm
*Bantu kami untuk terus berkarya dengan bersabar melewati Adf.Ly selama 5 detik saja
0 komentar:
Posting Komentar