• Word
    • Cara Menggunakan Fitur Tersembunyi Konversi Pengukuran di Word

      Cara Membuat Nomor Halaman Kedua Dimulai dari Nomor…

      Cara Menyisipkan Nomor Halaman pada Header / Footer…

      Solusi Header (Judul) Tabel Word Tidak Bisa Ditampilkan…

      Cara Membalikkan Urutan Nomor Halaman Word

  • PowerPoint
    • 3 Video Tutorial Membuat Animasi Zoom-In Gambar di…

      Download Template PowerPoint Huruf ABC

      3 Template dan Video Tutorial Animasi PowerPoint Atraksi…

      2 Template Timer PowerPoint untuk Kegiatan Anak-Anak

      Cara Cepat Menyisipkan Ratusan Gambar Secara Sekaligus di…

  • Excel
    • 2 Cara Mencegah Excel Mengubah Tanda = +…

      Cara Membuat Warna Ranking Berbeda dengan Conditional Formatting

      2 Formula Menjumlahkan Angka yang Berisi Teks Tertentu…

      Cara Mengganti Simbol Tertentu Menjadi Baris Enter di…

      7 Shortcut untuk Input Data Secara Cepat di…

  • Bisnis/Karir
    • Download 7 Set Template Banner Sosial Media

      2 Situs untuk Download 20.000 Lebih Template Logo

      33+ Template Resume (CV) Word dan PowerPoint yang…

      Download 400+ Template Resume / CV Microsoft Word

      Download Gratis 1.100+ Template Sampul (Cover) Laporan

  • Freebies
    • Backgrounds
    • Fonts
    • Icons
    • Wallpaper
Trending
3 Video Tutorial Membuat Animasi Zoom-In Gambar di...
Download Template PowerPoint Huruf ABC
3 Template dan Video Tutorial Animasi PowerPoint Atraksi...
2 Template Timer PowerPoint untuk Kegiatan Anak-Anak
Cara Cepat Menyisipkan Ratusan Gambar Secara Sekaligus di...
6 Template + Video Tutorial Animasi Infografis Slide...
5 Template & Video Tutorial Animasi PowerPoint Aneka...
2 Video Tutorial Bingkai Foto PowerPoint Efek Kuas...
7 Template dan Video Tutorial Animasi Teks PowerPoint
41 Slide Template untuk Daftar Isi / Agenda...

Computer 1001

  • Word
    • Cara Menggunakan Fitur Tersembunyi Konversi Pengukuran di Word

      Cara Membuat Nomor Halaman Kedua Dimulai dari Nomor…

      Cara Menyisipkan Nomor Halaman pada Header / Footer…

      Solusi Header (Judul) Tabel Word Tidak Bisa Ditampilkan…

      Cara Membalikkan Urutan Nomor Halaman Word

  • PowerPoint
    • 3 Video Tutorial Membuat Animasi Zoom-In Gambar di…

      Download Template PowerPoint Huruf ABC

      3 Template dan Video Tutorial Animasi PowerPoint Atraksi…

      2 Template Timer PowerPoint untuk Kegiatan Anak-Anak

      Cara Cepat Menyisipkan Ratusan Gambar Secara Sekaligus di…

  • Excel
    • 2 Cara Mencegah Excel Mengubah Tanda = +…

      Cara Membuat Warna Ranking Berbeda dengan Conditional Formatting

      2 Formula Menjumlahkan Angka yang Berisi Teks Tertentu…

      Cara Mengganti Simbol Tertentu Menjadi Baris Enter di…

      7 Shortcut untuk Input Data Secara Cepat di…

  • Bisnis/Karir
    • Download 7 Set Template Banner Sosial Media

      2 Situs untuk Download 20.000 Lebih Template Logo

      33+ Template Resume (CV) Word dan PowerPoint yang…

      Download 400+ Template Resume / CV Microsoft Word

      Download Gratis 1.100+ Template Sampul (Cover) Laporan

  • Freebies
    • Backgrounds
    • Fonts
    • Icons
    • Wallpaper
Microsoft Excel

2 Function Excel untuk Menjumlahkan Angka di Dalam Teks

by Imeily February 19, 2019
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.

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

  • 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

Tutorial: Excel 2007, 2010, 2013, 2016.

0
FacebookTwitterGoogle +PinterestLinkedinTumblrWhatsappEmail
Previous Post
Download 26 Template PowerPoint Gambar Peta
Next Post
7 Tahun Computer 1001: Tampilan Baru Blog yang Responsive

Lihat juga ini

2 Cara Mencegah Excel Mengubah Tanda = +...

Cara Membuat Warna Ranking Berbeda dengan Conditional Formatting

2 Formula Menjumlahkan Angka yang Berisi Teks Tertentu...

Cara Mengganti Simbol Tertentu Menjadi Baris Enter di...

Tulis Komentar Cancel Reply

18 Komentar

Rendi February 5, 2019 - 19:04

.Pattern = “\d+(\.\d+)?”

compile error kenapa ya

Reply
hendra kurniawan January 15, 2019 - 10:21

Mohon Pencerahan :
Sel A1 : 20 Buah
Sel B1 : 10 Buah
Sel C 1 : A1+B1
Bagaimana Cara menjumlahkan A1 + B1 agar bisa muncul 30 Buah? terimakasih

Reply
Imeily January 15, 2019 - 19:44

Gunakan formula ini dan akhiri dg menekan tombol CTRL + SHIFT + Enter:
=(SUM(SUBSTITUTE(A1:B1;”buah”;””)+0))&” buah”

Ganti tanda titik koma pada formula dg tanda koma bila komputer anda menggunakan settingan tsb.
Anda jg bisa menggunakan Custom Format untuk mengkalkulasi angka-angka yg memiliki unit. Tutorialnya ada di sini: Menambahkan Teks di Belakang Angka

Reply
Ervin May 23, 2018 - 13:11

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

kok hasilnya Nol yah..mohon pencerahannya gan

Reply
Imeily May 24, 2018 - 07:34

Apakah sel pada function =SumNumbers(A1:A4) berisi angka yg ingin dijumlahkan?

Reply
A MIKDAD January 28, 2019 - 10:13

iya hasilnya nol gmn ya?

Reply
A MIKDAD January 28, 2019 - 10:19

iya nol gimana ya yg no 1 bisa yg no 2 hasilnya nol terus?

Reply
Imeily January 29, 2019 - 21:29

Coba kode ini:
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

Reply
Galih January 19, 2018 - 16:20

mohon pencerahannya, Kalau permasalahannya begini bagaimana?
cell A1= T30
cell B1= S1
cell C1= T10
cell D1=T15
cell E1=S2
bagaimana cara menjumlah angka didepan huruf T ? namun tidak termasuk yang di depan hurus S.
mohon penjelasannya. terima kasih

Reply
Imeily January 20, 2018 - 19:38

Coba gunakan formula ini:
=SUM(IF(LEFT(A1:E1)=”T”;–RIGHT(A1:E1;LEN(A1:E1)-1)))

Akhiri dengan menekan tombol Ctrl + Shift + Enter
Note:Ganti tanda titik koma (;) dengan tanda koma bila komputer Anda menggunakan tanda pemisah tersebut

Reply
galih January 22, 2018 - 17:54

terima kasih, sangat membantu.
tapi hasilnya kok jadi minus ya? untuk merubah ke plus bagaimana caranya?

Reply
Sri Wantoro December 24, 2017 - 07:46

Terimakasih, sangat membantu. tetapi untuk script yang untuk Menjumlahkan Angka pada Beberapa Sel kok tidak bisa ya. mohon bantuan. terimakasih

Reply
Imeily December 27, 2017 - 17:16

Mungkin ada yg salah atau kurang ketik. Coba dicek lg script nya

Reply
galih January 22, 2018 - 07:51

Terima kasih penjelasannya , formula nya berjalan dan sangat membantu pekerjaan saya.
tapi kok hasilnya jadi minus ya? cara merubah jadi positif bagaimana caranya?
karena saya membuat kondisi apabila kolom (yang menggunakan formula anda) bernilai 120 maka kolom berikutnya akan berkurang 1 nilainya. tapi kondisi itu tidak bisa terpenuhi karena hasilnya (kolom yg menggunakan formula anda)
selalu bernilai negatif. mohon solusinya lagi.

terima kasih

Reply
Imeily January 25, 2018 - 17:34

Coba cek apakah ada kelebihan tanda minus pada formula anda

Reply
makhfuzainur rakhim August 21, 2017 - 08:30

Kalau untuk perkalian bagaimana Gan?

Reply
Alif Arrahman August 24, 2016 - 12:52

kalau di open office gimana gan?

Reply
Imeily August 25, 2016 - 12:02

Cara di forum diskusi ini mungkin bisa membantu Anda

Reply

Free Download

  • 30 Chart Templates Excel
  • 40 Chart Templates Excel
  • Template Laporan Microsoft Word
  • Ebook Cara Membuat Chart di Excel 2007 dan 2010
  • Ebook Tutorial Microsoft Excel 2007
  • Ebook Tutorial Microsoft Word 2007

Terpopuler

  • Cara Membuat dan Mengatur Posisi Nomor Halaman di Word

  • Download 12 Template PowerPoint dengan Efek Animasi dan Desain yang Keren

  • Cara Menghapus Halaman Kosong di Dokumen Microsoft Word

  • 3 Cara Menggabungkan Isi Beberapa Sel Excel Menjadi Satu

  • Cara Merubah Huruf menjadi Huruf Kapital atau Kecil di Excel

Terbaru

  • 3 Video Tutorial Membuat Animasi Zoom-In Gambar di PowerPoint (+Template)

  • Cara Menggunakan Fitur Tersembunyi Konversi Pengukuran di Word

  • 2 Cara Mencegah Excel Mengubah Tanda = + – Menjadi Formula

  • Cara Membuat Nomor Halaman Kedua Dimulai dari Nomor 1 di Word

  • Cara Membuat Warna Ranking Berbeda dengan Conditional Formatting

Tags

animasi PowerPoint AutoCorrect chart Excel daftar isi Word mail merge newsletter nomor halaman Word tabel Word template Excel template PowerPoint template Word

Cari Artikel

@2007 - 2019 Computer 1001. All Right Reserved.