Új hozzászólás Aktív témák

• #17667 Delila_1 veterán kekkec #17665

  Új Válasz 2013-04-08 20:51:25 #17667

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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

• #17637 Delila_1 veterán kekkec #17631

  Új Válasz 2013-04-06 17:34:22 #17637

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz kekkec #17631 üzenetére

  Lehet, hogy már nem jössz vissza ide, de feltöltöttem egy fájlt, ami előállítja a csatolt képed szerinti színeket, mikor a lapon változnak az A oszlopban a számok.
  Ímé.

• #17635 Delila_1 veterán kekkec #17631

  Új Válasz 2013-04-06 08:11:46 #17635

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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

• #17633 Delila_1 veterán kekkec #17631

  Új Válasz 2013-04-06 07:36:49 #17633

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #17632 Caipi tag kekkec #17628

  Új Válasz 2013-04-06 07:07:40 #17632

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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,
  Caipi

  Szerk:ez egész jól hangzik: http://prohardver.hu/tema/excel/hsz_10750-10750.html

• #17630 Caipi tag kekkec #17620

  Új Válasz 2013-04-05 19:05:55 #17630

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Caipi

  tag

  válasz kekkec #17620 üzenetére

  Elolvasva, kipróbálva, így:

  

• #17629 Delila_1 veterán kekkec #17628

  Új Válasz 2013-04-05 15:30:02 #17629

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz kekkec #17628 üzenetére

  Nem tudom, én nem vállalkozom rá.

• #17626 Delila_1 veterán kekkec #17625

  Új Válasz 2013-04-05 15:23:53 #17626

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz kekkec #17625 üzenetére

  Semmit. Eddig nem figyeltem fel a színskálára.

• #17622 Delila_1 veterán kekkec #17620

  Új Válasz 2013-04-05 14:54:17 #17622

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz kekkec #17620 üzenetére

  A színskálával tudtommal csak a kijelölt tartományon belüli számszaki helyzetük szerint lehet formázni a cellákat, a tartományon kívül eső cellák értékei szerint nem.

• #17548 lappy őstag kekkec #17546

  Új Válasz 2013-04-03 06:44:58 #17548

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz kekkec #17546 üzenetére

  Szia
  Ha jol ertem akkor a ket cella szine mindig ugyanolyan? Mert akkor szerintem meg Delila jol irta csal annyit kell tenned hogy a tartomanyt nem csak A2 re hanem A1:A2 re veszed igy ami valtozik A2 ben ervenyes lesz A1 re is

• #17517 Delila_1 veterán kekkec #17516

  Új Válasz 2013-04-02 07:02:05 #17517

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz kekkec #17516 üzenetére

  Az A1-re is add meg ugyanazt a feltételt, amit az A2-re adtál. Ha pl. az A2 háttérszíne a B5 cella értékétől függ, akkor az A1 feltételében is ez a cella szerepeljen.

• #15175 lappy őstag kekkec #15159

  Új Válasz 2012-10-07 18:12:17 #15175

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz kekkec #15159 üzenetére

  Szia!
  Tegyél fel egy kis részletet vagy az egész táblázatodat, hogy könnyebben lehessen vele dolgozni! Szerkeszthető formában ne képként !

• #15158 lappy őstag kekkec #15143

  Új Válasz 2012-10-06 14:27:36 #15158

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz kekkec #15143 üzenetére

  
  Szia!
  Ha így csinálod akkor kevés melóval kész!!

• #15141 lappy őstag kekkec #15136

  Új Válasz 2012-10-05 16:14:00 #15141

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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!

• #15123 lappy őstag kekkec #15117

  Új Válasz 2012-10-05 07:45:30 #15123

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz kekkec #15117 üzenetére

  [link]
  Az összes cella formázása kétszínű skálával vagy háromszínű skálával részt olvasd el!

• #15119 lappy őstag kekkec #15117

  Új Válasz 2012-10-05 07:28:58 #15119

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz kekkec #15117 üzenetére

  Szia!
  Nagyon egyszerű, mert ha az alatta lévő cellát már feltételessel formáztad akkor csak a tartományt állítsd át!

Új hozzászólás Aktív témák