VBA kullanarak belirli hücre rengi içeren hücreleri sayar

Office 2003 desteği sona erdi

Microsoft, Office 2003 desteğini 8 Nisan 2014'te sona erdirdi. Bu değişiklik yazılım güncelleştirmelerinizi ve güvenlik seçeneklerinizi etkiledi. Bunun sizin için ne anlama geldiğini ve korunmaya nasıl devam edebileceğinizi öğrenin.

ÖNEMLİ: Bu makale, Microsoft Makine Çevirisi Düzenleme yazılımı tarafından tercüme edilmiş olup, yüksek olasılıkla profesyonel bir çevirmen yerine CTF teknolojisi kullanılarak, Microsoft Topluluğu tarafından düzenlenmiştir. Microsoft, Bilgi Bankamız içindeki tüm makaleleri kendi dilinizde okuyabilmeniz için size hem profesyonel çevirmenler tarafından tercüme edilen hem de makine tarafından tercüme edildikten sonra Topluluk tarafından kontrol edilen makaleler sunar. Bununla birlikte, makine tarafından tercüme edilen, hatta Topluluk tarafından kontrol edilen bir makale bile her zaman mükemmel dil kalitesinde olmayabilir. Makalede dilinizi konuşan yabancı birisinin yapabileceği türden sözcük, söz dizimi veya dilbilgisi hataları bulunabilir. Microsoft, içeriğin hatalı tercümesinin veya müşterilerimiz tarafından kullanımının doğurabileceği olası yanlış anlamalar, hatalar veya zararlardan sorumlu değildir. Öte yandan Microsoft, Makine Çevirisi Düzenleme işlemini geliştirmek amacıyla Makine Çevirisi Düzenleme yazılımını ve araçlarını sık sık güncelleştirmektedir.

Makalenin İngilizcesi aşağıdaki gibidir: 2815384

Yazar hakkında:

MVPBu makalede MVP tarafından sağlanır. Raddini Rahayu. Microsoft, bu nedenle thankful önleyici kendi Mesleki deneyim diğer kullanıcılarla paylaşmak, MVP. Makale üzerinde nakledilmesi MVP'ın Web sitesi veya blog Daha sonra.
Belirtiler
Microsoft Excel formülü, Statistical içinde kategori için bir işlev yoktur EĞERSAYadlı verin koşula uyan aralık içindeki hücreleri sayısını sayar biliyoruz. Bu işlev ölçütlere metin veya sayı olarak biçimlendirilebilir. Ama aslında, yalnızca metin veya sayı, aynı zamanda hücre renkleri olabilir. Sonra biz EĞERSAY işlevini yaparken bu ölçütlerle sonuçları nasıl alabileceğiniz çözümler olamaz.


Çözüm
EĞERSAY işlevini kullanarak olmadan Altough, biz hala VBAkullanarak sonuçlar alabilirsiniz. VBA ile bir UDF (Kullanıcı Tanımlı İşlev) oluşturabilir ve bunun her çalışma kitabı ve diğer bilgisayarlarda kullanılabilmesi için Eklenti dosyasına kaydedebiliriz.


Yapmanız gerekenler
Burada sayım oluşturmak için adımları renk UDF hücre:

  1. Açın Microsoft Excel ENTER tuşuna basın Alt + F11 göstermek için Visual Basic Düzenleyicisi pencere.
  2. Üzerinde Ekle Seç Menüsü Modülü bir modül oluşturmak için. Sonra aşağıdaki komutu yazın:
    Function CountCcolor(range_data As range, criteria As range) As Long    Dim datax As range    Dim xcolor As Longxcolor = criteria.Interior.ColorIndexFor Each datax In range_data    If datax.Interior.ColorIndex = xcolor Then        CountCcolor = CountCcolor + 1    End IfNext dataxEnd Function

  3. VBE penceresini kapatın ve Excel'e geri.
  4. UDF sınamak için bazı örnek veriler oluşturun veya bu örnek dosya indirebilirsiniz Burada.
  5. Hücre D3, işlevini yazın: = CountCcolor(range_data, ölçüt)
    range_data argumen hücreyi seçin. C51 C2
    Ölçüt argumen hücreyi seçin. F1


  6. Basın Girin ve hücre F2 Sonuç 6. Bu mavi hücre rengi içeren hücrelerin sayısı 6 hücreler olduğu anlamına gelir.


  7. Başka bir renk sınama da yapabilirsiniz. Hücre rengini değiştirme F1 herhangi bir renk verilerini kullanarak istediğiniz Biçim Boyacısı aynı renk elde etmek için.


  8. Başka bir çalışma kitabı ve makine işlev kullanılabilir böylece ayrıca UDF paketleyebilirsiniz. Bu adımlar aşağıdaki Lütfen:


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

    1. İçin adlandırılmış istediğiniz adı girin. Dosya adı kutu. Ben, burada ad Sayı hücre rengi.
    2. Dosya türü için seçin Excel Eklentisi (.xlam) biçimi.



      Not:, İstediğiniz eklenti dosyanız herhangi bir yere kaydedebilirsiniz. Ancak, yerleşik Excel listelenmesini isterseniz, varsayılan konuma kaydetmeniz gerekir. Bilgisayarımda Windows 7 işletim sistemi, Microsoft Excel'in tüm sürümleri için varsayılan konum olan: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns


    Adım 2: eklenti yükleme

    1. Açın Microsoft Excel Açık eklentiyi yüklemek istediğiniz bilgisayarda Eklentiler tıklatarak iletişim kutusu Eklenti üzerinde Geliştirici sekmesini tıklatın.
    2. Üzerinde Eklenti iletişim kutusunda'ı tıklatın Gözat Bunu düğmesini Gözat iletişim kutusu görüntülenir.


    3. Bu eklenti dosyası konumu dosyaya kaydedilen gidin. Dosyayı seçin ve ardından Açın.
    4. Üzerinde Eklentiler iletişim kutusunda eklenti onay kutusunu olduğundan emin olun denetlenmeyen. I Tamam.

Şimdi sayısı hücre rengi UDF yükledi ve kullanmaya hazır.

Topluluk çözümleri içerik vazgeçme

MICROSOFT CORPORATION VE/VEYA İLGİLİ TEDARİKÇİLERİ, BURADA BULUNAN BİLGİLERİN VE İLGİLİ GRAFİKLERİN UYGUNLUĞU, GÜVENİLİRLİĞİ VEYA DOĞRULUĞU HAKKINDA HİÇBİR AÇIKLAMADA BULUNMAZ. BU TÜR BİLGİLERİ VE İLGİLİ GRAFİKLERİN HİÇBİR GARANTİ "OLDUĞU GİBİ" SAĞLANIR. MICROSOFT VE/VEYA İLGİLİ TEDARİKÇİLERİ TÜM GARANTİ VE KOŞULLARI İLE İLGİLİ OLARAK BU BİLGİLER VE İLGİLİ GRAFİKLER, TÜM ZIMNİ GARANTİLERİ VE SATILABİLİRLİK, BELİRLİ BİR AMAÇ, TUTMAKTAYIZ, BAŞLIK VE İHLAL ETMEME DE DAHİL OLMAK ÜZERE BURADA REDDETMEKTEDİR. ÖZELLİKLE HİÇBİR DURUMDA MICROSOFT VE/VEYA TEDARİKÇİLERİNE TUTULAMAZLAR OLDUĞUNU KABUL DOĞABİLECEK, BUNLARLA SINIRLI OLMAMAK KAYDIYLA, KULLANIM, VERİ VEYA KAZANÇ KAYBI SORUMLU DA DAHİL OLMAK ÜZERE HERHANGİ BİR DOĞRUDAN, DOLAYLI, CEZAİ TAZMİNATLAR, ARIZİ, ÖZEL, ARIZİ ZARAR YA DA KAYIPTAN ZARAR KAYBINDAN DOĞAN YA DA BİRLİKTE BİRİNDE ŞEKLİNİZE BAĞLI VEYA BURADA YER ALAN İLGİLİ GRAFİK VE BİLGİ KULLANMA BECERİSİNİN , SÖZLEŞME, HAKSIZ, İHMAL, KUSURSUZ SORUMLULUK ALARAK VEYA MICROSOFT VEYA TEDARİKÇİLERİNİN OLSA BİLE, AKSİ TAKDİRDE ZARARLARIN OLASILIĞI BİLDİRİLMİŞ OLUP OLMADIĞINI.

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 2815384 - Son İnceleme: 05/15/2016 22:04:00 - Düzeltme: 6.0

Microsoft Office Excel 2003, Microsoft Office Excel 2007, Microsoft Excel 2010, Microsoft Excel 2013, Excel 2016

  • kbmvp kbcommunity kbstepbystep kbmt KB2815384 KbMttr
Geri bildirim