Excel'de bir hücre aralığındaki kalın sayıları toplamak veya saymak nasıl yapılır?

Bir çalışma sayfasında kalın sayılar içeren bir veri aralığınız varsa ve yalnızca kalın hücreleri toplamak veya saymak istiyorsanız, bunları manuel olarak ekleyebilirsiniz, ancak bu zaman alıcı olacaktır. Excel'de yalnızca kalın hücreleri hızlı ve kolay bir şekilde nasıl toplayabilir veya sayabilirsiniz?

Kullanıcı Tanımlı İşlev ile bir aralıktaki kalın sayıları sayma (VBA ve formül)
Kullanıcı Tanımlı İşlev ile bir aralıktaki kalın sayıları toplama (VBA ve formül)
Kutools for Excel ile birkaç tıklamayla bir aralıktaki kalın hücreleri sayma ve toplama

Kullanıcı Tanımlı İşlev ile bir aralıktaki kalın sayıları sayma

Aşağıdaki Kullanıcı Tanımlı İşlev, size kalın hücrelerin sayısını hızlı bir şekilde almanıza yardımcı olabilir. Lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Module Window yapıştırın.

VBA Kodu:Bir hücre aralığındaki kalın sayıları sayma

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Ardından bu kodu kaydedin ve =CountBold(A1:C9) formülünü boş bir hücreye yazın, ekran görüntüsüne bakın:

4. Enter tuşuna basın ve A1:C9 aralığındaki kalın hücreleri saymış olacaksınız.

Not: Formüldeki A1:C9, kalın hücreleri saymak için işlevi kullanmak istediğiniz aralığı gösterir, ihtiyacınıza göre değiştirebilirsiniz.

Kullanıcı Tanımlı İşlev ile bir aralıktaki kalın sayıları toplama

Bir veri aralığındaki yalnızca kalın sayıları toplamak istiyorsanız, bunu gerçekleştirmek için kullanıcı tanımlı bir işlev oluşturabilirsiniz.

1. ALT + F11 tuşlarına basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA Kodu:Bir hücre aralığındaki kalın sayıları toplama

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Ardından bu kodu kaydedin ve =sumbold(A1:C9) formülünü boş bir hücreye yazın, ekran görüntüsüne bakın:

4. Ve sonra Enter tuşuna basın, A1:C9 aralığındaki tüm kalın sayılar toplanmış olacaktır. Ekran görüntüsüne bakın:

Not: Formüldeki A1:C9, kalın hücreleri toplamak için işlevi kullanmak istediğiniz aralığı gösterir, ihtiyacınıza göre değiştirebilirsiniz.

Kutools for Excel ile birkaç tıklamayla bir aralıktaki kalın hücreleri sayma ve toplama

Karmaşık VBA kodlarıyla uğraşmadan ve formülleri hatırlamadan birkaç tıklamayla bir aralıktaki tüm kalın hücreleri kolayca sayabilir veya toplayabilirsiniz.

1. Kalın hücreleri saymak için, sonucu yerleştirmek üzere boş bir hücre seçin ve ardından Kutools > Geliştirilmiş İşlevler > Sayma > COUNTBYFONTBOLD'a tıklayın.

Kalın hücreleri toplamak için ise Kutools > Geliştirilmiş İşlevler > Sayma > SUMBYFONTBOLD'a tıklayın. Ekran görüntüsüne bakın:

2. İşlev Bağımsız Değişkenleri iletişim kutusunda, saymak veya toplamak istediğiniz kalın hücrelerin aralığını Referans kutusuna belirtin ve ardından Tamam düğmesine tıklayın.

Belirtilen aralıktaki tüm kalın hücrelerin sayısı veya toplamı artık seçilen hücrede görüntülenmektedir. Ekran görüntüsüne bakın:

Demo: Kutools for Excel ile bir aralıktaki kalın hücreleri sayma ve toplama

İlgili makaleler:

Excel'de tüm kalın hücreleri veya metinleri nasıl tanımlar ve seçersiniz?