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

Bagaimana menghitung / menjumlahkan sel yang dicoret di Excel?

Di Excel, kami selalu memformat coretan untuk beberapa sel yang menunjukkan nilai sel tidak berguna atau tidak valid, sehingga kami dapat menganalisis data dengan lebih akurat. Pada artikel ini, saya akan berbicara tentang bagaimana melakukan beberapa perhitungan dalam kisaran dengan sel-sel yang dicoret ini di Excel.

Hitung sel coret di Excel

Hitung tanpa coretan sel di Excel

Jumlah kecualikan sel coret di Excel

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2019 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.

panah gelembung kanan biru Hitung sel coret di Excel


Jika Anda ingin mengetahui berapa banyak sel dengan format coret dalam suatu rentang, Anda dapat membuat Fungsi Buatan Pengguna, lakukan langkah-langkah berikut:

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Hitung sel yang dicoret

Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountStrike = xOut
End Function

3. Kemudian simpan dan tutup kode ini, dan kembali ke lembar kerja, lalu masukkan rumus ini = CountStrike (A2: B14) ke sel kosong, lihat tangkapan layar:

doc-count-strike-1

4. Kemudian tekan Enter kunci, dan semua sel coret telah dihitung. Lihat tangkapan layar:

doc-count-strike-1


panah gelembung kanan biru Hitung tanpa coretan sel di Excel

Tapi, terkadang, Anda mungkin ingin menghitung jumlah sel normal saja yang tidak termasuk sel yang dicoret. Kode berikut dapat membantu Anda.

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Hitung tanpa coretan sel

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountNoStrike = xOut
End Function

3. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja Anda, ketikkan rumus ini = countnostrike (A2: B14) ke dalam sel kosong, dan tekan Enter kunci, maka Anda akan mendapatkan hasil yang Anda butuhkan.

doc-count-strike-1

Note: Dalam rumus di atas, A2: B14 adalah rentang tempat Anda ingin menerapkan rumus.


panah gelembung kanan biru Jumlah kecualikan sel coret di Excel

Karena sel coret tidak digunakan, di sini, saya ingin menjumlahkan hanya angka normal tanpa angka coretan. Untuk mengatasi tugas ini, Anda juga memerlukan Fungsi Buatan Pengguna.

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Jumlah mengecualikan sel coret

Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + pRng.Value
    End If
Next
ExcStrike = xOut
End Function

3. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja Anda, ketikkan rumus ini = excstrike (B2: B14) ke dalam sel kosong, dan tekan Enter kunci, dan Anda akan mendapatkan penjumlahan dari semua angka tanpa sel coret. Lihat tangkapan layar:

doc-count-strike-1

Note: Dalam rumus di atas, B2: B14 adalah rentang tempat Anda ingin menjumlahkan sel tanpa format coret.


Artikel terkait:

Bagaimana cara menjumlahkan / menghitung angka tebal dalam berbagai sel di Excel?

Bagaimana cara menghitung dan menjumlahkan sel berdasarkan warna latar belakang di Excel?

Bagaimana cara menghitung / menjumlahkan sel berdasarkan warna font di 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 (5)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini tampaknya membulatkan ke bilangan bulat, dan tidak memperhitungkan tempat desimal. Misalnya, 1.35 + 1.00 akan sama dengan 2 bukannya 2.35, tetapi 1.50 + 1 akan sama dengan 3 bukannya 2.50. Bagaimana Anda bisa memperbaiki kode untuk menambahkan secara akurat?
Komentar ini diminimalkan oleh moderator di situs
[quote]Ini sepertinya membulatkan ke bilangan bulat, dan tidak memperhitungkan tempat desimal. Misalnya, 1.35 + 1.00 akan sama dengan 2 bukannya 2.35, tetapi 1.50 + 1 akan sama dengan 3 bukannya 2.50. Bagaimana Anda bisa memperbaiki kode untuk menambahkan secara akurat?Oleh Ari[/quote] ARI, ubah saja dua kata "Long" menjadi "Double" dalam rumusnya. Berikut adalah rumus yang sama di atas, dengan Tipe Data yang benar untuk memungkinkan nilai dengan titik desimal: Fungsi Publik ExcStrike(pWorkRng As Range) Sebagai Double 'Update 20161107_IITCSglobal.com Application.Volatile Dim pRng As Range Dim xOut As Double xOut = 0 Untuk Setiap pRng Dalam pWorkRng Jika Tidak pRng.Font.Strikethrough Kemudian xOut = xOut + pRng.Value End Jika ExcStrike Berikutnya = xOut End Function
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak atas informasi ini, ini sangat membantu, Namun, saya mengalami masalah saat menggunakan kode VBA: Jumlahkan sel yang dicoret.

Itu tidak mengecualikan sel yang dicoret di tabel saya kecuali saya secara manual melakukan coretan lalu klik dua kali sel agar kode berfungsi.

Saya menggunakan tabel dengan format bersyarat untuk menaungi dan mencoret seluruh baris ketika (Tabel Header disebut Terjual) Sel kolom "W" berisi "Ya", maka baris itu akan memiliki coretan dan warna abu-abu. Tabel lembar kerja adalah "InventoryItems" dan dikonfigurasi untuk dihitung secara otomatis, tetapi kode tidak dipicu untuk mengecualikan jumlah dolar saat sel berisi coretan. Bisakah Anda memberi tahu apa yang mungkin saya lakukan salah?
Terima kasih atas waktu dan bantuan Anda.

Komentar ini diminimalkan oleh moderator di situs
Hai. Kode bagus untuk mengabaikan teks yang dicoret saat menjumlahkan. Tapi, apakah mungkin untuk memfilter data dan mendapatkan subtotal yang masih menjumlahkan tanpa coretan melalui teks? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Besar! Saya menemukan sedikit bug di sini. Hasilnya tidak terwujud dengan sendirinya. Ketika saya melakukan perubahan pada lembar, nomor tidak berubah. Bagaimana saya bisa memperbaikinya? terima kasih
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan