-
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
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs