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.

Penjelasan detil mengenai macro ada di artikel 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 seperti contoh di bawah ini.

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.
   
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.

• 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.
   
7. Tekan ENTER. Selesai.

 

Rekomendasi Artikel

• Cara Membuat Ranking atau Peringkat pada Data Excel
• 3 Cara Menggabungkan Isi Beberapa Sel Excel Menjadi Satu
• Cara Membuat Huruf Besar (Huruf Kapital) pada Awal Kalimat di Excel
• 3 Cara Menambah Angka Nol dan Teks di Depan dan Belakang Angka Excel
• 3 Cara Custom Format untuk Membuat Karakter Berulang, Warna, dan Mensejajarkan Posisi Angka Excel

Share this

Related Posts

Sumber : http://www.computer1001.com/2015/07/function-excel-untuk-menjumlahkan-angka-dalam-teks.html

Share this post