- sziku69: Szólánc.
- Vízügy: árvíz, belvíz, aszály, stb.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- t72killer: Fürdőkád kontra elektromosság: XXI.század
- eldiablo: Mennyire strapabíró egy GShock?
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Graphics: OnePlus 13R - Üzemidőbajnok és remek képességek
- eBay-es kütyük kis pénzért
-
LOGOUT
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
-
Delila_1
veterán
Függvény nincs rá, itt van viszont egy kis makró, ami, ha a B2 háttere piros, a D2-be beírja a B2 és C2 összegét.
A Cells(x,y) kifejezésben az x a sor, az y az oszlop.Sub Piros()
If Cells(2, 2).Interior.ColorIndex = 3 Then
Cells(2, 4) = Cells(2, 2) + Cells(2, 3)
End If
End SubA PC World folyóirat egyik számában Weisz Tamás írt egy xla-t. Két függvényt tartalmaz. Az egyik megszámolja, hogy a kijelölt tartományban hány darab adott színű cella van, a másik pedig összeadja az ezekben található értékeket.
Function CountColor(Mintacella As Range, Tartomany As Range)
Dim rngCell As Range
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + 1
End If
Next rngCell
CountColor = nResult
End FunctionFunction SumColor(Mintacella As Range, Tartomany As Range)
Dim rngCell As Range
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + WorksheetFunction.Sum(rngCell)
End If
Next rngCell
SumColor = nResult
End FunctionKözreadom, hátha valakit érdekel.
Új hozzászólás Aktív témák
Hirdetés
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- LG 48C3 - 48" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - A9 Gen6 CPU
- REFURBISHED és ÚJ - Lenovo ThinkPad Ultra Docking Station (40AJ) dokkoló
- AKCIÓ! Lenovo Legion Slim 5 Gamer notebook - R7 7435HS 16GB RAM 1TB SSD RTX 4070 8GB GDDR6 WIN11
- Új és használt laptopok , üzletitől a gamerig , kedvező áron. Garanciával !
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest