2 Function Excel untuk Menjumlahkan Angka di Dalam Teks

Seperti contoh pada gambar, kita bisa menggunakan macro function Excel untuk menjumlahkan angka di dalam sebuah sel yang juga berisi teks atau string.

Function Excel Menjumlahkan Angka dalam Teks di Satu Sel

Misalnya, kita ingin menjumlahkan angka-angka pada setiap sel untuk ditampilkan dalam kolom Total seperti contoh di bawah ini.

Solusinya adalah menggunakan User Defined Function (UDF) berikut.

Langkah-langkah:

• Tekan tombol ALT + F11 untuk menampilkan layar editor Microsoft Visual Basic for Applications.
• Kemudian pada tab Insert, klik Module. Akan muncul 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 menggunakan function tersebut pada lembar kerja Excel. Klik pada sel yang akan diisi dengan hasil penjumlahan. Contoh, sel G2.
• Ketik fungsi =SumNums(F2)
  Catatan: sel F2 adalah 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.

Function Excel Menjumlahkan Angka dalam Teks pada Beberapa Sel

Contoh variasi posisi angka dalam sel.

• 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 muncul satu layar putih.
• Salin dan tempatkan kode 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

• Simpan dan tutup layar editor.
• Untuk menggunakan function tersebut pada lembar kerja Excel, klik pada sel yang akan diisi dengan hasil penjumlahan. Contoh, sel A5.
• Kemudian ketik fungsi =SumNumbers(A1:A4)
  Catatan: sel A1:A4 adalah sel-sel yang berisi angka yang ingin dijumlahkan.
  
• Tekan ENTER. Selesai.

Penutup

Demikian 2 rumus macro VBA Excel untuk menjumlahkan angka dalam teks.

Penjelasan detil mengenai macro ada di artikel ini: Cara Menggunakan Macro di Excel, Word, dan PowerPoint.

Lihat di sini: 2 Rumus Excel Mengalikan Angka dalam Teks