Loncat ke daftar isi utama

Bagaimana cara menambahkan nilai ke banyak sel di Excel?

Jika Anda ingin menambahkan nilai ke beberapa sel di Excel, metode berikut akan membantu Anda memprosesnya dengan mudah dan cepat:

panah gelembung kanan biru Tambahkan Nilai ke beberapa sel dengan VBA

Menggunakan makro dapat memudahkan banyak pemrosesan berulang, dan membuat pekerjaan kita lebih mudah dan lebih cepat. Begitu juga dengan makro berikut.

Langkah 1: Pilih sel yang akan Anda tambahkan nilai.

Langkah 2: Tahan ALT + F11 kunci, dan itu membuka jendela Microsoft Visual Basic for Applications.

Langkah 3: Klik Menyisipkan > Modul, dan tempelkan VBA berikut di Module Window.

Sub Add2Formula ()
'Tambahkan 300

Untuk Setiap c Dalam Seleksi
c. Aktifkan
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Selanjutnya c

End Sub

Langkah 4: Tekan F5 kunci untuk menjalankan makro ini.

Catatan:

1. Makro ini hanya berlaku untuk sel yang tidak berisi rumus di dalamnya.

2. Makro ini akan menambahkan 300 ke semua sel yang dipilih. Jika Anda ingin menambahkan nilai lain, silakan ganti 300 dengan nilai lain.

panah gelembung kanan biru Tambahkan nilai ke beberapa sel dengan Kutools for Excel

Kutools untuk Excel memberi kami metode alternatif yang mudah digunakan, dan Alat Pengoperasiannya dapat membantu kami menambahkan nilai ke banyak sel dengan mudah.

Kutools untuk Excel mencakup lebih dari 80 alat Excel yang praktis. Gratis untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang.

Langkah 1: Pilih sel yang akan Anda tambahkan nilai yang sama.

Langkah 2: Klik Kutools > Operasi > Alat Operasi .... Lihat tangkapan layar:

Langkah 3: Pilih Tambahan dari bagian Operation, dan masukkan nilai yang akan Anda tambahkan ke sel yang dipilih. Lihat tangkapan layar:

Langkah 4: Periksa Buat rumus .

Langkah 5: Klik OK.

Dalam Alat Operasi,
pilih Addition, masukkan 300, dan klik OK.

Kutools untuk Excel Alat Operasi mendukung semua jenis operasi matematika ke semua sel yang dipilih secara bersamaan:

  • Penambahan: Ditambah operan tertentu.
  • Pengurangan: Kurangi operan yang ditentukan.
  • Perkalian: Setiap nilai sel dikalikan dengan operan.
  • Divisi: Setiap nilai sel dibagi dengan operan.
  • Eksponensial: Setiap nilai daya sel pada operan.
  • Pembulatan: Membulatkan setiap nilai sel ke angka desimal (operan tertentu).
  • Fungsi: Menerapkan fungsi ke setiap nilai sel.
  • Kustom: Buat ekspresi seperti rumus dan terapkan ke setiap nilai sel.

Artikel terkait

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk

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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!

Comments (9)
No ratings yet. Be the first to rate!
Taher
Taher
This comment was minimized by the moderator on the site
Thanks a lot. It is working 馃挅
Reply
0
0
Joe Riter
Joe Riter
This comment was minimized by the moderator on the site
If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:


Sub Add2Formula()
' Add a number
Dim formulae As String
Dim a_number As Double

a_number = InputBox("what number to increment")

For Each cell In Selection
cell.Activate
formulae = ActiveCell.Formula
' gets rid of formula non-essentials that could cause errors
formulae = Replace(formulae, "'", "")
formulae = Replace(formulae, "=", "")

If formulae = "" Then
ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
Else
ActiveCell.Formula = "= " & formulae & "+" & a_number
End If
Next cell

End Sub


This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
Reply
0
0
Hum3
Hum3
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
Reply
0
0
sharfudheen
sharfudheen
This comment was minimized by the moderator on the site
sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
Reply
0
0
Fazlan
Fazlan
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
Reply
0
0
Alan
Alan
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
Reply
0
0
Desmond
Desmond
This comment was minimized by the moderator on the site
Dear Expert Have a question here. How to increase age automatically for each year? Thanks
Reply
0
0
Desmond
Desmond
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
Reply
0
0
jorawar singh
jorawar singh
This comment was minimized by the moderator on the site
sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
脳
Rate this post:
Reset
0   Characters
Suggested Locations