- One mobilszolgáltatások
- Poco X6 Pro - ötös alá
- Garmin Forerunner 255 Music - nem csak futóknak
- Már megint a Galaxy S Próról pletykálnak
- iPhone topik
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Így néz ki és ekkor startol a Honor 600 Pro
- Xiaomi 17 Ultra - jó az optikája
- Samsung Galaxy S26 - szeret, nem szeret
- Hamarabb hajtogathatod az iPhone Foldot, mint vártad
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Fferi50
Topikgazda
Szia!
Van némi gond azzal, amit leírtál. Először:
a függvényFunction 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
- One mobilszolgáltatások
- Szomjan halunk, míg az AI dolgozik
- Meggyi001: Áram nélkül....méltóság nélkül.....
- The Division 2 (PC, XO, PS4)
- Poco X6 Pro - ötös alá
- Napelem
- Garmin Forerunner 255 Music - nem csak futóknak
- Miskolc és környéke adok-veszek-beszélgetek
- iPad topik
- 3D nyomtatás
- További aktív témák...
- The Elder Scrolls Online Imperial Collector s Edition
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Microsoft és egyéb dobozos retro szoftverek
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- LG 27US550-W - 27" IPS / 3840x2160 4K / 60Hz 5ms / HDR10 / Forgatható / sRGB 99%
- HIBÁTLAN iPhone 15 128GB Yellow-1 ÉV GARANCIA - Kártyafüggetlen, MS4489, 100% Akksi
- 188 - Lenovo LOQ (15IRX10) - Intel Core i5-13450HX, RTX 5060
- Infinix Hot 12 Pro / 8/128GB / Kártyafüggetlen / 12Hó Garancia
- Autós kamera eladó
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
