Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Luck Dragon: MárkaLánc
- talmida: My Art II.
- btz: Internet fejlesztés országosan!
- hcl: Olympus E-PL1 nyomozás
-
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
Hirdetés
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Microsoft és egyéb dobozos és OEM szoftverek
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Lenovo ThinkPad T14s Gen 6 Ryzen AI 7 PRO 350W Radeon 860M 32 GB RAM 7500 MT/s 512 GB 3év gar
- 2019 MacBook Air Retina 13" i5 8GB 128GB Rose Gold
- HP EliteBook 640 G9 - i5-1235U 16GB 1000GB 1 év garancia
- HP ProDesk 600 G4 USDT,Pentium Gold G5400T,8GB DDR4,256GB M2 SSD,WIN11
- ÚJ Lenovo Legion Pro 7 Intel Core i9-14900HX, 32GB, 1TB SSD, RTX 4090(16GB), IPS 240Hz
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50