Excel'de belirli metin ve dolgu/yazı tipi rengine sahip hücreleri nasıl sayarsınız?

Örneğin, yalnızca belirli bir koşulu içeren hücrelerin sayısını (belirli bir metni veya yazı tipi/dolgu rengini içeren tüm hücreleri sayma gibi) saymak kolay olabilir. Ancak birden fazla koşula göre hücreleri nasıl sayacağınızı biliyor musunuz? Örneğin, hem belirli bir metni hem de yazı tipi/dolgu rengini içeren hücrelerin sayısını saymak. Bu makale size çözümü gösterecek.

VBA kodu ile belirli metin ve dolgu rengine sahip hücreleri sayma
VBA kodu ile belirli metin ve yazı tipi rengine sahip hücreleri sayma

VBA kodu ile belirli metin ve dolgu rengine sahip hücreleri sayma

Aşağıdaki ekran görüntüsünde gösterildiği gibi bir tablonuz olduğunu varsayalım, E2 hücresinin metni ve dolgu rengine göre B sütunundaki hücreleri saymak için lütfen aşağıdaki VBA kodunu uygulayın.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın, ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA Kodu: Belirli metin ve dolgu rengine sahip hücreleri sayma

Sub CountFillColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim Rows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

Not: Kodda, B2:B9 sayılacak hücrelerin bulunduğu aralıktır, E2 ise hücreleri sayacağınız metin ve dolgu rengini içerir. Gereksinimlerinize göre bunları değiştirebilirsiniz.

3. Kodu çalıştırmak için F5 tuşuna basın, ardından bir Kutools for Excel iletişim kutusu açılır, lütfen sonucu yerleştireceğiniz bir hücre seçin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Sonra sayım sonucu seçilen hücrede hemen gösterilir.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

VBA kodu ile belirli metin ve yazı tipi rengine sahip hücreleri sayma

B2:B9 aralığındaki hücreleri E2 hücresinin metni ve yazı tipi rengine göre saymak için lütfen aşağıdaki adımları izleyin.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın, ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA Kodu: Belirli metin ve yazı tipi rengine sahip hücreleri sayma

Sub CountFontColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim xRows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

Not: Kodda, B2:B9 sayılacak hücrelerin bulunduğu aralıktır, E2 ise hücreleri sayacağınız kriterdir. Gereksinimlerinize göre bunları değiştirebilirsiniz.

3. Kodu çalıştırmak için F5 tuşuna basın, ardından bir Kutools for Excel iletişim kutusu açılır, lütfen sonucu yerleştireceğiniz bir hücre seçin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Aşağıdaki ekran görüntüsünde gösterildiği gibi sonucu elde edeceksiniz:

İlgili makaleler:

• Excel'de iki değer veya tarih arasındaki hücre sayısını nasıl sayarsınız?
• Excel'de seçim içinde belirli metne sahip hücreleri nasıl sayarsınız?
• Excel'de hücrede metin veya metnin bir kısmı varsa nasıl sayarsınız?
• Excel'de bir hücrede veya bir hücre aralığında belirli/kelime sayısını nasıl sayarsınız?