Cara Membuat Aplikasi Input Barang Menggunakan Microsoft Excel

Cara Membuat Aplikasi Input Barang Menggunakan Microsoft Excel

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9CgzAPCTEexQ6OATnRCsStSqZmIcjQO0wxQujdSjlqhaCNKmySFtaRMj7WNrVarqimS6VfRIx4Oj-OarS7r4t8JiRjJtkzdjpw1WT3hE7nCh_RuC-SfpsRrrYnhdTr1h-ilOP1cRyDzAW/s72-c/1.JPG

Cara Membuat Aplikasi Input Barang Menggunakan Microsoft Excel

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................................................

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

 'Copy sampai disini............................................

 Setelah itu tekan F5 untuk menjalankan .

Selamat mencoba 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