Hirdetés

Keresés

Új hozzászólás Aktív témák

  • Fferi50

    Topikgazda

    válasz KBaj #45361 üzenetére

    Szia!
    Van némi gond azzal, amit leírtál. Először:
    a függvény
    Function CountCcolor(range_data As Range, CellaSzín1 As Range)
    Azaz az első paraméter a vizsgálandó terület, a második a mintaszín cellája.
    A hívásnál pedig ezt írod:
    CountCcolor(CellaSzín1;range_data)
    azaz fordítva adod meg a paramétereket!
    Másodszor:
    Magába a függvénybe bekerült ez a sor:
    Set range_data = Application.Range("Munka1!O3183:S3284")
    Ez tehát minden alkalommal felülír(ná) az általad megadott területet. A vizsgálandó terület ott van az első paraméterben, ez a sor káros. (Azért írtam feltételes módban, mert a hívásnál rosszul adod meg a paramétereket.)
    Harmadszor:
    Feltételes formázás esetén a cella interior.color színe marad az eredeti és nem a formázott. Ebben az esetben a Range.DisplayFormat tulajdonságát kell használni.
    If cel.DisplayFormat.Interior.Colorindex=xcolor
    Negyedszer:
    Mit értesz táblafüggvény alatt? A felhasználói függvény szintén VBA-ban íródik és ha jól látom akkor For Each -..... -Next ciklus van ebben is (ez is kell bele). Ez mitől is gyorsabb mint a VBA ciklus...
    Üdv.

Új hozzászólás Aktív témák