Menjumlahkan dengan memakai rumus di Ms. Excel itu sudah biasa, namun bagaimana kalau penjumlahan tersebut tanpa memakai rumus? Nah, ini gres luar biasa. Seperti telah kita ketahui bahwa SUM merupakan rumus untuk menjumlahkan bahkan ada juga memakai perintah AutoSUM dan hal tersebut juga pernah aku bahas sebelumnya.
Ms. Excel akan menjumlahkan produk untuk kota "Cirebon" dan alhasil yaitu 289. Jika aku ganti dengan nama kota lain contohnya "Majalengka" maka excel akan menjumlahkan otomatis produk untuk kota Majalengka.
Berikut Coding yang harus Anda ketikan dalam Module
Bagaimana caranya?
Penjumlahan di Excel tanpa rumus yang aku maksud merupakan penjumlahan dengan memakai coding atau script VBA. Perhatikan tabel dan hasil penjumlahan di bawah ini dengan hanya mengklik tombol "Jumlahkan" maka otomatis akan terisi jumlah dengan kriteria tertentu.Ms. Excel akan menjumlahkan produk untuk kota "Cirebon" dan alhasil yaitu 289. Jika aku ganti dengan nama kota lain contohnya "Majalengka" maka excel akan menjumlahkan otomatis produk untuk kota Majalengka.
Berikut Coding yang harus Anda ketikan dalam Module
Private Sub JumlahTotal()
With Sheets("Sheet1") .Range("D10").Value = Application.SumIf(.Range("C1:C8"), _
"*" & .Range("C10").Value & "*", _
.Range("D1:D8"))
End With
End Sub
Bagaimana cara menciptakan Module sudah pernah aku bahas silakan cari di blog ini niscaya ketemu deh, selanjutnya kita akan panggil Module yang telah dibentuk tersebut dengan prosudure klik pada sebuah tombol namun sebelumnya Anda juga harus menciptakan tombol "Button" pada worksheet dengan cara klik Menu Developer lalu klik Insert dan cari Button Form Control lalu Anda bisaa mengganti nama Button 1 menjadi goresan pena "Jumlahkan" caranya tinggal Edit Text ajah.
Oia, untuk pemanggilan module Jumlahkan silakan tambahkan coding berikut
Anda tinggal sedikit berkreasi kalau memang datanya tidak menyerupai pola yang aku tuliskan diatas contohnya data Anda berada pada worksheet 2 maka silakan ganti With Sheets("Sheet1") menjadi With Sheets("Sheet2") lalu kalau kategori berada pada range lain contohnya F10:F15 maka silakan ganti ("C1:C8") menjadi ("F10:F11") dan value data yang akan dijumlahkannya berada pada range G10:G11 maka silakan ganti ("D1:D8") menjadi ("G10:G15").
Ingat, dalam pemrograman salah atau kurang satu abjad saja akan mengalami error...! jadi perlu ketelitian dalam membuatnya.
Demikian bagaimana cara menjumlahkan tanpa rumus dengan kriteria tertentu biar bermanfaat.
"*" & .Range("C10").Value & "*", _
.Range("D1:D8"))
End With
End Sub
Bagaimana cara menciptakan Module sudah pernah aku bahas silakan cari di blog ini niscaya ketemu deh, selanjutnya kita akan panggil Module yang telah dibentuk tersebut dengan prosudure klik pada sebuah tombol namun sebelumnya Anda juga harus menciptakan tombol "Button" pada worksheet dengan cara klik Menu Developer lalu klik Insert dan cari Button Form Control lalu Anda bisaa mengganti nama Button 1 menjadi goresan pena "Jumlahkan" caranya tinggal Edit Text ajah.
Oia, untuk pemanggilan module Jumlahkan silakan tambahkan coding berikut
Sub Button1_Click()
Call JumlahTotal
End Sub Anda tinggal sedikit berkreasi kalau memang datanya tidak menyerupai pola yang aku tuliskan diatas contohnya data Anda berada pada worksheet 2 maka silakan ganti With Sheets("Sheet1") menjadi With Sheets("Sheet2") lalu kalau kategori berada pada range lain contohnya F10:F15 maka silakan ganti ("C1:C8") menjadi ("F10:F11") dan value data yang akan dijumlahkannya berada pada range G10:G11 maka silakan ganti ("D1:D8") menjadi ("G10:G15").
Ingat, dalam pemrograman salah atau kurang satu abjad saja akan mengalami error...! jadi perlu ketelitian dalam membuatnya.
Demikian bagaimana cara menjumlahkan tanpa rumus dengan kriteria tertentu biar bermanfaat.
Anda tinggal sedikit berkreasi kalau memang datanya tidak menyerupai pola yang aku tuliskan diatas contohnya data Anda berada pada worksheet 2 maka silakan ganti With Sheets("Sheet1") menjadi With Sheets("Sheet2") lalu kalau kategori berada pada range lain contohnya F10:F15 maka silakan ganti ("C1:C8") menjadi ("F10:F11") dan value data yang akan dijumlahkannya berada pada range G10:G11 maka silakan ganti ("D1:D8") menjadi ("G10:G15").
Ingat, dalam pemrograman salah atau kurang satu abjad saja akan mengalami error...! jadi perlu ketelitian dalam membuatnya.
Demikian bagaimana cara menjumlahkan tanpa rumus dengan kriteria tertentu biar bermanfaat.
Related Posts
- Cara Merubah Persentase 0,05 Menjadi 5% Pada Ms. ExcelBerbicara persentase (%) memang sering kita temui dalam bekerja memakai Ms. Excel atau bahkan minimal kita pernah menemukan duduk perkara dalam pengo ...
- Contoh Rumus Countifs Untuk Menjumlahkan Banyak KriteriaInilah kehebatan rumus COUTIFS.... Sahabat Excel-ID pernahkan anda menghitung berapa jumlah data yang sesuai dengan kriteria tertentu dan bagaimana k ...
- Menampilkan Data Terbesar Dengan KondisiRumus untuk menampilkan data paling besar yaitu memakai MAX, namun bagaimana bila kita mempunyai sederetan data atau mempunyai jumlah data yang banya ...
- Cara Menemukan Data Yang Cocok/Sesuai Memakai Rumus MatchExcel-ID lagi-lagi masih berbicara mengenai database yang tentunya masih mengolah dan memakai Ms. Excel sebagai kegiatan perhitungannya. Pada kesempa ...
- Cara Menampilkan Path File Pada Textbox UserformFile intinya mempunyai daerah lokasi penyimpanan entah itu di MyDocument, Drive D, Drive E atau pada folder yang ada di drive tertentu atau berada di ...
- Cara Menampilkan Pesan Jikalau Data Yang Dientrikan Ganda (Double)Mengolah daya Ms. Excel tak terlepas dari entry data secara vertikal hal ini dinamakan dengan data satu field. Biasanya Anda entri data yang banyak m ...
