2 Function Excel Untuk Menjumlahkan Angka Di Dalam Teks

Seperti pola pada gambar, kita bisa memakai macro function untuk menjumlahkan angka di dalam suatu sel lembar kerja yang juga berisi teks atau string.
2 Function Excel untuk Menjumlahkan Angka di Dalam Teks

Penjelasan detil tentang macro ada di postingan ini: Cara Menggunakan (Copy Paste) Macro di Excel, Word, dan PowerPoint.

DAFTAR ISI

1. Function untuk Menjumlahkan Angka dalam Satu Sel
2. Function untuk Menjumlahkan Angka pada Beberapa Sel

I. Function untuk Menjumlahkan Angka dalam Satu Sel

Misalnya, kita ingin menjumlahkan angka-angka pada setiap sel untuk ditampilkan dalam kolom Total mirip pola di bawah ini.
Contoh posisi angka dan teks dalam sebuah sel Excel
Solusinya yaitu memakai User Defined Function (UDF) berikut.

Langkah-langkah:

Tekan tombol ALT + F11 untuk memberikan layar editor Microsoft Visual Basic for Applications.

Kemudian pada tab Insert, klik Module. Akan timbul satu layar putih.

Salin dan tempatkan kode di bawah ini pada layar putih tersebut.
Function SumNums(rngS As Range, Optional strDelim As String = ” “) As Double
Dim vNums As Variant, lngNum As Long
vNums = Split(rngS, strDelim)
For lngNum = LBound(vNums) To UBound(vNums) Step 1
SumNums = SumNums + Val(vNums(lngNum))
Next lngNum
End Function

Kemudian simpan dan tutup layar editor.

Selanjutnya kita akan memakai function tersebut pada lembar kerja Excel. Klik pada sel yang mau diisi dengan hasil penjumlahan. Contoh, sel G2.

Ketik fungsi =SumNums(F2)
Catatan: sel F2 yakni sel yang berisi angka-angka yang ingin dijumlahkan.

Tekan ENTER. Sel G2 akan berisi hasil penjumlahan.

Selanjutnya salin function pada sel G2 ke sel di bawahnya.

II. Function untuk Menjumlahkan Angka pada Beberapa Sel

Contoh variasi posisi angka dalam sel.
Contoh berbagai posisi angka dan teks dalam sel Excel

Kolom A berisi angka di sebelah kanan teks dan di antara sel ada sel yang kosong.

Kolom B berisi angka di sebelah kiri teks dan dipisahkan dengan spasi.

Kolom C berisi angka di sebelah kiri yang tergabung dengan teks.

Langkah-langkah:

Tekan tombol ALT + F11 untuk menampilkan layar editor Microsoft Visual Basic for Applications.

Kemudian pada tab Insert, klik Module. Akan timbul satu layar putih.

Salin dan tempatkan arahan di bawah ini pada layar putih tersebut.
Function SumNumbers(rng As Range) As Double
Dim a, e, m As Object
a = rng.Value
With CreateObject(“VBScript.RegExp”)
.Pattern = “d+(.d+)?”
.Global = True
For Each e In a
If .test(e) Then
For Each m In .Execute(e)
SumNumbers = SumNumbers + Val(m.Value)
Next
End If
Next
End With
End Function