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

• #45362 Fferi50 Topikgazda KBaj #45361

  Új Válasz 2020-11-19 16:39:29 #45362

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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