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
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:
4. Ardından Keşfet anahtar ve tüm üstü çizili hücreler sayıldı. Ekran görüntüsüne bakın:
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.
not: Yukarıdaki formüllerde, A2: B14 formülleri uygulamak istediğiniz aralıktır.
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:
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ı
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...
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!