- Milyen okostelefont vegyek?
- Telekom mobilszolgáltatások
- Honor 400 Pro - gép a képben
- Apple iPhone 16 Pro - rutinvizsga
- India felől közelít egy 7550 mAh-s Redmi
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Xiaomi 15 - kicsi telefon nagy energiával
- Sony Xperia 1 V - kizárólag igényeseknek
- Samsung Galaxy S21 és S21+ - húszra akartak lapot húzni
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
-
Mobilarena
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
- HTPC (házimozi PC) topik
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Milyen TV-t vegyek?
- Suzuki topik
- Mini-ITX
- Milyen okostelefont vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Milyen autót vegyek?
- Opel topik
- További aktív témák...
- Bomba ár! Dell Inspiron 15 3511 - i5-11GEN I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gari
- BESZÁMÍTÁS! MSI B450M R5 5500 32GB DDR4 512GB SSD RTX 3060 12GB Rampage SHIVA Chieftec 600W
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Bomba ár! HP 255 G7 - AMD A4 I 4GB I 128SSD I HDMI I 15,6" FHD I Radeon I HDMI I W11 I Cam I Gari!
- RÉSZLETRE , Bankmentes , kamatmentes Asus Rog Zephyrus G16
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest