Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sh4d0w: Árnyékos sarok
- droidic: Gmail + MI: na, mi van bekapcsolva?
- sziku69: Fűzzük össze a szavakat :)
- NASsoljunk: ZyXEL NSA-310 és az FFP
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- Gurulunk, WAZE?!
- Autódiagnosztika: a gyakorlatban
- WireGuard VPN a mindennapokra
-
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
-
slashing
senior tag
válasz
daniatx
#24638
üzenetére
Csatlakozom, fogalmam nincs így mi nem jó de én valahogy így csinálnám
Sub hazi()
uoszlop = Cells(3, 2).End(xlToRight).Column
For oszlop = 2 To uoszlop Step 1
If IsNumeric(Cells(4, oszlop)) Then 'már ha tényleg ha az első cella szám akkor az összes is az
usor = Cells(4, oszlop).End(xlDown).Row
Min = WorksheetFunction.Min(Range(Cells(4, oszlop), Cells(usor, oszlop)))
Max = WorksheetFunction.Max(Range(Cells(4, oszlop), Cells(usor, oszlop)))
Set tartomany = Range(Cells(4, oszlop), Cells(usor, oszlop))
For Each cell In tartomany
If cell.Value <= Max - (Max - Min) * 2 / 3 Then
cell.Interior.ColorIndex = 3
End If
' és ugyan így a többi szinezés
Next
End If
Next oszlop
' ide jöhet az első számos ciklus
' ide jöhet a diagrammos rész
End Subjah a piros száma a 3 a kék az 5 a sárga a 6
-
m.zmrzlina
senior tag
Új hozzászólás Aktív témák
- Kormányok / autós szimulátorok topikja
- Ezzel jobban keresel, mint az arannyal
- Milyen okostelefont vegyek?
- Keresek egy topikot, de nem találom!
- Android alkalmazások - szoftver kibeszélő topik
- exHWSW - Értünk mindenhez IS
- Milyen processzort vegyek?
- Soundbar, soundplate, hangprojektor
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- alza vélemények - tapasztalatok
- További aktív témák...
- Sima Vs.Windows Logitech Mx keys s plus és hagyományos Mx keys magyar bemutatása. Új videó linkel
- magyar billentyűzet - 165 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
- Konzol felvásárlás!! Xbox Series S, Xbox Serries X
- Apple iPhone 14 pro 128GB,Újszerű,Dobozával, 12 hónap garanciával
- BESZÁMÍTÁS! MSI B550M R9 3900X 32GB DDR4 500GB SSD RX 7800XT 16GB Corsair 4000D Cooler Master 750W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50
