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 Menghapus Semua Worksheet Kecuali Sheet Aktif Memakai VbaBagaimana cara menghapus worksheet memakai Macro (Code VBA)? Yah, itulah pertanyaan yang mungkin pernah ada di Otak Anda yang sedang berguru VBA Macr ...
- Rumus Menghitung Jumlah Usia Menurut Tahun LahirMenghitung usia biasanya diperlukan saat kita akan melaksanakan sebuah rekap data dari database yang didalamnya terdiri dari tanggal lahir. Dengan ad ...
- Cara Menciptakan File .Txt Dengan Macro VbaHallo sahabat Excel-ID usang tidak posting artikel wacana Excel, jadi sebelum aku memulai untuk menulis artikel ini aku mohon maaf sebab kesibukan di ...
- Cara Mengetahui/Menghitung Selisih Hari Tanggal Berbeda Pada Ms. ExcelHai sahabat excel-ID, masih semangat mencar ilmu Excel? Ya jikalau Anda masih tetap mencar ilmu Excel atau yang sedang mencari info bagaimana cara me ...
- Mengkolaborasikan Rumus Vlookup Dengan Fungsi IfApakah Anda sudah mengetahui bagaimana memakai rumus VLOOKUP ataukah syntaxnya ajah belum pernah tau? kemudian bagaimana juga dengan rumus IF apakah ...
- Cara Menghapus Hyperlink Pada Ms.Excel Melalui VbaHyperlink ialah hubungan antara satu bab dengan bab lain, di Ms. Excel hyperlink banyak dipakai untuk menghubungkan data supaya kita lebih gampang me ...
