Belajar Membuat Aplikasi Penjualan Bagian 2 Excel Makro

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
– Dapat membuat aplikasi sendiri pasti suatu impian bagi kita semua, karna dengan mempunyai kepentingan itu kita lain teristiadat lagi mengeluarkan budget untuk membeli jasa tuntutan orang lain untuk kampanye kita.

Sepatutnya ada saya yakin kamu semua pasti bisa takhlik tuntutan sendiri, semata-mata saja ia belum senggang mulainya berusul mana dan membuatnya menunggangi aplikasi apa.

Dalam membuat sebuah permintaan boleh dilakukan dengan mudah apabila anda tekun mempelajarinya dan rajin bertanya kepada orang lain begitu juga kepada padanan-inversi group media sosial facebook, twitter maupun yang lainnya. Intinya harus tetap semangat dan yakinlah dengan seiring berjalannya waktu tentu engkau akan teradat dalam dunia pemrograman.

Baiklah, barangkali ini saya bermaksud kerjakan membagikan tutorial akan halnya
Cara Membuat Aplikasi Penjualan V.1 Dengan VBA Excel
seperti aplikasi penjualan yang sudah saya bagikan sreg postingan sebelumnya.

Kunjungi Juga: Download Gratis Aplikasi Penjualan V.1

Disini saya saja memanfaatkan sebuah software yang sering kita gunakan ialah Microsoft Office Excel.

Mungkin ia yang belum familiar dengan aplikasi microsoft excel karuan bertanya-tanya apakah dapat mewujudkan petisi menggunakan peranti lunak tersebut. Jawabannya sangat boleh dengan uluran tangan VBA (Visual Basic For Application) yang mutakadim tersolder di software tersebut.


Terus bagaimana caranya?

Bikin kita ketahui bersama sebenarnya pihak bersumber microsoft office sudah memberikan medan atau urat kayu untuk membuat sebuah pemrograman saja doang sebagian kita belum luang letak settingan cak bagi menampilkan ira sirkulasi udara tersebut. karna, secara default lubang angin/tab tersebut memang bukan ditampilkan dengan kata lain disembunyikan.

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

Pernahkah anda mendengar
Visual Basic? sebagian anda mungkin pernah dong mendengar keunggulan tersebu. bakal nan belum tahu, disini saya akan mengklarifikasi abnormal barang apa itu
Visual Basic.


Pengertian Optis Basic (VB)

Visual Basic (disingkat dengan VB)
adalah sebuah bahasa pemrograman nan menawarkan Integrated Defelopment Environment (IDE) visual cak bagi membentuk program instrumen lunak berbasis sistem informasi Microsoft Windows dengan model pemrograman (COM).

Mewujudkan program permohonan pada visual basic excel menurut saya masih banyak kekurangannya. tapi untuk anda pemula sangat sepakat menggunakan vba excel ini.

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

Terbit sekian aplikasi yang saya sebutkan diatas anda sudah bisa memanfaat fitur usil yang terdapat pada aplikasi tersebut adalah ia boleh membuat petisi berbasis android buat dapat diakses lega smartphone yang anda miliki. Misalnya anda membuat tuntutan penjualan berbasis android. Gimana canggih kan?

Kunjungi Juga: Download Permintaan Toko Penjualan V.1.2

Nah, cak bagi anda pemula disini saya enggak membagikan cara membuat tuntutan berbasis android.

Tapi disini, saya hanya membagikan mengenai pendirian membuat aplikasi penjualan sederhana menggunakan Vba Excel. kendati anda bisa membuat aplikasi penjualan sendiri cak bagi usaha toko boncel-kecilan tanpa membeli jasa petisi anak adam lain.

Cara Membuat Aplikasi Penjualan V.1 Berbasis VBA Excel

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

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

1. Buat Name Range

Sebelum kita membuat form barang lega jendela visual basic, silahkan beri nama rangenya malar-malar adv amat.

Caranya, Klik
Tab Formulas

Name Manager

New
rumusnya seperti berikut:

Rumus Name Range Tabel Barang

Name: TBLBARANG

Refers To: =OFFSET(Dagangan!$A$2;0;0;COUNTA(Dagangan!$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(Produk!$M$5:$M$5000);6)


Tujuan Menjatah Etiket Range Pada Excel

Tujuannya adalah untuk mempermudah kita dalam penulisan rumus diexcel.

Karna dengan memberi nama range kita tidak perlu lagi mengetikkan rumus bersisa panjang, cukup dengan memanggil nama range nan kita cak bagi.

Plong part 1 ini kita akan mewujudkan sebuah form input barang pada Visual Basic.

2. Tampilkan Sirkulasi udara Visual Basic

Caranya silahkan klik
Tab Developer

Okuler Basic
maka akan muncul tingkap optis basic begitu juga berikut:

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

3. Bikin Userform Barang

Untuk membuat userform komoditas caranya klik icon kilauan
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

Onderdil nan digunakan:

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

Setelah pemberian nama range radu langkah berikutnya penginputan coding.

4. Input Coding

Sesudah selesai di desain, anju berikutnya kita akan memasukkan coding. yang fungsinya nanti untuk mengeksekusi pada tombol-tombol nan 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 "Kubus"     .AddItem "Kotak"     .AddItem "Kaleng"     .AddItem "Kg"     .AddItem "Buah" End With  With CMBPILIH .AddItem "Kode Barang" .AddItem "Cap Dagangan" End With  Call Purnajabatan Derita.SIMPAN.Enabled = False Me.EDIT.Enabled = False Berpenyakitan.HAPUS.Enabled = False Derita.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 Cembul Simpan

          Private Sub SIMPAN_Click() Dim DataBarang As Object Set DataBarang = Sheet11.Range("A5000").End(xlUp)  If Derita.KODEBARANG.Value = "" _     Or Berpenyakitan.NAMABARANG.Value = "" _     Or Me.Runcitruncit.Value = "" _     Or Me.Total.Value = "" _     Or Me.HARGABELI.Value = "" _     Or Derita.HARGAJUAL.Value = "" Then     Call MsgBox("Data Barang harus ideal", vbInformation, "Data Komoditas") Else     DataBarang.Offset(1, 0).Value = Me.KODEBARANG.Value     DataBarang.Offset(1, 1).Value = Me.NAMABARANG.Value     DataBarang.Offset(1, 2).Value = Me.Eceran.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     Derita.Label7.Caption = Me.TABELBARANG.ListCount     Call Kudus 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 Diagram Terlebih Dahulu", vbInformation, "Edit Data") Else     Set UbahData = Sheet11.Range("A2:A50000").Find(What:=Me.KODEBARANG.Value, LookIn:=xlValues)     UbahData.Offset(0, 0).Value = Berpenyakitan.KODEBARANG.Value     UbahData.Offset(0, 1).Value = Derita.NAMABARANG.Value     UbahData.Offset(0, 2).Value = Me.SATUAN.Value     UbahData.Offset(0, 3).Value = Me.Total.Value     UbahData.Offset(0, 4).Value = Me.HARGABELI.Value     UbahData.Offset(0, 5).Value = Derita.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")     Berpenyakitan.EDIT.Enabled = False     Derita.HAPUS.Enabled = False     Me.BATAL.Enabled = False     Call Bersih     Call NonAktif End If Exit Sub Salah: Call MsgBox("Kode Barang enggak dapat 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 = Berpenyakitan.TABELBARANG.Value Me.NAMABARANG.Value = Me.TABELBARANG.Column(1) Me.Ketengan.Value = Berpenyakitan.TABELBARANG.Column(2) Berpenyakitan.JUMLAH.Value = Me.TABELBARANG.Column(3) Me.HARGABELI.Value = Derita.TABELBARANG.Column(4) Me.HARGAJUAL.Value = Berpenyakitan.TABELBARANG.Column(5)  Me.NAMABARANG.Enabled = True Berpenyakitan.Ketengan.Enabled = True Me.JUMLAH.Enabled = True Me.HARGABELI.Enabled = True Me.HARGAJUAL.Enabled = True Me.NAMABARANG.SetFocus  Me.KODEBARANG.Enabled = False Derita.SIMPAN.Enabled = False Me.EDIT.Enabled = True Me.HAPUS.Enabled = True Berpenyakitan.BATAL.Enabled = True Exit Sub Salah: Call MsgBox("Pilih Data pada grafik data", vbInformation, "Data Produk") End Sub
          
        

Coding Matikan

          Private Sub hapus_Click() Dim HapusData As Object If Derita.KODEBARANG.Value = "" Then     Call MsgBox("Pilih data lega tabulasi data sampai-sampai suntuk", vbInformation, "Ubah Data") Else Select Case MsgBox("Anda akan menyetip data" _ & vbCrLf & "Apakah dia yakin?" _ , vbYesNo Or vbQuestion Or vbDefaultButton1, "Punahkan data") Case vbNo Exit Sub Case vbYes End Select  Set HapusData = Sheet11.Range("A2:A50000").Find(What:=Berpenyakitan.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 Komoditas 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 Kudus Call Urut_Barang End If End Sub
          
        

Coding Batal

          Private Sub BATAL_Click() Call Nirmala Call Nonaktif Derita.SIMPAN.Enabled = False Berpenyakitan.EDIT.Enabled = False Me.Musnahkan.Enabled = False Me.Batil.Enabled = False Me.CmbNew.BackColor = &H80C0FF End Sub
        


Coding Print/ Cetak

        Private Sub CETAK_Click() If Berpenyakitan.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 = Dimensi(HARGABELI.Value, "Rp #,##0") End Sub Private Sub HARGAJUAL_Change() HARGAJUAL.Value = Matra(HARGAJUAL.Value, "Rp #,##0") End Sub
          
        

Coding Keluar

          Private Sub KELUAR_Click() Unload Derita End Sub
          
        

Coding Cari Data

          Private Sub KATAKUNCI_Change() On Error GoTo Pelecok Inci 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)  Berpenyakitan.Label7.Caption = Berpenyakitan.TABELBARANG.ListCount Exit Sub Pelecok: Call MsgBox("Maaf Data Yang Sira Cari Tak ditemukan", vbInformation, "Data Barang") End Sub
          
        

Sebelum coding Cari Data di masukkan, silahkan memencilkan ke worksheet Komoditas justru dulu – klik
Tab Data

Advanced
– pilih
copy to another location.

Tambahkan rumus pada
List Range,
Criteria Rangedan Plong
Copy To

Balasannya seperti berikut:

Advanced Filter Excel

5. Urutkan Data Barang Pada ListBox

Supaya data barang tampil berurut plong ListBox ketika dihapus, silahkan anda tambahkan 1 biji kemaluan 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)

Buncit silahkan ia coba jalankan dengan menekan tombol play (F5)


Berikut full coding FORM BARANG

        Option Explicit  Sub Jati() Derita.KODEBARANG.Value = "" Derita.NAMABARANG.Value = "" Me.SATUAN.Value = "" Me.Kuantitas.Value = "" Me.HARGABELI.Value = "" Me.HARGAJUAL.Value = "" End Sub  Sub Aktif() Me.KODEBARANG.Enabled = True Me.NAMABARANG.Enabled = True Derita.Eceran.Enabled = True Me.JUMLAH.Enabled = True Me.HARGABELI.Enabled = True Derita.HARGAJUAL.Enabled = True End Sub  Sub Purnajabatan() Me.KODEBARANG.Enabled = False Me.NAMABARANG.Enabled = False Me.SATUAN.Enabled = False Me.JUMLAH.Enabled = False Me.HARGABELI.Enabled = False Derita.HARGAJUAL.Enabled = False End Sub  Private Sub BATAL_Click() Call Bersih Call Purnajabatan Me.SIMPAN.Enabled = False Me.EDIT.Enabled = False Me.HAPUS.Enabled = False Berpenyakitan.BATAL.Enabled = False Me.CmbNew.BackColor = &H80C0FF End Sub  Private Sub CELUAR_Click() Unload Berpenyakitan End Sub  Private Sub CETAK_Click() If Berpenyakitan.TABELBARANG.RowSource = "" Then     Call MsgBox("Data Yang di Cetak Lain Ada", vbInformation, "Cetak Barang") Else     Select Case MsgBox("Data Dagangan Akan Di cetak" _         & vbCrLf & "Apakah Anda Yakin?" _         , vbYesNo Or vbQuestion Or vbDefaultButton1, "Cetak Data Dagangan")         Case vbNo         Exit Sub         Case vbYes     End Select     Sheet11.PrintOut End If End Sub  Private Sub CmbNew_Click() Call Aktif Me.KODEBARANG.SetFocus Derita.SIMPAN.Enabled = True Derita.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 Inci 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 Tambahan pula Habis", vbInformation, "Edit Data") Else     Set UbahData = Sheet11.Range("A2:A50000").Find(What:=Berpenyakitan.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 = Berpenyakitan.Besaran.Value     UbahData.Offset(0, 4).Value = Derita.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 Berdampak di Update", vbInformation, "Update Data")     Me.EDIT.Enabled = False     Berpenyakitan.HAPUS.Enabled = False     Berpenyakitan.BATAL.Enabled = False     Call Salih     Call NonAktif End If Exit Sub Keseleo: Call MsgBox("Kode Komoditas enggak boleh diubah", vbInformation, "Update Data") End Sub  Private Sub hapus_Click() Inci HapusData As Object If Derita.KODEBARANG.Value = "" Then     Call MsgBox("Pilih data pada tabel data justru dahulu", vbInformation, "Ubah Data") Else Select Case MsgBox("Anda akan menghapus data" _ & vbCrLf & "Apakah dia yakin?" _ , vbYesNo Or vbQuestion Or vbDefaultButton1, "Hapus data") Case vbNo Exit Sub Case vbYes End Select  Set HapusData = Sheet11.Range("A2:A50000").Find(What:=Berpenyakitan.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 Bunuh", vbInformation, "Memilah-milah Data") Berpenyakitan.Label7.Caption = Me.TABELBARANG.ListCount Me.EDIT.Enabled = False Me.Hapus.Enabled = False Derita.Sia-sia.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)  Berpenyakitan.Label7.Caption = Derita.TABELBARANG.ListCount Exit Sub Riuk: Call MsgBox("Amnesti Data Yang Sira Cari Tidak ditemukan", vbInformation, "Data Barang") End Sub  Private Sub RESET_Click() Derita.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 Berpenyakitan.TABELBARANG.RowSource = Sheet11.Range("HASILCARIBARANG").Address(EXTERNAL:=True)  Derita.Label7.Caption = Derita.TABELBARANG.ListCount Exit Sub SALAH: Call MsgBox("Magfirah 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 Dagangan 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 = Berpenyakitan.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 Dagangan Berhasil di Simpan", vbInformation, "Data Dagangan")          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 Berpenyakitan.KODEBARANG.Value = Me.TABELBARANG.Value Derita.NAMABARANG.Value = Me.TABELBARANG.Column(1) Berpenyakitan.SATUAN.Value = Berpenyakitan.TABELBARANG.Column(2) Me.JUMLAH.Value = Me.TABELBARANG.Column(3) Berpenyakitan.HARGABELI.Value = Me.TABELBARANG.Column(4) Berpenyakitan.HARGAJUAL.Value = Me.TABELBARANG.Column(5)  Me.NAMABARANG.Enabled = True Me.Eceran.Enabled = True Me.JUMLAH.Enabled = True Me.HARGABELI.Enabled = True Me.HARGAJUAL.Enabled = True Me.NAMABARANG.SetFocus  Derita.KODEBARANG.Enabled = False Me.SIMPAN.Enabled = False Berpenyakitan.EDIT.Enabled = True Me.Hilangkan.Enabled = True Me.Sia-sia.Enabled = True Exit Sub Pelecok: Call MsgBox("Pilih Data pada tabel data", vbInformation, "Data Barang") End Sub  Sub TampilDataBarang() Me.TABELBARANG.RowSource = "TBLBARANG" Derita.TABELBARANG.ColumnCount = 6 Berpenyakitan.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 "Dim"     .AddItem "Pack"     .AddItem "Dus"     .AddItem "Kotak"     .AddItem "Kaleng"     .AddItem "Kg"     .AddItem "Buah" End With  With CMBPILIH .AddItem "Kode Barang" .AddItem "Tanda Barang" End With  Call NonAktif Me.SIMPAN.Enabled = False Derita.EDIT.Enabled = False Me.Matikan.Enabled = False Me.BATAL.Enabled = False Me.Label7.Caption = Berpenyakitan.TABELBARANG.ListCount End Sub
            
            
          
        
      

Kalau ada kendala silahkan tinggalkan komentarnya pada kolom yang sudah tersaji di dasar.

Songsong pemberian

Incoming Search Term:

Prinsip membuat tuntutan penjualan online

Cara membentuk aplikasi penjualan dengan excel

Pendirian mewujudkan tuntutan penjualan dengan macro excel

Cara membuat aplikasi minimarket

Share This :

Source: https://informasi-beritaandre.blogspot.com/2021/01/cara-membuat-aplikasi-penjualan-v1-berbasis-vba-excel-part1.html