cara membuat isian form otomatis di EXCEL VBA - TRIPROFIK.COM

Konten [Tampil]

Selamat pagi sobat semoga tetap bersemangat untuk beraktivitas kembali. Pada artikel ini saya akan membahas cara Membuat Form Isian di EXCEL VBA  sederhana dilengkapi dengan koding simpel dulu sehingga lebih mudah untuk dipahami.

Belajarnya gampang kok,asal ada niat dan kemauan yg tinggi,insyaallah BISA.

Caranya mudah kok,berikut step-stepnya :

1. Buka Ms excel terlebih dahulu dan aktifkan macrosnya,caranya buka excel option,lanjut ke trust center,trust center setting,sampai muncul seperti gambar dibawah,lalu simpan atau klik tombol ok.

2. Buatlah 4 sheet dan sheet pertama diisi dengan "databarang",kedua "pembelian" ketiga "cetak" keempat "penjualan".Seperti gambar dibawah.

3.langsung save projeck baru kita dengan format Excel Macro seperti gambar dibawah.

4.Buatlah isian di sheet "databarang" seperti gambar dibawah.

5.klik tombol Developer dilanjut ke Visual Basic,langsung insert,userForm sampai muncul seperti gambar dibawah.

6.Isi UserFromnya seperti gambar dibawah.

7.Kita langsung isi codingnya,double klick pada tombol "simpan" di UserFrom yg sudah kita buat dan isikan kode berikut.

Private Sub simpan_Click()
    If code = "" Then
        MsgBox "Barcode Belum Diisi", vbCritical, "Kesalahan"
        code.SetFocus
        Exit Sub
    ElseIf nama = "" Then
        MsgBox "Nama Belum Diisi", vbCritical, "Kesalahan"
        nama.SetFocus
        Exit Sub
    ElseIf beli = "" Then
        MsgBox "Harga Beli Belum Diisi", vbCritical, "Kesalahan"
        beli.SetFocus
        Exit Sub
    ElseIf jual = "" Then
        MsgBox "Harga Jual Belum Diisi", vbCritical, "Kesalahan"
        jual.SetFocus
        Exit Sub
    ElseIf stok = "" Then
        MsgBox "Stok Belum Diisi", vbCritical, "Kesalahan"
        stok.SetFocus
        Exit Sub
    End If
    Set ws = Sheets("databarang")
    irow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    ws.Cells(irow, 1) = code
    ws.Cells(irow, 2) = nama
    ws.Cells(irow, 3) = stok
    ws.Cells(irow, 4) = beli
    ws.Cells(irow, 5) = jual
    MsgBox nama & "Berhasil Disimpan", vbInformation, "Input Barang"
    code = ""
    nama = ""
    beli = ""
    jual = ""
    stok = ""
    code.SetFocus
End Sub

Private Sub tutup_Click()
    Unload Me
End Sub

8.Kita Runsub projek baru kita dan hasilnya seperti gambar dibawah :)



9.SELESAI...Projeck kita sudah bisa menyimpan data secara otomatis di sheet yg kita inginkan.



Nah, saya cukupkan sekian cara membuat form isian di excel ini, jika ada kekurangan dari artikel saya ini mohon kiranya memberikan saran dan masukan di komentar agar saya bisa memperbaiki dan menyempurnakan artikel artikel berikutnya.

Demikian gambaran singkat tentang Excel VBA ini semoga bermanfaat bagi pembaca yang sedang mencari-cari contoh.

Dan yang kita berikan itu hanya sekedar contoh,semoga menjadi inspirasi bagi anda yang akan membuatnya pada komputer atau laptop anda priadi dan akhirnya selamat berkreasi , ;)