2 Function Excel untuk Menjumlahkan Angka di Dalam Teks


Tutorial: Excel 2007, 2010, 2013.

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

2 Function Excel untuk Menjumlahkan Angka di Dalam Teks

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

 

 

I. Function untuk Menjumlahkan Angka dalam Satu Sel

Misalnya, kita ingin menjumlahkan angka-angka pada setiap sel untuk ditampilkan dalam kolom Total seperti contoh di bawah ini.
Contoh posisi angka dan teks dalam sebuah sel Excel

Solusinya adalah menggunakan User Defined Function (UDF) berikut.

 

Langkah-langkah:

  1. Tekan tombol ALT + F11 untuk menampilkan layar editor Microsoft Visual Basic for Applications.
  2. Kemudian pada tab Insert, klik Module. Akan muncul satu layar putih.
  3. 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

  4. Kemudian simpan dan tutup layar editor.
  5. Selanjutnya kita akan menggunakan function tersebut pada lembar kerja Excel. Klik pada sel yang akan diisi dengan hasil penjumlahan. Contoh, sel G2.
  6. Ketik fungsi =SumNums(F2)
    Catatan: sel F2 adalah sel yang berisi angka-angka yang ingin dijumlahkan.
    Ketik function pada sel untuk hasil penjumlahan angka pada satu buah sel
  7. Tekan ENTER. Sel G2 akan berisi hasil penjumlahan.
  8. 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:

  1. Tekan tombol ALT + F11 untuk menampilkan layar editor Microsoft Visual Basic for Applications.
  2. Kemudian pada tab Insert, klik Module. Akan muncul satu layar putih.
  3. 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

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

 

Rekomendasi Artikel

Share this

Related Posts

Previous
Next Post »

2 comments

Tulis Komentar
24 August, 2016 19:52 delete

kalau di open office gimana gan?

Reply
25 August, 2016 19:02 delete

Cara di forum diskusi ini mungkin bisa membantu Anda

Reply