Pernahkah Anda mempunyai data angka yang menyatu dengan data text? Jika pernah bagaimana cara menjumlahkannya? Nah, pada kesempatan kali ini aku akan membahas bagaimana cara menjumlahkan data angka yang melekat dalam data text?
Perhatikan tabel data berikut ini
Dari data diatas terdapat jumlah beberapa item dimulai dari jumlah buku sebanyak 33, jumlah pulpen sebanyak 15, jumlah pernggaris sebanyak 45 data tersebut akan dijumlahkan. Data kedua yaitu jumlah bola voli sebanyak 21, jumlah bola basket sebanyak 63 lalu dijumlahkan. Data berikutnya yaitu jumlah komputer sebanyak 22, jumlah printer sebanyak 32 lalu dijumlahkan dan terakhir jumlah tinta sebanyak 102, catrid sebanyak 15, dan tooner sebanyak 15 lalu dijumlahkan.
Jika Anda menjumlahkan dengan rumus SUM maka hal tersebut tidak akan berhasil sebab ada beberapa data text yang akan dijumlahkan.
Lihat pola Cara Menjumlahkan Otomatis dengan AutoSUM
Untuk mengatasi problem penjumlahan dengan kasus ibarat diatas kita akan memakai pertolongan VBA dengan cara sebagai berikut:
Silakan tekan F11 untuk masuk ke VBA editor lalu buat satu buah modul lalu ketikkan script VBA berikut ini
Function JumlahkanAngkanya(rngS As Range, Optional strDelim As String = " ") As DoubleLalu bagaimana cara menjumlahkan data yang ada pada cell A1? silakan ketikkan rumus di cell B1 dengan formula :
Dim Nomor As Variant, Data As Long
Nomor = Split(rngS, strDelim)
For Data = LBound(Nomor) To UBound(Nomor) Step 1
JumlahkanAngkanya = JumlahkanAngkanya + Val(Nomor(Data))
Next Data
End Function
=JumlahkanAngkanya(A1)
Silakan lihat kesudahannya lalu untuk cell B2 hingga B4 silakan copykan rumus tersebut sehingga menghasilkan angka berikut ini
Jreng, berhasil kan. supaya bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/