Het aantal cellen met een specifieke celkleur tellen met VBA

  • Artikel
  • Van toepassing op:
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Samenvatting

Op het tabblad Formules van Microsoft Excel weten we dat er in de categorie Statistische functies meer> een functie is met de naam AANTAL.ALS waarmee het aantal cellen binnen een bereik wordt geteld dat aan een bepaalde voorwaarde voldoet. Criteria voor die functie zijn beperkt tot tekst of getallen. Met VBA kunnen we echter een functie maken om het aantal cellen met andere criteria, zoals celkleur, te tellen.

AANTAL.ALS

Meer informatie

Met VBA kan een door de gebruiker gedefinieerde functie (UDF) worden gemaakt en opgeslagen in een invoegtoepassingsbestand, zodat deze kan worden gebruikt in andere werkmappen en kan worden overgebracht naar andere computers.

Een UDF maken

Dit zijn de stappen voor het maken van een UDF om de celkleur te tellen:

  1. Open Microsoft Excel en druk op Alt+F11 om het VBE-venster (Visual Basic Editor) weer te geven.

  2. Selecteer Module in het menu Invoegen om een module te maken. Typ vervolgens het volgende script:

    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

    Selecteer Module in het menu Invoegen om een module te maken. Schrijf vervolgens het volgende script

  3. Sluit het VBE-venster om terug te keren naar Excel.

  4. Als u de UDF wilt testen, maakt u voorbeeldgegevens die een kolom met cellen in verschillende kleuren bevatten.

  5. Schrijf de functie in cel D3:

=CountCcolor(range_data,criteria)

  • Selecteer cel C2 tot en met C51 in het argument 'range_data'.

  • Selecteer cel F1 in het argument criteria.

    Schrijf in cel D3 de functie: =CountCcolor

  1. Druk op Enter. Het resultaat in cel F2 is 6. Dit betekent dat het aantal cellen met een blauwe tint 6 is.

    Druk op Enter en in cel F2 is het resultaat 6. Dit betekent dat het aantal cellen met blauwe celkleur 6 cellen is

  2. U kunt testen met andere kleuren. Wijzig de kleur in cel F1 met elke gewenste kleur in de gegevens met behulp vanOpvulkleur> voor thuisgebruik.

    U kunt ook een andere kleur testen. Wijzig de kleur in cel F1 met elke gewenste kleur in de gegevens door Opmaak kopiëren/plakken te gebruiken om dezelfde kleur te krijgen

  3. U kunt de UDF ook zippen zodat de functie kan worden gebruikt in een andere werkmap of op een andere computer. Ga hiervoor als volgt te werk:

    Stap 1: De werkmap opslaan

    a. Selecteer Bestand en vervolgens Opslaan als. (Selecteer Indien nodig Bladeren .)

    b. Selecteer Excel Add-In (.xlam) als de indeling en geef het bestand een naam, zoals CountCcolor.

    Opmerking

    U kunt uw Add-In bestand opslaan waar u maar wilt. Maar als u wilt dat het wordt vermeld als een Add-In in uw Excel-programma, slaat u het op de standaardlocatie op. In Windows 7 is de standaardlocatie voor elke versie van Microsoft Excel: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Stap 2: de invoegtoepassing installeren

    a. Open Microsoft Excel op de computer waarop u de invoegtoepassing wilt installeren.

    b. Open het dialoogvenster Add-Ins door Excel-invoegtoepassingen voor Excel 2013 en later te selecteren op het tabblad Ontwikkelaars . (Invoegtoepassingen in Excel 2010.)

    c. Selecteer Bladeren in het dialoogvenster Invoegtoepassingen. Klik in het dialoogvenster Add-In op de knop Bladeren, zodat het dialoogvenster Bladeren wordt weergegeven.

    d. Ga naar de bestandslocatie waar het Add-In bestand wordt opgeslagen (zoals een USB-station of een cloudmap). Kies het bestand en selecteer Vervolgens Openen.

    e. Controleer in het dialoogvenster Add-Ins of het selectievakje voor de invoegtoepassing is uitgeschakeld. Selecteer vervolgens OK. Controleer in het dialoogvenster Add-Ins of het selectievakje voor de invoegtoepassing is uitgeschakeld. Selecteer vervolgens OK.

De Count Cell Color UDF is geïnstalleerd en klaar voor gebruik. U kunt deze functie op elk gewenst moment openen door de cursor in een cel in het werkblad te plaatsen en het volgende te typen:

=CountCcolor(range_data,criteria)

Disclaimer voor inhoud van community-oplossingen

MICROSOFT CORPORATION EN/OF HAAR RESPECTIEVE LEVERANCIERS GEVEN GEEN VERKLARINGEN OVER DE GESCHIKTHEID, BETROUWBAARHEID OF NAUWKEURIGHEID VAN DE INFORMATIE EN GERELATEERDE AFBEELDINGEN DIE HIERIN ZIJN OPGENOMEN. AL DEZE INFORMATIE EN GERELATEERDE AFBEELDINGEN WORDEN GELEVERD "ALS ZODANIG" ZONDER ENIGE GARANTIE. MICROSOFT EN/OF HAAR RESPECTIEVE LEVERANCIERS WIJZEN HIERBIJ ALLE GARANTIES EN VOORWAARDEN MET BETREKKING TOT DEZE INFORMATIE EN GERELATEERDE AFBEELDINGEN AF, MET INBEGRIP VAN ALLE IMPLICIETE GARANTIES EN VOORWAARDEN VAN VERKOOPBAARHEID, GESCHIKTHEID VOOR EEN BEPAALD DOEL, WERKMANACHTIGE INSPANNING, TITEL EN NIET-INBREUK. U GAAT ER UITDRUKKELIJK MEE AKKOORD DAT MICROSOFT EN/OF HAAR LEVERANCIERS IN GEEN GEVAL AANSPRAKELIJK KUNNEN WORDEN GESTELD VOOR ENIGE DIRECTE, INDIRECTE, STRAFFELOOS, INCIDENTELE, SPECIALE, GEVOLGSCHADE OF ENIGE SCHADE, MET INBEGRIP VAN, ZONDER BEPERKING, SCHADE VOOR VERLIES VAN GEBRUIK, GEGEVENS OF WINST, DIE VOORTVLOEIT UIT OF OP ENIGE WIJZE VERBAND HOUDT MET HET GEBRUIK VAN OF HET NIET KUNNEN GEBRUIKEN VAN DE INFORMATIE EN GERELATEERDE AFBEELDINGEN DIE HIERIN ZIJN OPGENOMEN, HETZIJ OP BASIS VAN CONTRACT, ONRECHTMATIGE DAAD, NALATIGHEID, STRIKTE AANSPRAKELIJKHEID OF ANDERSZINS, ZELFS ALS MICROSOFT OF EEN VAN HAAR LEVERANCIERS OP DE HOOGTE IS GESTELD VAN DE MOGELIJKHEID VAN SCHADE.