-->
ZDIRY-TUFWT-EBONM-EYJ00-IDBLANTER.COM
ZDIRY-TUFWT-EBONM-EYJ00
BLANTERWISDOM105

Cara Membuat Aplikasi Penjualan V.1 Berbasis Vba Excel Part 1

Cara Membuat Aplikasi Penjualan V.1 Berbasis Vba Excel Part 1
cara membuat aplikasi penjualan v.1 berbasis vba excel

Aplikasi Penjualan V.1 Berbasis Vba Excel Part 1 - Bisa membuat aplikasi sendiri tentu suatu impian bagi kita semua, karna dengan memiliki kelebihan itu kita tidak perlu lagi mengeluarkan budget untuk membeli jasa aplikasi orang lain untuk usaha kita.

Sebenarnya saya yakin anda semua pasti bisa membuat aplikasi sendiri, hanya saja anda belum tahu mulainya dari mana dan membuatnya menggunakan aplikasi apa.

Dalam membuat sebuah aplikasi bisa dilakukan dengan mudah apabila anda tekun mempelajarinya dan rajin bertanya kepada orang lain seperti kepada teman-teman group media sosial facebook, twitter atau yang lainnya. Intinya harus tetap semangat dan yakinlah dengan seiring berjalannya waktu pasti anda akan terbiasa dalam dunia pemrograman.

Baiklah, kali ini saya bermaksud untuk membagikan tutorial tentang Cara Membuat Aplikasi Penjualan V.1 Dengan VBA Excel seperti aplikasi penjualan yang sudah saya bagikan pada postingan sebelumnya.

Kunjungi Juga: Download Gratis Aplikasi Penjualan V.1

Disini saya hanya memanfaatkan sebuah software yang sering kita gunakan yaitu Microsoft Office Excel. 

Mungkin anda yang belum familiar dengan aplikasi microsoft excel tentu bertanya-tanya apakah bisa membuat aplikasi menggunakan perangkat lunak tersebut. Jawabannya sangat bisa dengan bantuan VBA (Visual Basic For Application) yang sudah tertanam di software tersebut.

Terus bagaimana caranya?

Untuk kita ketahui bersama sebenarnya pihak dari microsoft office sudah memberikan tempat atau ruang untuk membuat sebuah pemrograman hanya saja sebagian kita belum tahu letak settingan untuk menampilkan ruang jendela tersebut. karna, secara default jendela/tab tersebut memang tidak ditampilkan dengan kata lain disembunyikan.

Untuk menampilkannya Tab tersebut anda bisa kunjungi disini Cara Menampilkan Tab Developer Office 2007/2010/2013

Pernahkah anda mendengar Visual Basic? sebagian anda mungkin pernah dong mendengar nama tersebu. bagi yang belum tahu, disini saya akan menjelaskan sedikit apa itu Visual Basic.

Pengertian Visual Basic (VB)

Visual Basic (disingkat dengan VB) adalah sebuah bahasa pemrograman yang menawarkan Integrated Defelopment Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem informasi Microsoft Windows dengan model pemrograman (COM).

Membuat program aplikasi pada visual basic excel menurut saya masih banyak kekurangannya. tapi untuk anda pemula sangat cocok menggunakan vba excel ini.

Jika ingin membuat aplikasi yang lebih powerfull anda bisa memanfaatkan sebuah software seperti Vb Net, Java, Delphi, Php, Laravel, web, sql dan masih banyak yang lainnya.

Dari sekian aplikasi yang saya sebutkan diatas anda sudah bisa memanfaat fitur canggih yang terdapat pada aplikasi tersebut yaitu anda dapat membuat aplikasi berbasis android untuk bisa diakses pada smartphone yang anda miliki. Misalnya anda membuat aplikasi penjualan berbasis android. Gimana canggih kan?

Kunjungi Juga: Download Aplikasi Toko Penjualan V.1.2

Nah, untuk anda pemula disini saya tidak membagikan cara membuat aplikasi berbasis android.

Tapi disini, saya hanya membagikan tentang cara membuat aplikasi penjualan sederhana menggunakan Vba Excel. supaya anda bisa membuat aplikasi penjualan sendiri untuk usaha toko kecil-kecilan tanpa membeli jasa aplikasi orang lain.

Cara Membuat Aplikasi Penjualan V.1 Berbasis VBA Excel

Baiklah sahabat excel silahkan anda ikuti langkah-langkahnya dibawah ini.

Pertama, silahkan anda download sampel file nya terlebih dahulu di bawah ini.

DOWNLOAD FILE

1. Buat Name Range

Sebelum kita membuat form barang pada jendela visual basic, silahkan beri nama rangenya terlebih dahulu. 

Caranya, Klik Tab Formulas – Name Manager - New rumusnya seperti berikut:

Rumus Name Range Tabel Barang 

Name: TBLBARANG

Refers To: =OFFSET(Barang!$A$2;0;0;COUNTA(Barang!$A$2:$A$5000);6)

Rumus Name Range Kode Barang 

Name :KODEBARANG

Refers To: =OFFSET(Barang!$A$2;0;0;COUNTA(Barang!$A$2:$A$5000);1)

Rumus Name Range Cari Barang 

Name: CARIDATABARANG

Refers To: =OFFSET(Barang!$M$5;0;0;COUNTA(Barang!$M$5:$M$5000);6)

Tujuan Memberi Nama Range Pada Excel

Tujuannya adalah untuk mempermudah kita dalam penulisan rumus diexcel.

Karna dengan memberi nama range kita tidak perlu lagi mengetikkan rumus terlalu panjang, cukup dengan memanggil nama range yang kita buat.

Pada part 1 ini kita akan membuat sebuah form input barang pada Visual Basic.

2. Tampilkan Jendela Visual Basic

Caranya silahkan klik Tab Developer – Visual Basic maka akan muncul jendela visual basic seperti berikut:

cara membuat aplikasi penjualan v1 dengan vba excel
Jendela Visual Basic Excel

3. Buat Userform Barang

Untuk membuat userform barang caranya klik icon panah Insert Userform di samping icon save selanjutnya klik Userform tersebut maka secara otomatis form akan muncul.

cara membuat aplikasi penjualan v1 berbasis vba excel

Selanjutnya rubahlah nama userform dengan FORMBARANG pada properties (Name) dan desainlah form barang seperti berikut:

aplikasi penjualan v1 berbasis vba excel
Form Barang

Komponen yang digunakan:

NAMA KOMPONEN JUMLAH
Frame 1
TextBox 6
ComboBox 2
CommandButton 8
Label 10
ListBox 1

Setelah pemberian nama range selesai langkah berikutnya penginputan coding.

4. Input Coding

Setelah selesai di desain, langkah berikutnya kita akan memasukkan coding. yang fungsinya nanti untuk mengeksekusi pada tombol-tombol yang kita buat tadi. 

Silahkan anda copas coding berikut sesuai dengan perintah yang saya bagikan dibawah ini.

Coding Menampilkan Data Barang

Sub TampilDataBarang()
Me.TABELBARANG.RowSource = "TBLBARANG"
Me.TABELBARANG.ColumnCount = 6
Me.TABELBARANG.ColumnWidths = 100 & "; " & 160 & "; " & 45 & "; " & 35 & "; " & 80 & "; " & 80 & ";"
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
Call TampilDataBarang

With SATUAN
    .AddItem "Pcs"
    .AddItem "Inci"
    .AddItem "Pack"
    .AddItem "Kardus"
    .AddItem "Kotak"
    .AddItem "Kaleng"
    .AddItem "Kg"
    .AddItem "Buah"
End With

With CMBPILIH
.AddItem "Kode Barang"
.AddItem "Nama Barang"
End With

Call NonAktif
Me.SIMPAN.Enabled = False
Me.EDIT.Enabled = False
Me.HAPUS.Enabled = False
Me.BATAL.Enabled = False
Me.Label7.Caption = Me.TABELBARANG.ListCount
End Sub

Coding  Tombol New
Private Sub CmbNew_Click()
Call Aktif
Me.KODEBARANG.SetFocus
Me.SIMPAN.Enabled = True
Me.BATAL.Enabled = True
End Sub
Coding Tombol Simpan
Private Sub SIMPAN_Click()
Dim DataBarang As Object
Set DataBarang = Sheet11.Range("A5000").End(xlUp)

If Me.KODEBARANG.Value = "" _
    Or Me.NAMABARANG.Value = "" _
    Or Me.SATUAN.Value = "" _
    Or Me.JUMLAH.Value = "" _
    Or Me.HARGABELI.Value = "" _
    Or Me.HARGAJUAL.Value = "" Then
    Call MsgBox("Data Barang harus lengkap", vbInformation, "Data Barang")
Else
    DataBarang.Offset(1, 0).Value = Me.KODEBARANG.Value
    DataBarang.Offset(1, 1).Value = Me.NAMABARANG.Value
    DataBarang.Offset(1, 2).Value = Me.SATUAN.Value
    DataBarang.Offset(1, 3).Value = Me.JUMLAH.Value
    DataBarang.Offset(1, 4).Value = Me.HARGABELI.Value
    DataBarang.Offset(1, 5).Value = Me.HARGAJUAL.Value
    DataBarang.Offset(1, 4).Value = CDec(DataBarang.Offset(1, 4).Value)
    DataBarang.Offset(1, 5).Value = CDec(DataBarang.Offset(1, 5).Value)
    
    Call MsgBox("Data Barang Berhasil di Simpan", vbInformation, "Data Barang")
    
    Call TampilDataBarang
    Me.Label7.Caption = Me.TABELBARANG.ListCount
    Call Bersih
End If
End Sub
Coding Edit
Private Sub EDIT_Click()
On Error GoTo SALAH
Dim UbahData As Object

If Me.KODEBARANG.Value = "" Then
    Call MsgBox("Pilih Data Pada Tabel Terlebih Dahulu", vbInformation, "Edit Data")
Else
    Set UbahData = Sheet11.Range("A2:A50000").Find(What:=Me.KODEBARANG.Value, LookIn:=xlValues)
    UbahData.Offset(0, 0).Value = Me.KODEBARANG.Value
    UbahData.Offset(0, 1).Value = Me.NAMABARANG.Value
    UbahData.Offset(0, 2).Value = Me.SATUAN.Value
    UbahData.Offset(0, 3).Value = Me.JUMLAH.Value
    UbahData.Offset(0, 4).Value = Me.HARGABELI.Value
    UbahData.Offset(0, 5).Value = Me.HARGAJUAL.Value
    UbahData.Offset(0, 4).Value = CDec(UbahData.Offset(0, 4).Value)
    UbahData.Offset(0, 5).Value = CDec(UbahData.Offset(0, 5).Value)

    On Error Resume Next
    Call TampilDataBarang
    Call MsgBox("Data Berhasil di Update", vbInformation, "Update Data")
    Me.EDIT.Enabled = False
    Me.HAPUS.Enabled = False
    Me.BATAL.Enabled = False
    Call Bersih
    Call NonAktif
End If
Exit Sub
SALAH:
Call MsgBox("Kode Barang tidak boleh diubah", vbInformation, "Update Data")
End Sub
Coding Menampilkan Data Barang Ke TextBox
Private Sub TABELBARANG_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo SALAH
Me.KODEBARANG.Value = Me.TABELBARANG.Value
Me.NAMABARANG.Value = Me.TABELBARANG.Column(1)
Me.SATUAN.Value = Me.TABELBARANG.Column(2)
Me.JUMLAH.Value = Me.TABELBARANG.Column(3)
Me.HARGABELI.Value = Me.TABELBARANG.Column(4)
Me.HARGAJUAL.Value = Me.TABELBARANG.Column(5)

Me.NAMABARANG.Enabled = True
Me.SATUAN.Enabled = True
Me.JUMLAH.Enabled = True
Me.HARGABELI.Enabled = True
Me.HARGAJUAL.Enabled = True
Me.NAMABARANG.SetFocus

Me.KODEBARANG.Enabled = False
Me.SIMPAN.Enabled = False
Me.EDIT.Enabled = True
Me.HAPUS.Enabled = True
Me.BATAL.Enabled = True
Exit Sub
SALAH:
Call MsgBox("Pilih Data pada tabel data", vbInformation, "Data Barang")
End Sub
Coding Hapus
Private Sub hapus_Click()
Dim HapusData As Object
If Me.KODEBARANG.Value = "" Then
    Call MsgBox("Pilih data pada tabel data terlebih dahulu", vbInformation, "Ubah Data")
Else
Select Case MsgBox("Anda akan menghapus data" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Hapus data")
Case vbNo
Exit Sub
Case vbYes
End Select

Set HapusData = Sheet11.Range("A2:A50000").Find(What:=Me.KODEBARANG.Value, LookIn:=xlValues)
HapusData.Offset(0, 0).Clear
HapusData.Offset(0, 1).Clear
HapusData.Offset(0, 2).Clear
HapusData.Offset(0, 3).Clear
HapusData.Offset(0, 4).Clear
HapusData.Offset(0, 5).Clear

On Error Resume Next
Call TampilDataBarang
Call MsgBox("Data Barang Berhasil di Hapus", vbInformation, "Pilih Data")
Me.Label7.Caption = Me.TABELBARANG.ListCount
Me.EDIT.Enabled = False
Me.HAPUS.Enabled = False
Me.BATAL.Enabled = False
Call NonAktif
Call Bersih
Call Urut_Barang
End If
End Sub
Coding Batal
Private Sub BATAL_Click()
Call Bersih
Call NonAktif
Me.SIMPAN.Enabled = False
Me.EDIT.Enabled = False
Me.HAPUS.Enabled = False
Me.BATAL.Enabled = False
Me.CmbNew.BackColor = &H80C0FF
End Sub
Coding Print/ Cetak
Private Sub CETAK_Click()
If Me.TABELBARANG.RowSource = "" Then
    Call MsgBox("Data Yang di Cetak Tidak Ada", vbInformation, "Cetak Barang")
Else
    Select Case MsgBox("Data Barang Akan Di cetak" _
        & vbCrLf & "Apakah Anda Yakin?" _
        , vbYesNo Or vbQuestion Or vbDefaultButton1, "Cetak Data Barang")
        Case vbNo
        Exit Sub
        Case vbYes
    End Select
    Sheet11.PrintOut
End If
End Sub
Coding Menampilkan Format Currency di TextBox
Private Sub HARGABELI_Change()
HARGABELI.Value = Format(HARGABELI.Value, "Rp #,##0")
End Sub
Private Sub HARGAJUAL_Change()
HARGAJUAL.Value = Format(HARGAJUAL.Value, "Rp #,##0")
End Sub
Coding Keluar
Private Sub KELUAR_Click()
Unload Me
End Sub
Coding Cari Data
Private Sub KATAKUNCI_Change()
On Error GoTo SALAH
Dim CARIBARANG As Object
Set CARIBARANG = Sheet11
CARIBARANG.Range("K1").Value = CMBPILIH.Value
CARIBARANG.Range("K2").Value = KATAKUNCI.Value

CARIBARANG.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet11.Range("K1:K2"), CopyToRange:=Sheet11.Range("M4:R4"), Unique:=False
Me.TABELBARANG.RowSource = Sheet11.Range("CARIDATABARANG").Address(EXTERNAL:=True)

Me.Label7.Caption = Me.TABELBARANG.ListCount
Exit Sub
SALAH:
Call MsgBox("Maaf Data Yang Anda Cari Tidak ditemukan", vbInformation, "Data Barang")
End Sub
Sebelum coding Cari Data di masukkan, silahkan pergi ke worksheet Barang terlebih dahulu – klik Tab Data – Advanced – pilih copy to another location.
Tambahkan rumus pada List Range, Criteria Range dan Pada Copy To 
Hasilnya seperti berikut:

Advanced Filter Excel

5. Urutkan Data Barang Pada ListBox

Supaya data barang tampil berurut pada ListBox ketika dihapus, silahkan anda tambahkan 1 buah modul caranya hampir sama dengan menambahkan userform di atas. 
Ganti namenya pada properties dengan URUTBARANG, silahkan copas coding perintah berikut:
Option Explicit
Sub Urut_Barang()
Application.ScreenUpdating = False
Sheet11.Select
Sheet11.Range("A1:F50000").Sort KEY1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub
6. Jalankan (Run)
Terakhir silahkan anda coba jalankan dengan menekan tombol play (F5)

Berikut full coding FORM BARANG
Option Explicit

Sub Bersih()
Me.KODEBARANG.Value = ""
Me.NAMABARANG.Value = ""
Me.SATUAN.Value = ""
Me.JUMLAH.Value = ""
Me.HARGABELI.Value = ""
Me.HARGAJUAL.Value = ""
End Sub

Sub Aktif()
Me.KODEBARANG.Enabled = True
Me.NAMABARANG.Enabled = True
Me.SATUAN.Enabled = True
Me.JUMLAH.Enabled = True
Me.HARGABELI.Enabled = True
Me.HARGAJUAL.Enabled = True
End Sub

Sub NonAktif()
Me.KODEBARANG.Enabled = False
Me.NAMABARANG.Enabled = False
Me.SATUAN.Enabled = False
Me.JUMLAH.Enabled = False
Me.HARGABELI.Enabled = False
Me.HARGAJUAL.Enabled = False
End Sub

Private Sub BATAL_Click()
Call Bersih
Call NonAktif
Me.SIMPAN.Enabled = False
Me.EDIT.Enabled = False
Me.HAPUS.Enabled = False
Me.BATAL.Enabled = False
Me.CmbNew.BackColor = &H80C0FF
End Sub

Private Sub CELUAR_Click()
Unload Me
End Sub

Private Sub CETAK_Click()
If Me.TABELBARANG.RowSource = "" Then
    Call MsgBox("Data Yang di Cetak Tidak Ada", vbInformation, "Cetak Barang")
Else
    Select Case MsgBox("Data Barang Akan Di cetak" _
        & vbCrLf & "Apakah Anda Yakin?" _
        , vbYesNo Or vbQuestion Or vbDefaultButton1, "Cetak Data Barang")
        Case vbNo
        Exit Sub
        Case vbYes
    End Select
    Sheet11.PrintOut
End If
End Sub

Private Sub CmbNew_Click()
Call Aktif
Me.KODEBARANG.SetFocus
Me.SIMPAN.Enabled = True
Me.BATAL.Enabled = True
End Sub

Private Sub CmbNew_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CmbNew
    .BackColor = &HC000&
    .ForeColor = vbRed
End With
End Sub

Private Sub CMBPILIH_Change()
On Error GoTo SALAH
Dim CARIBARANG As Object
Set CARIBARANG = Sheet11
CARIBARANG.Range("K1").Value = Me.CMBPILIH.Value
SALAH:
End Sub

Private Sub EDIT_Click()
On Error GoTo SALAH
Dim UbahData As Object

If Me.KODEBARANG.Value = "" Then
    Call MsgBox("Pilih Data Pada Tabel Terlebih Dahulu", vbInformation, "Edit Data")
Else
    Set UbahData = Sheet11.Range("A2:A50000").Find(What:=Me.KODEBARANG.Value, LookIn:=xlValues)
    UbahData.Offset(0, 0).Value = Me.KODEBARANG.Value
    UbahData.Offset(0, 1).Value = Me.NAMABARANG.Value
    UbahData.Offset(0, 2).Value = Me.SATUAN.Value
    UbahData.Offset(0, 3).Value = Me.JUMLAH.Value
    UbahData.Offset(0, 4).Value = Me.HARGABELI.Value
    UbahData.Offset(0, 5).Value = Me.HARGAJUAL.Value
    UbahData.Offset(0, 4).Value = CDec(UbahData.Offset(0, 4).Value)
    UbahData.Offset(0, 5).Value = CDec(UbahData.Offset(0, 5).Value)

    On Error Resume Next
    Call TampilDataBarang
    Call MsgBox("Data Berhasil di Update", vbInformation, "Update Data")
    Me.EDIT.Enabled = False
    Me.HAPUS.Enabled = False
    Me.BATAL.Enabled = False
    Call Bersih
    Call NonAktif
End If
Exit Sub
SALAH:
Call MsgBox("Kode Barang tidak boleh diubah", vbInformation, "Update Data")
End Sub

Private Sub hapus_Click()
Dim HapusData As Object
If Me.KODEBARANG.Value = "" Then
    Call MsgBox("Pilih data pada tabel data terlebih dahulu", vbInformation, "Ubah Data")
Else
Select Case MsgBox("Anda akan menghapus data" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Hapus data")
Case vbNo
Exit Sub
Case vbYes
End Select

Set HapusData = Sheet11.Range("A2:A50000").Find(What:=Me.KODEBARANG.Value, LookIn:=xlValues)
HapusData.Offset(0, 0).Clear
HapusData.Offset(0, 1).Clear
HapusData.Offset(0, 2).Clear
HapusData.Offset(0, 3).Clear
HapusData.Offset(0, 4).Clear
HapusData.Offset(0, 5).Clear

On Error Resume Next
Call TampilDataBarang
Call MsgBox("Data Barang Berhasil di Hapus", vbInformation, "Pilih Data")
Me.Label7.Caption = Me.TABELBARANG.ListCount
Me.EDIT.Enabled = False
Me.HAPUS.Enabled = False
Me.BATAL.Enabled = False
Call NonAktif
Call Bersih
Call Urut_Barang
End If
End Sub

Private Sub HARGABELI_Change()
HARGABELI.Value = Format(HARGABELI.Value, "Rp #,##0")
End Sub

Private Sub HARGAJUAL_Change()
HARGAJUAL.Value = Format(HARGAJUAL.Value, "Rp #,##0")
End Sub

Private Sub KATAKUNCI_Change()
On Error GoTo SALAH
Dim CARIBARANG As Object
Set CARIBARANG = Sheet11
CARIBARANG.Range("K1").Value = CMBPILIH.Value
CARIBARANG.Range("K2").Value = KATAKUNCI.Value

CARIBARANG.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet11.Range("K1:K2"), CopyToRange:=Sheet11.Range("M4:R4"), Unique:=False
Me.TABELBARANG.RowSource = Sheet11.Range("CARIDATABARANG").Address(EXTERNAL:=True)

Me.Label7.Caption = Me.TABELBARANG.ListCount
Exit Sub
SALAH:
Call MsgBox("Maaf Data Yang Anda Cari Tidak ditemukan", vbInformation, "Data Barang")
End Sub

Private Sub RESET_Click()
Me.CMBPILIH.Value = ""
Me.KATAKUNCI.Value = ""

On Error GoTo SALAH
Dim CARIBARANG As Object
Set CARIBARANG = Sheet11
CARIBARANG.Range("K1").Value = CMBPILIH.Value
CARIBARANG.Range("K2").Value = KATAKUNCI.Value
CARIBARANG.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet11.Range("K1:K2"), CopyToRange:=Sheet11.Range("M4:R4"), Unique:=False
Me.TABELBARANG.RowSource = Sheet11.Range("HASILCARIBARANG").Address(EXTERNAL:=True)

Me.Label7.Caption = Me.TABELBARANG.ListCount
Exit Sub
SALAH:
Call MsgBox("Maaf Data Yang Anda Cari Tidak ditemukan", vbInformation, "Data Barang")
End Sub

Private Sub SIMPAN_Click()
Dim DataBarang As Object
Set DataBarang = Sheet11.Range("A5000").End(xlUp)

If Me.KODEBARANG.Value = "" _
    Or Me.NAMABARANG.Value = "" _
    Or Me.SATUAN.Value = "" _
    Or Me.JUMLAH.Value = "" _
    Or Me.HARGABELI.Value = "" _
    Or Me.HARGAJUAL.Value = "" Then
    Call MsgBox("Data Barang harus lengkap", vbInformation, "Data Barang")
Else
    DataBarang.Offset(1, 0).Value = Me.KODEBARANG.Value
    DataBarang.Offset(1, 1).Value = Me.NAMABARANG.Value
    DataBarang.Offset(1, 2).Value = Me.SATUAN.Value
    DataBarang.Offset(1, 3).Value = Me.JUMLAH.Value
    DataBarang.Offset(1, 4).Value = Me.HARGABELI.Value
    DataBarang.Offset(1, 5).Value = Me.HARGAJUAL.Value
    DataBarang.Offset(1, 4).Value = CDec(DataBarang.Offset(1, 4).Value)
    DataBarang.Offset(1, 5).Value = CDec(DataBarang.Offset(1, 5).Value)
    
    Call MsgBox("Data Barang Berhasil di Simpan", vbInformation, "Data Barang")
    
    Call TampilDataBarang
    Me.Label7.Caption = Me.TABELBARANG.ListCount
    Call Bersih
End If
End Sub

Private Sub TABELBARANG_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo SALAH
Me.KODEBARANG.Value = Me.TABELBARANG.Value
Me.NAMABARANG.Value = Me.TABELBARANG.Column(1)
Me.SATUAN.Value = Me.TABELBARANG.Column(2)
Me.JUMLAH.Value = Me.TABELBARANG.Column(3)
Me.HARGABELI.Value = Me.TABELBARANG.Column(4)
Me.HARGAJUAL.Value = Me.TABELBARANG.Column(5)

Me.NAMABARANG.Enabled = True
Me.SATUAN.Enabled = True
Me.JUMLAH.Enabled = True
Me.HARGABELI.Enabled = True
Me.HARGAJUAL.Enabled = True
Me.NAMABARANG.SetFocus

Me.KODEBARANG.Enabled = False
Me.SIMPAN.Enabled = False
Me.EDIT.Enabled = True
Me.HAPUS.Enabled = True
Me.BATAL.Enabled = True
Exit Sub
SALAH:
Call MsgBox("Pilih Data pada tabel data", vbInformation, "Data Barang")
End Sub

Sub TampilDataBarang()
Me.TABELBARANG.RowSource = "TBLBARANG"
Me.TABELBARANG.ColumnCount = 6
Me.TABELBARANG.ColumnWidths = 100 & "; " & 160 & "; " & 45 & "; " & 35 & "; " & 80 & "; " & 80 & ";"
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
Call TampilDataBarang

With SATUAN
    .AddItem "Pcs"
    .AddItem "Inci"
    .AddItem "Pack"
    .AddItem "Kardus"
    .AddItem "Kotak"
    .AddItem "Kaleng"
    .AddItem "Kg"
    .AddItem "Buah"
End With

With CMBPILIH
.AddItem "Kode Barang"
.AddItem "Nama Barang"
End With

Call NonAktif
Me.SIMPAN.Enabled = False
Me.EDIT.Enabled = False
Me.HAPUS.Enabled = False
Me.BATAL.Enabled = False
Me.Label7.Caption = Me.TABELBARANG.ListCount
End Sub
Sekian dulu tentang cara membuat aplikasi penjualan V.1 dengan Vba excel pada Part 1 ini. Untuk part berikutnya saya akan membagikan tentang cara membuat form input supplier.


Jika ada kendala silahkan tinggalkan komentarnya pada kolom yang sudah tersedia di bawah.
Terima kasih

Incoming Search Term:
Cara membuat aplikasi penjualan online
Cara membuat aplikasi penjualan dengan excel
Cara membuat aplikasi penjualan dengan macro excel
Cara membuat aplikasi minimarket

Share This :
Admin

Blogger Pemula yang ingin berbagi seputar Tutorial, Aplikasi, Smartphone dan Teknologi.

0 komentar