Megosztás a következőn keresztül:

Adott cellaszínnel rendelkező cellák számának megszámlálása VBA használatával

  • A következőre érvényes:: Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Összefoglalás

A Microsoft Excel Képletek lapján tudjuk, hogy a További függvények>statisztikai kategóriában van egy DARABTELI nevű függvény, amely megszámolja egy adott feltételnek megfelelő tartomány celláinak számát. A függvény feltételei szövegre vagy számokra korlátozódnak. A VBA használatával azonban létrehozhatunk egy függvényt, amely megszámlálja a más feltételekkel rendelkező cellák számát, például a cellaszínt.

DARABTELI

További információ

A VBA használatával a felhasználó által definiált függvények (UDF) létrehozhatók és menthetők egy bővítményfájlba, így más munkafüzetekben is használhatók, és átadhatók más számítógépekre.

UDF létrehozása

A cellaszínek megszámlálásához az alábbi lépéseket követve hozhat létre UDF-et:

  1. Nyissa meg a Microsoft Excelt, majd nyomja le az Alt+F11 billentyűkombinációt a Visual Basic Editor (VBE) ablakának megjelenítéséhez.

  2. A Beszúrás menüben válassza a Modul lehetőséget a modul létrehozásához. Ezután írja be a következő szkriptet:

    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

    A Beszúrás menüben válassza a Modul lehetőséget a modul létrehozásához. Ezután írja meg a következő szkriptet

  3. Zárja be a VBE ablakot az Excelbe való visszatéréshez.

  4. Az UDF teszteléséhez hozzon létre példaadatokat, amelyek különböző színű cellákból álló oszlopot tartalmaznak.

  5. A D3 cellába írja be a függvényt:

=CountCcolor(range_data,criteria)

  • A "range_data" argumentumban jelölje ki a C2–C51 cellát.

  • A "kritérium" argumentumban jelölje ki az F1 cellát.

    A D3 cellába írja be a következő függvényt: =CountCcolor

  1. Nyomja le az Enter billentyűt. Az F2 cellában az eredmény 6. Ez azt jelenti, hogy a kék színnel árnyékolt cellák száma 6.

    Nyomja le az Enter billentyűt, és az F2 cellában az eredmény 6. Ez azt jelenti, hogy a Kék cellaszínnel rendelkező cellák száma 6 cella

  2. A teszteléshez más színeket is használhat. Az F1 cella színének módosítása az adatokból tetszőleges színnel a Kezdőlap>kitöltőszíne használatával.

    Másik színt is tesztelhet. Az F1 cella színének módosítása az adatokból tetszőleges színnel a Formátummásolóval, ha ugyanazt a színt szeretné megkapni

  3. Tömörítheti is az UDF-et, hogy a függvény egy másik munkafüzetben vagy egy másik számítógépen is használható legyen. Ehhez kövesse az alábbi lépéseket:

    1. lépés: A munkafüzet mentése

    a. Válassza a Fájl, majd a Mentés másként lehetőséget. (Ha szükséges, válassza a Tallózás lehetőséget .)

    b. Formátumként válassza az Excel Add-In (.xlam) lehetőséget, és adjon nevet a fájlnak, például CountCcolor.

    Megjegyzés

    A Add-In fájlt tetszőleges helyre mentheti. Ahhoz azonban, hogy az Excel-programban Add-In szerepeljen, mentse az alapértelmezett helyre. A Windows 7 rendszerben a Microsoft Excel bármely verziójának alapértelmezett helye a következő: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    2. lépés: A bővítmény telepítése

    a. Nyissa meg a Microsoft Excelt azon a számítógépen, amelyen telepíteni szeretné a bővítményt.

    b. Nyissa meg a Add-Ins párbeszédpanelt a Fejlesztőeszközök lapon az Excel 2013-hoz és újabb verziókhoz készült Excel-bővítmények kiválasztásával. (Az Excel 2010 bővítményei.)

    c. A Bővítmények párbeszédpanelen válassza a Tallózás lehetőséget. A Add-In párbeszédpanelen kattintson a Tallózás gombra, hogy megjelenjen a Tallózás párbeszédpanel.

    d. Lépjen arra a fájlra, ahová a Add-In fájlt mentette (például egy USB-meghajtóra vagy egy felhőalapú mappára). Válassza ki a fájlt, majd kattintson a Megnyitás gombra.

    e. A Add-Ins párbeszédpanelen győződjön meg arról, hogy a bővítmény jelölőnégyzete nincs bejelölve. Ezután válassza az OK gombot. A Add-Ins párbeszédpanelen győződjön meg arról, hogy a bővítmény jelölőnégyzete nincs bejelölve. Ezután kattintson az OK gombra.

A Count Cell Color UDF telepítve van, és használatra kész. Ezt a függvényt bármikor elérheti, ha a kurzort a munkalap bármely cellájába helyezi, és beírja a következőt:

=CountCcolor(range_data,criteria)

Community Solutions Content Disclaimer

A MICROSOFT CORPORATION ÉS/VAGY A MEGFELELŐ BESZÁLLÍTÓK NEM KÉPVISELIK AZ ITT TALÁLHATÓ INFORMÁCIÓK ÉS KAPCSOLÓDÓ ÁBRÁK ALKALMASSÁGÁT, MEGBÍZHATÓSÁGÁT ÉS PONTOSSÁGÁT. MINDEN ILYEN INFORMÁCIÓ ÉS KAPCSOLÓDÓ GRAFIKA "ADOTT ÁLLAPOTBAN" ÁLL RENDELKEZÉSRE, BÁRMIFÉLE GARANCIA NÉLKÜL. A MICROSOFT ÉS/VAGY A MEGFELELŐ BESZÁLLÍTÓI EZENNEL KIZÁRNAK MINDEN, AZ INFORMÁCIÓRA ÉS A KAPCSOLÓDÓ ÁBRÁKRA VONATKOZÓ GARANCIÁT ÉS FELTÉTELEKET, BELEÉRTVE AZ ÖSSZES VÉLELMEZETT JÓTÁLLÁST ÉS FELTÉTELT A FORGALMAZÓZHATÓSÁGRA, AZ ADOTT CÉLRA VALÓ ALKALMASSÁGRA, A MUNKAHELYI ERŐFESZÍTÉSRE, A BEOSZTÁSRA ÉS A JOGSÉRTÉSMENTESSÉGRE VONATKOZÓAN. ÖN KIFEJEZETTEN ELFOGADJA, HOGY A MICROSOFT ÉS/VAGY BESZÁLLÍTÓI SEMMILYEN ESETBEN SEM TEHETŐK FELELŐSSÉ SEMMILYEN KÖZVETLEN, KÖZVETETT, BÜNTETŐ, INCIDENSES, KÜLÖNLEGES, KÖVETKEZMÉNYI KÁRÉRT VAGY BÁRMILYEN KÁRÉRT, BELEÉRTVE KORLÁTOZÁS NÉLKÜL A HASZNÁLAT ELVESZTÉSÉBŐL, AZ ADATOKBÓL VAGY A NYERESÉGBŐL EREDŐ KÁROKAT, AMELYEK AZ ITT TALÁLHATÓ INFORMÁCIÓK ÉS KAPCSOLÓDÓ ÁBRÁK FELHASZNÁLÁSÁBÓL VAGY AZOK FELHASZNÁLÁSÁNAK KÉPTELENSÉGÉBŐL EREDNEK, VAGY AZOK NEM HASZNÁLHATÓK FEL, AKÁR SZERZŐDÉSEN, KÁROKOZÁSON, HANYAGSÁGON, SZIGORÚ FELELŐSSÉGEN VAGY MÁS MÓDON ALAPUL, MÉG AKKOR IS, HA A MICROSOFTOT VAGY BÁRMELY BESZÁLLÍTÓJÁT ÉRTESÍTETTÉK A KÁROKOZÁS LEHETŐSÉGÉRŐL.