VBA kullanarak belirli bir hücre rengine sahip hücre sayısını sayma

  • Makale
  • Şunlara uygulanır:
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Özet

Microsoft Excel Formülleri sekmesinde, Diğer İşlevler>İstatistik kategorisinde , belirli bir koşulu karşılayan bir aralıktaki hücre sayısını sayan ÇOKEĞERSAY adlı bir işlev olduğunu biliyoruz. Bu işlevin ölçütleri metin veya sayılarla sınırlıdır. Ancak VBA kullanarak, hücre rengi gibi diğer ölçütlere sahip hücre sayısını saymak için bir işlev oluşturabiliriz.

COUNTIF

Daha fazla bilgi

VBA kullanılarak, bir Kullanıcı Tanımlı İşlev (UDF) oluşturulup bir eklenti dosyasına kaydedilebilir, böylece diğer çalışma kitaplarında kullanılabilir ve diğer bilgisayarlara aktarılabilir.

UDF oluşturma

Hücre rengini saymak için UDF oluşturma adımları şunlardır:

  1. Microsoft Excel'i açın, ardından Visual Basic Düzenleyicisi (VBE) penceresini göstermek için Alt+F11 tuşlarına basın.

  2. Modül oluşturmak için Ekle menüsünde Modül'e tıklayın. Ardından aşağıdaki betiği yazın:

    Function CountCcolor(range_data As range, criteria As range) As Long     Dim datax As range     Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data     If datax.Interior.ColorIndex = xcolor Then         CountCcolor = CountCcolor + 1     End If Next datax End Function

    Ekle menüsünde Modül'e tıklayarak bir modül oluşturun. Ardından aşağıdaki betiği yazın

  3. Excel'e dönmek için VBE penceresini kapatın.

  4. UDF'yi test etmek için çeşitli renklerde bir hücre sütunu içeren örnek veriler oluşturun.

  5. D3 hücresine işlevini yazın:

=CountCcolor(range_data,criteria)

  • "range_data" bağımsız değişkeninde C2 - C51 hücresini seçin.

  • "Ölçüt" bağımsız değişkeninde F1 hücresini seçin.

    D3 hücresine şu işlevi yazın: =CountCcolor

  1. Enter tuşuna basın. F2 hücresindeki sonuç 6'dır. Bu, mavi renkle gölgelenen hücrelerin sayısının 6 olduğu anlamına gelir.

    Enter tuşuna basın ve F2 hücresinde sonuç 6'dır. Mavi hücre rengine sahip hücrelerin sayısının 6 hücre olduğu anlamına gelir

  2. Diğer renkleri kullanarak test edebilirsiniz. Giriş>Dolgu Rengi'ni kullanarak verilerden istediğiniz renkle F1 hücresindeki rengi değiştirin.

    Başka bir rengi de test edebilirsiniz. Aynı rengi almak için Biçim Boyacısı'nı kullanarak verilerden istediğiniz renkle F1 hücresindeki rengi değiştirme

  3. İşlevin başka bir çalışma kitabında veya başka bir bilgisayarda kullanılabilmesi için UDF'yi sıkıştırabilirsiniz. Bunu yapmak için şu adımları uygulayın:

    1. Adım: Çalışma kitabını kaydetme

    a. Dosya'yı ve ardından Farklı kaydet'i seçin. (Gerekirse Gözat'ı seçin.)

    b. Biçim olarak Excel Add-In (.xlam) öğesini seçin ve dosyaya CountCcolor gibi bir ad verin.

    Not

    Add-In dosyanızı istediğiniz yere kaydedebilirsiniz. Ancak Excel programınızda Add-In olarak listelenebilmesi için varsayılan konuma kaydedin. Windows 7'de Microsoft Excel'in herhangi bir sürümünün varsayılan konumu şudur: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    2. Adım: Eklentiyi Yükleme

    a. Eklentiyi yüklemek istediğiniz bilgisayarda Microsoft Excel'i açın.

    b. Geliştirici sekmesinde Excel 2013 ve üzeri için Excel Eklentileri'ni seçerek Add-Ins iletişim kutusunu açın. (Excel 2010'daki Eklentiler.)

    c. Eklentiler iletişim kutusunda Gözat'ı seçin. Add-In iletişim kutusunda Gözat düğmesine tıklayarak Gözat iletişim kutusunun görüntülenmesini sağlayın.

    d. Add-In dosyasının kaydedildiği dosya konumuna gidin (USB sürücüsü veya bulut tabanlı klasör gibi). Dosyayı seçin ve ardından Aç'ı seçin.

    e. Add-Ins iletişim kutusunda, eklenti onay kutusunun işaretsiz olduğundan emin olun. Sonra Tamam’ı seçin. Add-Ins iletişim kutusunda eklenti onay kutusunun işaretsiz olduğundan emin olun. Ardından Tamam'ı seçin.

Hücre Rengini Say UDF yüklü ve kullanıma hazır. İmlecinizi çalışma sayfasındaki herhangi bir hücreye yerleştirip yazarak istediğiniz zaman bu işleve erişebilirsiniz:

=CountCcolor(range_data,criteria)

Topluluk Çözümleri İçeriği Bildirimi

MICROSOFT CORPORATION VE/VEYA ILGILI TEDARIKÇILERI, BURADA YER ALAN BILGILERIN VE ILGILI GRAFIKLERIN UYGUNLUĞU, GÜVENILIRLIĞI VEYA DOĞRULUĞU HAKKıNDA HIÇBIR BEYANDA BULUNMAZ. BU TÜR TÜM BILGILER VE ILGILI GRAFIKLER HIÇBIR GARANTI OLMAKSıZıN "OLDUĞU GIBI" SAĞLANıR. MICROSOFT VE/VEYA ILGILI TEDARIKÇILERI, SATıLABILIRLIK, BELIRLI BIR AMACA UYGUNLUK, IŞÇILIK ÇABASı, UNVAN VE IHLAL ETMEMEYE ILIŞKIN TÜM ZıMNI GARANTILER VE KOŞULLAR DA DAHIL OLMAK ÜZERE, BU BILGILER VE ILGILI GRAFIKLERLE ILGILI TÜM GARANTI VE KOŞULLARı BURADA BEYAN EDER. MICROSOFT'UN VE/VEYA TEDARIKÇILERININ, BURADA YER ALAN BİlGİLERİN VE İlGİlİ GRAFİkLerİN KULLANIM VE KULLANILAMAMASIYLA İLGİlİ KULLANIM KAYBI, VERİ VEYA KAR KAYBINA İLGİlİ ZARARLAR DAHİl OLMAK ÜZERE, BUNLARLA SINIRLAMADAN DOLAYLI OLARAK DOĞRUDAN, DOLAYLI, CEZAI, ARıZI, NETICEDEKİ ZARARLARDAN YA DA HERHANGİ Bİr ZARARDAN SORUMLU TUTULAMAZ, SÖZLEŞMEYE, HAKSıZLıĞA, IHMALE, KATı SORUMLULUKLARA VEYA BAŞKA BIR ŞEKILDE, MICROSOFT'A VEYA TEDARIKÇILERINE ZARAR OLASıLıĞı BILDIRILMIŞ OLSA BILE.