Ana içeriğe atla

Excel'de üstü çizili hücreleri saymak / toplamak nasıl?

Excel'de, verileri daha doğru analiz edebilmemiz için hücre değerlerinin yararsız veya geçersiz olduğunu gösteren bazı hücreler için her zaman üstü çizili biçimlendiririz. Bu yazımda Excel'deki bu üstü çizili hücreler ile aralıkta bazı hesaplamaların nasıl yapılacağından bahsedeceğim.

Excel'de üstü çizili hücreleri sayma

Excel'de üstü çizili hücreler olmadan sayın

Toplam, Excel'de üstü çizili hücreleri hariç tutar


ok mavi sağ balon Excel'de üstü çizili hücreleri sayma

Bir aralıkta üstü çizili biçime sahip kaç hücreyi bilmek istiyorsanız, bir Kullanıcı Tanımlı İşlev oluşturabilirsiniz, lütfen aşağıdaki adımları uygulayın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Üstü çizili hücreleri sayın

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. Ardından bu kodu kaydedip kapatın ve çalışma sayfasına dönün ve ardından bu formülü girin = CountStrike (A2: B14) boş bir hücreye, ekran görüntüsüne bakın:

doc-count-grev-1

4. Ardından Keşfet anahtar ve tüm üstü çizili hücreler sayıldı. Ekran görüntüsüne bakın:

doc-count-grev-1


ok mavi sağ balon Excel'de üstü çizili hücreler olmadan sayın

Ancak bazen, üstü çizili hücreleri hariç tutan normal hücrelerin sayısını saymak isteyebilirsiniz. Aşağıdaki kod size yardımcı olabilir.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Üstü çizili hücreler olmadan sayın

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. Ardından bu kodu kaydedin ve kapatın, çalışma sayfanıza geri dönün, bu formülü yazın = countnostrike (A2: B14) boş bir hücreye girin ve Keşfet tuşu, o zaman ihtiyacınız olan sonucu alacaksınız.

doc-count-grev-1

not: Yukarıdaki formüllerde, A2: B14 formülleri uygulamak istediğiniz aralıktır.


ok mavi sağ balon Toplam, Excel'de üstü çizili hücreleri hariç tutar

Üstü çizili hücreler kullanılmadığından, burada üstü çizili sayılar olmadan yalnızca normal sayıları toplamak istiyorum. Bu görevi çözmek için ayrıca bir Kullanıcı Tanımlı İşleve ihtiyacınız vardır.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Toplam, üstü çizili hücreleri hariç tutar

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. Ardından bu kodu kaydedin ve kapatın, çalışma sayfanıza geri dönün, bu formülü yazın = excstrike (B2: B14) boş bir hücreye girin ve Keşfet anahtar ve üstü çizili hücreler olmadan tüm sayıların toplamını alacaksınız. Ekran görüntüsüne bakın:

doc-count-grev-1

not: Yukarıdaki formüllerde, B2: B14 üstü çizili biçim olmadan hücreleri toplamak istediğiniz aralıktır.


İlgili yazılar:

Excel'deki bir hücre aralığındaki kalın sayıları nasıl toplayabilirim / sayabilirim?

Excel'de arka plan rengine göre hücreleri saymak ve toplamak nasıl?

Excel'deki yazı tipi renklerine göre hücreleri saymak / toplamak nasıl?

En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

kte sekmesi 201905


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great! I found a little bug here. The result doesn't actualize by itself. When I do changes on the sheet, the number doesn't changes. How can I fix it? Thanks
This comment was minimized by the moderator on the site
Hi. Great code for ignoring strikethrough text whilst summing. But, is it possible to filter the data and get a subtotal which still sums without the strike through text? Thanks
This comment was minimized by the moderator on the site
This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?
This comment was minimized by the moderator on the site
[quote]This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?By Ari[/quote] ARI, just change the two words "Long" to "Double" in the formula. Here is the same formula above, with the correct Data Types to allow for values with decimal points: Public Function ExcStrike(pWorkRng As Range) As Double 'Update 20161107_IITCSglobal.com Application.Volatile Dim pRng As Range Dim xOut As Double xOut = 0 For Each pRng In pWorkRng If Not pRng.Font.Strikethrough Then xOut = xOut + pRng.Value End If Next ExcStrike = xOut End Function
This comment was minimized by the moderator on the site
Thank you very much for this information, it's extremely helpful, However, I'm having an issue using the VBA code: Sum exclude strikethrough cells.

It does not exclude the strikethrough cells in my table unless I manually perform a strikethrough then double click the cell for the code to work.

I'm using a table with a conditional format to shade and strikethrough the entire row when (Table Header called Sold) Column "W" cell contains a "Yes", then that row will have a strikethrough and grey color. The worksheet table is "InventoryItems" and is configured to calculated automatically, but the code is not being triggered to exclude the dollar amount when the cell contains the strikethrough. Could you advise what I might be doing wrong?
Thank you for your time and help.

There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations