- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- laskr99: Processzor és videokártya szilícium mag fotók újrakezdés
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- bambano: Bambanő háza tája
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Gurulunk, WAZE?!
- Steven: Sokat utazó kávéfüggők ide!
-
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
válasz
kekkec
#17665
üzenetére
Ha rögtön a mostani képet adod meg, nem kellett volna duplán dolgozni. Igaz, az elmélet kitalálása volt a nehezebb dolog.
A színkódokat ismét a 2. lapra kell tenni, mint előzőleg, az A1:C10 tartományba. Ezeket az értékeket kedved, és ízlésed szerint módosíthatod.
Az új, laphoz rendelt makró:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 28 And Target.Row > 2 And Target.Row Mod 2 = 1 Then
maxx = Application.WorksheetFunction.Max(Range("B" & Target.Row & ":N" & Target.Row))
R = Application.Transpose(Sheets(2).Range("A1:A10"))
G = Application.Transpose(Sheets(2).Range("B1:B10"))
B = Application.Transpose(Sheets(2).Range("C1:C10"))
hatar1 = maxx * 0.1
hatar2 = maxx * 0.2
hatar3 = maxx * 0.3
hatar4 = maxx * 0.4
hatar5 = maxx * 0.5
hatar6 = maxx * 0.6
hatar7 = maxx * 0.7
hatar8 = maxx * 0.8
hatar9 = maxx * 0.9
For oszlop = 2 To 14
On Error Resume Next
szam% = Cells(Target.Row, oszlop)
Set ter = Range(Cells(Target.Row - 1, oszlop), Cells(Target.Row, oszlop))
Select Case szam%
Case Is <= hatar1
ter.Interior.Color = RGB(R(1), G(1), B(1))
Case hatar1 To hatar2
ter.Interior.Color = RGB(R(2), G(2), B(2))
Case hatar2 To hatar3
ter.Interior.Color = RGB(R(3), G(3), B(3))
Case hatar3 To hatar4
ter.Interior.Color = RGB(R(4), G(4), B(4))
Case hatar4 To hatar5
ter.Interior.Color = RGB(R(5), G(5), B(5))
Case hatar5 To hatar6
ter.Interior.Color = RGB(R(6), G(6), B(6))
Case hatar6 To hatar7
ter.Interior.Color = RGB(R(7), G(7), B(7))
Case hatar7 To hatar8
ter.Interior.Color = RGB(R(8), G(8), B(8))
Case hatar8 To hatar9
ter.Interior.Color = RGB(R(9), G(9), B(9))
Case Is > hatar9
ter.Interior.Color = RGB(R(10), G(10), B(10))
End Select
Next
End If
End Sub -
Delila_1
veterán
válasz
kekkec
#17631
üzenetére
Mit szólsz ehhez? Csak összedobtam, rendes értékeket kell kitalálni a határoknak, és az RGB elemeinek.
A lap Change eseményéhez kötheted.Sub mnmn()
usor% = Range("A1").End(xlDown).Row
atlag = Application.WorksheetFunction.Average(Range("A1:A" & usor%))
hatar1 = atlag * (1 + 0.1)
hatar2 = atlag * (1 + 0.3)
hatar3 = atlag * (1 - 0.5)
hatar4 = atlag * (1 - 0.7)
hatar5 = atlag * (1 - 0.8)
For sor% = 1 To usor%
Select Case Cells(sor%, 1)
Case Is < hatar5
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(0, 0, 250)
Case hatar5 To hatar4
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(255, 0, 0)
Case hatar4 To hatar3
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(120, 120, 0)
Case hatar3 To hatar2
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(100, 200, 80)
Case hatar2 To hatar1
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(200, 120, 60)
End Select
Next
End Sub -
Delila_1
veterán
válasz
kekkec
#17631
üzenetére
Az a baj, hogy a feltételesen formázott cella színeinek a lekérdezése nem a látható szín kódját adja, hanem a formázás előttit.
Ha pl. a tartomány háttere eredetileg piros, hiába lesz a feltételes formázással halványsárga, lekérdezéskor 3-as colorindexet, vagy RGB 255-öt kapsz.
-
Caipi
tag
válasz
kekkec
#17628
üzenetére
Szia,
Ha segít neked, akkor keress rá a itt fórumon "cella háttérszínre". Voltak régebben hasonló kérdések és válaszok, hátha találsz közte olyat, amelyik segít elindulni. (Rákerestem, találtam jópárat)
Üdv,
CaipiSzerk:ez egész jól hangzik: http://prohardver.hu/tema/excel/hsz_10750-10750.html
-
-
lappy
őstag
válasz
kekkec
#15136
üzenetére
2007 es verzióban!
Ha jól láttam akkor bizonyos tartományok vannak a kép alapján!
akkor én így csinálnám meg:
feltételes formázáson belül csak az adott tartalmú cellák formázása esetén a cellaérték a következők között van pl 0-10 beállítasz neki egy színt , majd az érvényességet a teljes tartományra állítod be! ezt megismétled addig amíg 90-100 % el nem jutsz!
!
Új hozzászólás Aktív témák
Fferi50- Genshin Impact (PC, PS4, Android, iOS)
- Milyen SSD-t vegyek?
- Napelem
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- Renault, Dacia topik
- Huawei Watch 5 - okosóra érintőlegesen
- Sorozatok
- Kerékpárosok, bringások ide!
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eladó Steam kulcsok kedvező áron!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- DOKKOLÓ BAZÁR! Lenovo, HP, DELL és egyéb más dokkolók (TELJES SZETTEK)
- 18 éve! Billentyűzet magyarítás magyarosítás. Festés vagy lézerezés és egyebek! 3 lehetőség is van.
- iKing.Hu - Xiaomi 14 Ultra - Ultra White - Használt, karcmentes
- Azonnali készpénzes AMD Radeon RX 6000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
- LG 55C4 - 48" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - A9 Gen7 CPU
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest