-
Fototrend
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
- Xiaomi 17 Ultra - jó az optikája
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Ilyen olcsó sem volt még egy Apple notebook
- Magyar rap és Hip-Hop
- Linux kezdőknek
- Azonnali alaplapos kérdések órája
- Battlefield 6
- Fejhallgató erősítő és DAC topik
- AI, GitHub Copilot, Claude, Gemini
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Fallout 4 Pip-Boy Edition eladó
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Lenovo ThinkPad X1 Active Noise Cancellation fejhallgató
- Dell Precision 7550,15.6",FHD,i7-10850H,16GB DDR4,512GB SSD,Quadro T2000 4GB VGA,WIN11, 2 KAMERA
- DDR5 8/ 16/ 32GB 4800-5600MHz UDIMM PC RAM, több db- számla, garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- iPhone 15 Pro Max 512GB 87% Esim-es verzió (3hónap Garancia) Kijelzőn pici folt!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50