Diskusi tentang Excel

Membuat Rumus Sendiri untuk menjumlah Angka dalam Teks

Pernahkan Anda memiliki data angka yang ada di dalam teks dan bagaimana cara menjumlahkannya? Hal ini tentunya anda harus membuat rumus sendiri dan tidak ada dalam rumus excel standar artinya Anda harus mengakali dengan menggunakan coding VBA. Baiklah berikut gambaran bagaimana cara menjumlah data seperti gambar berikut ini



Jika kita jumlahkan manual maka anda mungkin akan menjumlahkan 250+30+52+5 maka hasilnya adalah 337 dan hasil tersebut Anda harus menghitungnya dengan kalkulator atau manual dientrikan kedalam beberapa cell setiap angkanya.

Kali ini bagaimana cara supaya otomatis, dan rumus apa yang bisa menghitung penjumlahan seperti tersebut? Anda harus membuat rumus sendiri dengan menggunakan VBA, lalu bagaimana coding untuk menghitung data diatas?


Silakan buat satu buah module dan masukan script berikut ini kedalam Module1. Untuk bagaimana cara membuat Module sudah pernah saya bahas.

Function JumlahkanAngka(rngS As Range, Optional strDelim As String = " ") As Double
Dim Angka As Variant, AngkaLain As Long
Angka = Split(rngS, strDelim)
    For AngkaLain = LBound(Angka) To UBound(Angka) Step 1
        JumlahkanAngka = JumlahkanAngka + Val(Angka(AngkaLain))
    Next AngkaLain
End Function
OK, sekarang kita mempunyai formula atau rumus baru yaitu JumlahkanAngka. rumus ini nantinya akan mampu menhitung data angka yang ada dalam teks tersebut. Mari kita buktikan. Silakan masuk kembali ke worksheet dan ketikkan rumus

=jumlahkanangka(A1)
Kira-kira seperti gambar berikut ini


Hasilnya adalah 337.

Ok, mudah bukan ternyata module tersebut mampu menjumlahkan angka yang berada pada uraian teks kalimat yang ada pada cell A1.

Demikian Membuat Rumus Sendiri untuk menjumlah Angka dalam Teks semoga bermanfaat dan selamat mencoba.

Related

Trik Excel 1101491121072402111

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item