Räkna antalet celler med en specifik cellfärg med hjälp av VBA

  • Artikel
  • Gäller för:
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Sammanfattning

På fliken Microsoft Excel-formler vet vi att det i kategorinStatistik för fler funktioner> finns en funktion med namnet COUNTIF som räknar antalet celler inom ett område som uppfyller ett visst villkor. Villkor för den funktionen är begränsade till text eller siffror. Med hjälp av VBA kan vi dock skapa en funktion för att räkna antalet celler med andra kriterier, till exempel cellfärg.

COUNTIF

Mer information

Med hjälp av VBA kan en användardefinierad funktion (UDF) skapas och sparas i en tilläggsfil så att den kan användas i andra arbetsböcker och överföras till andra datorer.

Så här skapar du en UDF

Här följer stegen för att skapa en UDF för att räkna cellfärg:

  1. Öppna Microsoft Excel och tryck sedan på Alt+F11 för att visa fönstret Visual Basic Editor (VBE).

  2. På Menyn Infoga väljer du Modul för att skapa en modul. Skriv sedan följande skript:

    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

    På Infoga-menyn väljer du Modul för att skapa en modul. Skriv sedan följande skript

  3. Stäng VBE-fönstret för att återgå till Excel.

  4. För att testa UDF skapar du exempeldata som innehåller en kolumn med celler i olika färger.

  5. Skriv funktionen i cell D3:

=CountCcolor(range_data,criteria)

  • I argumentet "range_data" väljer du cell C2 till C51.

  • I argumentet "villkor" väljer du cell F1.

    Skriv funktionen vid cell D3: =CountCcolor

  1. Tryck på Retur. Resultatet i cell F2 är 6. Det innebär att antalet celler som skuggas i blått är 6.

    Tryck på Retur och i cell F2 är resultatet 6. Det innebär att antalet celler med blå cellfärg är 6 celler

  2. Du kan testa med hjälp av andra färger. Ändra färgen i cell F1 med valfri färg som du vill från data med hjälp avStartfyllningsfärg>.

    Du kan också testa en annan färg. Ändra färgen i cell F1 med valfri färg som du vill från data med hjälp av Hämta format för att få samma färg

  3. Du kan också zippa UDF så att funktionen kan användas i en annan arbetsbok eller på en annan dator. Gör så här:

    Steg 1: Spara arbetsboken

    a. Välj Arkiv och sedan Spara som. (Välj Bläddra om det behövs.)

    b. Välj Excel Add-In (.xlam) som format och ge filen ett namn, till exempel CountCcolor.

    Obs!

    Du kan spara Add-In fil var du vill. Men för att den ska visas som en Add-In i ditt Excel-program sparar du den på standardplatsen. I Windows 7 är standardplatsen för alla versioner av Microsoft Excel: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Steg 2: Installera tillägget

    a. Öppna Microsoft Excel på den dator där du vill installera tillägget.

    b. Öppna dialogrutan Add-Ins genom att välja Excel-tillägg för Excel 2013 och senare på fliken Utvecklare . (Tillägg i Excel 2010.)

    c. I dialogrutan Tillägg väljer du Bläddra. I dialogrutan Add-In klickar du på knappen Bläddra så dialogrutan Bläddra visas.

    d. Gå till den filplats där Add-In filen sparas (till exempel en USB-enhet eller en molnbaserad mapp). Välj filen och välj sedan Öppna.

    e. Kontrollera att kryssrutan för tillägget är avmarkerad i dialogrutan Add-Ins. Välj sedan OK. Kontrollera att kryssrutan för tillägget är avmarkerad i dialogrutan Add-Ins. Välj sedan OK.

UDF:n Count Cell Color är installerad och redo att användas. Du kommer att kunna komma åt den här funktionen när som helst genom att placera markören i valfri cell i kalkylbladet och skriva:

=CountCcolor(range_data,criteria)

Ansvarsfriskrivning för innehåll för communitylösningar

MICROSOFT CORPORATION OCH/ELLER DESS RESPEKTIVE LEVERANTÖRER GÖR INGA UTFÄSTELSE OM LÄMPLIGHETEN, TILLFÖRLITLIGHETEN ELLER NOGGRANNHETEN HOS DEN INFORMATION OCH RELATERAD GRAFIK SOM FINNS HÄRI. ALL SÅDAN INFORMATION OCH RELATERAD GRAFIK TILLHANDAHÅLLS "I DEN MÅN DET ÄR" UTAN GARANTI AV NÅGOT SLAG. MICROSOFT OCH/ELLER DESS RESPEKTIVE LEVERANTÖRER FRISKRIVER SIG HÄRMED FRÅN ALLA GARANTIER OCH VILLKOR AVSEENDE DENNA INFORMATION OCH RELATERAD GRAFIK, INKLUSIVE ALLA UNDERFÖRSTÅDDA GARANTIER OCH VILLKOR FÖR SÄLJBARHET, LÄMPLIGHET FÖR ETT VISST SYFTE, ARBETSMANNAMÄSSIG ANSTRÄNGNING, TITEL OCH ICKE-ÖVERTRÄDELSE. DU SAMTYCKER UTTRYCKLIGEN TILL ATT MICROSOFT OCH/ELLER DESS LEVERANTÖRER UNDER INGA OMSTÄNDIGHETER SKA VARA ANSVARIGA FÖR DIREKTA, INDIREKTA, BESTRAFFANDE, TILLFÄLLIGA, SÄRSKILDA, FÖLJDSKADOR ELLER SKADOR ALLS, INKLUSIVE, UTAN BEGRÄNSNING, SKADOR FÖR FÖRLUST AV ANVÄNDNING, DATA ELLER VINSTER, SOM UPPSTÅR PÅ GRUND AV ELLER PÅ NÅGOT SÄTT I SAMBAND MED ANVÄNDNING AV ELLER OFÖRMÅGA ATT ANVÄNDA INFORMATIONEN OCH RELATERAD GRAFIK SOM FINNS HÄRI, OAVSETT OM DET ÄR BASERAT PÅ KONTRAKT, TORT, FÖRSUMLIGHET, STRIKT ANSVAR ELLER PÅ ANNAT SÄTT, ÄVEN OM MICROSOFT ELLER NÅGON AV DESS LEVERANTÖRER HAR INFORMERATS OM MÖJLIGHETEN TILL SKADESTÅND.