Hirdetés
- Izmos kis "2 az 1-ben" MoDT alaplapot villantott a Minisforum
- Az Enermax tényleg nem viccel, ha az új tápjának garanciaidejéről van szó
- Egybegép lesz vagy ház? A Corsair sem tudja eldönteni.
- A Qwertykeys új klaviatúrái szépek, igényesek és sokrétűek
- Összement a mosásban az ASUS új VGA-inak PCI Express 5.0 csatlakozója
- Bluetooth hangszórók
- Kiviszi a CES-re csúcskábelének prototípusát a HDMI LA
- Mesébe illő csodakábelt tervezett a GeForce-ok leégése ellen a Segotep?
- És akkor a memóriapánik után beköszöntött a HDD-pánik
- Billentyűzet-választó: mechanikus vs membrános – kinek melyik a jobb?
- AMD Navi Radeon™ RX 9xxx sorozat
- Sikerült önállóan 1 GHz-re és két magra ugrania Indiának
- Apple asztali gépek
- Adatmentés - HDD - SSD - Flash
- Milyen videókártyát?
-
PROHARDVER!
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
válasz
karlkani
#42071
üzenetére
Szia!
Az előbbi hozzászólásban szereplő makró kiegészíthető egy harmadik paraméterrel, ahova az eredményt kéred.Public Sub CountColor(pRange1 As Range, pRange2 As Range,pRange3 As Range)Dim rng As Range, xcolor As Long, CountColor As Integerxcolor = pRange2.DisplayFormat.Font.colorFor Each rng In pRange1If rng.DisplayFormat.Font.color = xcolor ThenCountColor = CountColor + 1End IfNextpRange3.Value = CountColorEnd Sub
Üdv. -
Új hozzászólás Aktív témák
- iPhone topik
- Békéscsaba és környéke adok-veszek-beszélgetek
- BestBuy topik
- AliExpress tapasztalatok
- Bluetooth hangszórók
- Akvarisztika
- Kiviszi a CES-re csúcskábelének prototípusát a HDMI LA
- Mesébe illő csodakábelt tervezett a GeForce-ok leégése ellen a Segotep?
- Eredeti játékok OFF topik
- Star Trek
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- 10 Darab ÚJ PC Játékszoftver
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
- Shining3D EinScan Pro 2X 3D szkenner
- BESZÁMÍTÁS! MSI B460M 10400F 16GB DDR4 512GB SSD RX 6600XT 8GB Rampage SHIVA Cooler Master 650W
- HIBÁTLAN iPhone 12 Mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3631,94% Akkumulátor
- HP EliteOne 800 G5 All-in-One i5-8500 16GB 512GB 23.8" Érintőkijelző!! 1 év garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest

Fferi50

