Cara menghitung Total Jumlah dalam ListBox VBA Excell

Salam...,

Kembali lagi dalam pembuatan applikasi pengolahan data secara cepat dan mudah dengan menggunakan VBA MS.Excell 2010. Saya akan menggunakan ListBox sebagai Input data, Bagaimana cara menghitung Total Harga dari semua Jumlah yang ada dalam Listbox Mari kita langsung lakukan saja....

Pertama Buka MS.Excell...
1. Klik Tab Developer lalu Klik Icon Visual Basic pada pojok kiri atas, seperti ditunjukkan pada gambar berikut :

2. Klik kanan pada VBA Project untuk membuat Form baru, seperti ditunjukkan pada gambar dibawah ini :

3. Rancang lah Form inputan Baru, seperti gambar berikut ini :

4. Setelah itu Copas Koding berikut letakkan pada posisi masing -masing :

Sub inputkelisbox()

With ListBox1

ListBox1.ColumnCount = 3

    .AddItem

    .List(.ListCount - 1, 0) = "Nama Produk"

    .List(.ListCount - 1, 1) = "Jumlah"

    .List(.ListCount - 1, 2) = "Harga"

       

    .ColumnWidths = 80 & ";" & 80 & ";" & 80

End With

End Sub

Private Sub totalharga()

Dim i As Integer

   Dim harga As Long

   harga = 0

      For i = 0 To ListBox1.ListCount - 1

      harga = harga + Val(ListBox1.List(i, 2))

     

   Next

  Me.txtotal.Text = harga

  End Sub

Private Sub cmdinput_Click()

With ListBox1

If Trim(Me.txtproduk.Value) = "" Then

Me.txtproduk.SetFocus

MsgBox "Masukan Nama Product terlebih dahulu"

Exit Sub

End If

If Trim(Me.txtjumlah.Value) = "" Then

Me.txtjumlah.SetFocus

MsgBox "Masukan Jumlah Product terlebih dahulu"

Exit Sub

End If

If Trim(Me.txtharga.Value) = "" Then

Me.txtharga.SetFocus

MsgBox "Masukan Standart Packing Product terlebih dahulu"

Exit Sub

End If

.AddItem

.List(.ListCount - 1, 0) = txtproduk.Value

.List(.ListCount - 1, 1) = txtjumlah.Value

.List(.ListCount - 1, 2) = txtharga.Value

End With

Call totalharga

Me.txtharga.Text = ""

Me.txtjumlah.Text = ""

Me.txtproduk.Text = ""

Me.txtproduk.SetFocus

End Sub

Private Sub UserForm_Initialize()

Call inputkelisbox

Me.txtproduk.SetFocus

End Sub

5. Jalankan Form applikasinya, lalu input beberapa data, maka Anda akan mendapatkan Hasilnya seperti Tampak pada Gambar dibawah ini :

Selamat mencoba dan Silahkan mengembangkan lebih lagi.

Salam...,