Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menjumlahkan atau menambahkan angka dalam satu sel di Excel?

Dalam banyak kasus, Anda mungkin perlu menjumlahkan semua angka dalam satu sel. Misalnya ada string teks Kelas 1 Kelas 2 di sel A1, dan hasil penjumlahan angka-angka ini adalah 1 + 2 = 3. Artikel ini akan menunjukkan kepada Anda metode menambahkan angka dalam satu sel dengan detail.

Menjumlahkan angka dalam satu sel dengan fungsi yang ditentukan pengguna
Jumlahkan angka dengan mudah dalam satu sel hanya dengan beberapa klik


Menjumlahkan angka dalam satu sel dengan fungsi yang ditentukan pengguna

Anda dapat menjumlahkan angka dalam satu sel dengan fungsi yang ditentukan pengguna di bawah ini.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Aplikasi Microsoft Visual Basic jendela.

2. Dalam Aplikasi Microsoft Visual Basic window, klik Menyisipkan > Modul. Dan kemudian salin VBA di bawah ini ke file Modul jendela.

VBA: jumlah angka dalam satu sel

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3.Tekan lain + Q kunci untuk menutup Aplikasi Microsoft Visual Basic jendela.

4. Pilih sel kosong untuk menampilkan hasilnya. Masukkan rumus di bawah ini ke dalamnya dan tekan Enter key (A2 adalah sel tempat Anda akan menjumlahkan angka tunggal).

=SUMNUMS(A2)

5. Kemudian seret Fill Handle dari sel hasil untuk menerapkan rumus ke sel lain yang dibutuhkan.

Note: Fungsi buatan pengguna ini tidak berlaku untuk sel dalam format angka.


Jumlahkan angka dengan mudah dalam satu sel hanya dengan beberapa klik

Kutools untuk Excel'S Menjumlahkan angka dalam sel rumus dapat membantu dengan mudah menjumlahkan angka dalam satu sel (termasuk sel format teks dan sel format angka) hanya dengan beberapa klik.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Pilih sel kosong untuk menampilkan hasil. Dan kemudian klik Kutools > Pembantu Formula > Pembantu Formula.

2. Dalam Pembantu Formula kotak dialog, konfigurasikan sebagai berikut.

2.1) Temukan dan pilih Menjumlahkan angka dalam sel dalam Pilih rumus kotak;
Tips: Anda dapat memeriksa SARING kotak, ketik kata kunci untuk memfilter rumus yang Anda butuhkan.
2.2) Di Sel kotak, tentukan sel yang berisi angka yang akan Anda jumlahkan;
2.3) Klik OK tombol. Lihat tangkapan layar:

3. Kemudian hasilnya diisi di sel yang dipilih. Pilih sel hasil, lalu seret Fill Handle ke bawah untuk mendapatkan hasil lainnya.

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Jumlahkan angka dengan mudah dalam satu sel dengan Kutools for Excel


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (8)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
TERIMA KASIH SANGAT BANYAK IDE MODULNYA LUAR BIASA! SAYA TIDAK PERNAH TAHU ITU ADA
Komentar ini diminimalkan oleh moderator di situs
Masalah dengan alat ini adalah ia menambahkan semua digit. Masalahnya adalah 125 + 2 bukan 127. Alat akan menambahkannya sebagai 1 + 2 + 5 + 2. Tidak yakin bagaimana ini berguna untuk seseorang yang perlu menambahkan semua angka. Bahkan dalam contoh itu tidak masuk akal atau tampak praktis. Apakah saya melewatkan sesuatu?
Komentar ini diminimalkan oleh moderator di situs
Salah jika angka dimasukkan ke dalam sel secara terpisah, misalnya 125 2 dan rumus dimasukkan ke sel berikutnya. Sel dengan rumus akan menghitung 127.
Komentar ini diminimalkan oleh moderator di situs
Hi Michael,
Maaf atas kesalahannya. Harap masukkan kode VBA berikut ke dalam jendela Modul (Kode), lalu terapkan rumus ini: =SUMNUMS(A1,"") untuk menjumlahkan semua digit dalam sel.

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
Komentar ini diminimalkan oleh moderator di situs
Anda juga dapat dengan mudah mengetikkan "=" di dalam sel. Jadi jika Anda memiliki sel yang 3 tetapi ingin menambahkan 1+2 itu akan menjadi "=1+2" di dalam sel
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki daftar nomor yang ingin saya tambahkan secara otomatis 30 ke setiap nomor di setiap sel. Apakah itu mungkin?
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menambahkan +1 digit ke angka dalam satu sel (word atau excel atau notepad, tidak masalah). Tetapi di tempat kerja saya, saya sering memiliki: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 sesuatu seperti itu.

Dan saya perlu membuatnya seperti: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304. Saya melakukannya secara manual, tetapi mungkin ada cara cepat untuk melakukannya?
Komentar ini diminimalkan oleh moderator di situs
Kode fungsi VBA bekerja dengan sangat baik. Terima kasih. 
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan