Bu COUNTIF işlevi, bir aralıktaki verilen koşulu karşılayan hücre sayısını saymak için kullanılır. Bu makalede, Excel'de COUNTIF işlevi ile Excel'de VBA makro.

Çalışma Kitabını İndirin

Ücretsiz alıştırma Excel çalışma kitabını buradan indirebilirsiniz.

VBA.xlsm ile COUNTIF Fonksiyonu

Excel'de COUNTIF Fonksiyonu

• Sözdizimi

Çalışma Sayfasıİşlevi.CountIf( Arg1 As Range, Arg2 ) Çift Olarak

• Parametreler

• Dönüş Tipi

Çift olarak Değer

6 Excel'de VBA ile COUNTIF Fonksiyonunu Kullanma Örnekleri

Bu bölümde, aşağıdaki komutları nasıl kullanacağınızı öğreneceksiniz COUNTIF ile metinleri, sayıları vb. saymak için Excel'de işlev VBA Kod.

1. Excel VBA'da COUNTIF ile Çalışma Sayfası İşlevi

Excel'in Çalışma SayfasıFonksiyonu içinde bulunan Excel'deki diğer işlevlerin çoğunu çağırmak için kullanılabilir. Ekleme Fonksiyonu diyalog kutusu ve COUNTIF işlevi bu işlevlerden biridir.

Yukarıdaki örnekle, aşağıdaki komutları nasıl kullanacağımızı öğreneceğiz Çalışma SayfasıFonksiyonu ile COUNTIF ile veri saymak için VBA Excel'de.

Adımlar:

• Basın Alt + F11 sekmesine gidin veya klavyenizde Geliştirici -> Visual Basic açmak için Visual Basic Düzenleyicisi .

• Açılır kod penceresinde, menü çubuğundan Insert -> Modül .

• Aşağıdaki kodu kopyalayın ve kod penceresine yapıştırın.

 Sub ExCOUNTIF() Range("B13") = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") End Sub 

Kodunuz artık çalışmaya hazır.

• Basın F5 klavyenizde veya menü çubuğundan Run -> Run Sub/UserForm üzerine de tıklayabilirsiniz. küçük Oynat simgesi makroyu çalıştırmak için alt menü çubuğunda.

Veri setimizde 3'ten küçük kaç sayı olduğunu bulmak istedik. Kodu çalıştırdıktan sonra, veri setimiz için 3'ten küçük sayıların sayısı olan 4 sonucunu elde ettik.

Daha fazlasını okuyun: İki Sayı Arasında COUNTIF Nasıl Kullanılır (4 Yöntem)

2. Excel'de Belirli Bir Metni Saymak için COUNTIF İşlevi

Bir Excel sayfasında kaç şehir veya isim veya yiyecek vb. olduğu gibi belirli bir metni saymak istiyorsanız, o zaman COUNTIF içinde işlev VBA .

Yukarıdaki örnekten, aşağıdakileri nasıl kullanacağımızı öğreneceğiz COUNTIF adının kaç kez geçtiğini saymak için John ile veri setimizde gerçekleşir VBA makro.

Adımlar:

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

 Sub CountifText() 'input countName = WorksheetFunction.CountIf(Range("B5:B10"), "John") 'output Range("E7") = countName End Sub 

Kodunuz artık çalışmaya hazır.

• Koşmak makro ile toplam sayıyı elde edersiniz.

Metni doğrudan kodunuza yazmak istemiyorsanız, önce bir değişkende saklayabilir ve daha sonra değişkeni kodun içine aktarabilirsiniz. Tıpkı aşağıdaki kod gibi,

 Sub CountifText() 'input Name = Range("E6") countName = WorksheetFunction.CountIf(Range("B5:B10"), Name) 'output Range("E7") = countName End Sub 

Daha fazlasını okuyun: Excel'de COUNTIF & LEFT İşlevleri ile Başlangıçtaki Metni Sayma

3. VBA ile Sayı Hesaplamak için COUNTIF Fonksiyonu

Kullanabilirsiniz COUNTIF belirli sonuçları çıkarmak için işlev.

Yukarıdaki örnekten, aşağıdakileri nasıl kullanacağımızı öğreneceğiz COUNTIF veri setimizde kaç tane sayı olduğunu saymak için 1,1'den büyük ile VBA makro.

Adımlar:

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

 Sub CountifNumber() 'input countNum = WorksheetFunction.CountIf(Range("B5:B10"), ">1.1") 'output Range("E7") = countNum End Sub 

Kodunuz artık çalışmaya hazır.

• Koşmak makro ile toplam sayıyı elde edersiniz.

Daha önce tartışıldığı gibi, sayıyı doğrudan kodunuza yazmak istemiyorsanız, önce bir değişkende saklayabilir ve daha sonra değişkeni kodun içine aktarabilirsiniz. Tıpkı aşağıdaki kod gibi,

 Sub CountifNumber() 'input Num = Range("E6") countNum = WorksheetFunction.CountIf(Range("B5:B10"), ">" & Num) 'output Range("E7") = countNum End Sub 

Daha fazlasını okuyun: Büyüktür ve Küçüktür Ölçütleriyle Excel COUNTIF

Benzer Okumalar

• 0'dan Büyük Hücreleri Saymak için Excel COUNTIF İşlevi
• Excel'de IF ve COUNTIF İşlevleri Birlikte Nasıl Kullanılır?
• Başka Bir Hücreden Metin İçeren Hücreyi Saymak için Excel COUNTIF
• Excel'de Yüzde Hesaplamak için COUNTIF Fonksiyonu Nasıl Kullanılır

4. Excel'de Nesne Aralığı ile COUNTIF Fonksiyonu

'ye bir hücre grubu atayabilirsiniz. Menzil Nesnesi ve sonra bunu kullanın Menzil Nesnesi Excel'de değerleri saymak için.

Adımlar:

• Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

 Sub ExCountIFRange() Dim iRng As Range 'hücre aralığını ata Set iRng = Range("B5:B10") 'aralığı formülde kullan Range("B13") = WorksheetFunction.SumIf(iRng, ">1") 'aralık nesnesini serbest bırak Set iRng = Nothing End Sub 

Kodunuz artık çalışmaya hazır.

• Koşmak kodu ile toplam sayıyı bir toplama değeri ile birlikte alırsınız.

Daha fazlasını okuyun: Excel'de Bitişik Olmayan Aralık için COUNTIF Nasıl Kullanılır

5. Excel'de COUNTIF Formül Yöntemi

Ayrıca şunları da kullanabilirsiniz Formül ve/veya FormülR1C1 yöntemini uygulamak için COUNTIF içindeki bir hücreye VBA Bu yöntemler bu tür işlemlerin yapılmasında daha esnektir.

5.1. Formül Yöntemi

Formül yöntemi, hücre aralığının şu şekilde belirtilmesine olanak tanır B5:B10 aşağıda örnekte gösterilmiştir.

Adımlar:

• Kod penceresinde Visual Basic Düzenleyicisi aşağıdaki kodu kopyalayın ve yapıştırın.

 Option Explicit Sub ExCountIfFormula() Range("B13").Formula = "=COUNTIF(B5:B10, "">1"")" End Sub 

Kodunuz artık çalışmaya hazır.

Bu kod parçası size ihtiyacınız olan verilerin toplam sayısını verecektir.

5.2. FormülR1C1 Yöntemi

FormülR1C1 yöntemi, belirli bir hücre aralığıyla kısıtlanmadığı için daha esnektir.

Aynı veri kümesi ile, şimdi aşağıdakileri nasıl kullanacağımızı öğreneceğiz FormülR1C1 içindeki değerleri saymak için VBA .

Adımlar:

• Kod penceresinde Visual Basic Düzenleyicisi aşağıdaki kodu kopyalayın ve yapıştırın.

 Option Explicit Sub ExCountIfFormulaRC() Range("B13").FormulaR1C1 = "=COUNTIF(R[-8]C:R[-1]C,"">2"")" End Sub 

Kodunuz artık çalışmaya hazır.

Bu kod aynı zamanda ihtiyacınız olan verilerin toplam sayısını da verecektir.

Çıkış aralığını ayarlamak istemiyorsanız, bu kodu şu şekilde yazarak daha da esnek hale getirebilirsiniz,

 Option Explicit Sub ExCountIfFormulaRC() ActiveCell.FormulaR1C1 = "=COUNTIF(R[-8]C:R[-1]C,"">2"")" End Sub 

Formül, koşulu karşılayan hücreleri sayacak ve yanıtı ActiveCell Çalışma sayfanızdaki COUNTIF işlevine şu şekilde başvurulmalıdır Sıra (R) ve Sütun (C) Sözdizimi.

Daha fazlasını okuyun: Excel'de İki Hücre Değeri Arasında COUNTIF Nasıl Uygulanır

6. COUNTIF Fonksiyonunun Sonucunun Bir Değişkene Atanması

Formülünüzün sonucunu Excel veri kümeniz yerine başka bir yerde kullanmak istiyorsanız, sonucu bir değişkene atayabilir ve daha sonra kodunuzda kullanabilirsiniz.

Bu VBA bunun için kod,

 Sub AssignCountIfVariable() Dim iResult As Double 'Değişkeni atayın iResult = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") 'Sonucu göster MsgBox "Değeri 3'ten küçük olan hücrelerin sayısı " & iResult End Sub 

Sonuç Excel mesaj kutusunda gösterilecektir.

Daha fazlasını okuyun: COUNTIF Excel Örneği (22 Örnek)

Sonuç

Bu makalede, nasıl kullanılacağı gösterilmiştir COUNTIF işlevi ile Excel'de VBA Umarım bu makale sizin için çok faydalı olmuştur. Konuyla ilgili herhangi bir sorunuz olursa sormaktan çekinmeyin.