Excel’de belirli metne ve dolgu/ yazı tipi rengine sahip hücreleri nasıl sayarsınız?
Yalnızca tek bir koşulu karşılayan hücreleri saymak (örneğin, belirli metin veya yazı tipi/doldurma rengine sahip tüm hücreleri) size kolay gelebilir. Peki ya birden fazla koşulu aynı anda karşılayan hücreleri saymayı biliyor musunuz? Örneğin, hem belirli metni hem de belirli yazı tipi/doldurma rengine sahip hücrelerin sayısını nasıl bulursunuz? Bu makalede size tam çözümü sunuyoruz.
VBA kodu ile belirli metin ve Doldurma Rengi içeren hücreleri sayın
VBA kodu ile belirli metin ve Yazı Tipi Rengi içeren hücreleri sayın
VBA kodu ile belirli metin ve Doldurma Rengi içeren hücreleri sayın
Aşağıdaki ekran görüntüsünde gösterildiği gibi bir tablonuz olduğunu varsayalım; B sütunundaki hücreleri, E2 hücresinin metnine ve Dolgu Rengi’ne göre saymak için aşağıdaki VBA kodunu uygulayın.
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 seçeneğine tıklayın, ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.
VBA kodu: Belirli metin ve Doldurma Rengi içeren 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 SubNot: Kodda B2:B9, hücre sayacağınız aralıktır; E2 ise, hücreleri ona göre sayacağınız metni ve Doldurma Rengi’ni içerir. Bunları ihtiyacınıza göre özelleştirebilirsiniz.
3. Kodu çalıştırmak için F5 tuşuna basın; ardından bir Kutools for Excel iletişim kutusu açılacak. Sonucu yerleştirmek için lütfen bir hücre seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
Ardından sayaç sonucu, seçilen hücrede anında görüntülenir.
Excel'in sihrini KUTOOLS AI ile keşfedin
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsini basit komutlarla oluşturulan grafiklerle görselleştirin.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri bir çırpıda anlayın.
- Metin Çevirisi: Elektronik tablolarınızdaki dil bariyerlerini aşın.
VBA kodu ile belirli metin ve Yazı Tipi Rengi içeren hücreleri sayın
E2 hücresinin metnine ve Yazı Tipi Rengi’ne göre B2:B9 aralığındaki hücreleri saymak için aşağıdaki adımları izleyin.
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Microsoft Visual Basic for Applicationspenceresinde,Ekle>Modülseçeneğine tıklayın, ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.
VBA kodu: Belirli metin ve Yazı Tipi Rengi içeren 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 SubNot: Kodda B2:B9, saymak istediğiniz hücre aralığıdır; E2 ise bu aralıktaki hücreleri sayarken kullanacağınız kriterdir. Bunları ihtiyacınıza göre özelleştirebilirsiniz.
3. Kodu çalıştırmak için F5tuşuna basın; ardından bir Kutools for Exceliletişim kutusu açılacak, sonucu yerleştirmek için bir hücre Lütfen seçin ve ardından Tamamdüğmesine tıklayın. Ekran görüntüsüne bakın:
Sonucu aşağıdaki ekran görüntüsünde gösterildiği gibi alacaksınız:
İlgili makaleler:
- Excel'de iki değer veya tarih arasında kaç hücre olduğunu nasıl sayarsınız?
- Excel’de bir seçim içinde belirli metni içeren hücreleri nasıl sayarsınız?
- Excel'de bir hücre, metin veya metnin bir kısmını içeriyorsa nasıl sayılır?
- Excel'de bir hücrede veya hücre aralığında belirli kelimelerin kaç kez geçtiğini nasıl sayarsınız?
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, üretkenliğinizi artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro’yu da içerir; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı eklentileri satın almaya göre tasarruf edin