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

• #17636 Delila_1 veterán Delila_1 #17635

  Új Válasz 2013-04-06 09:53:00 #17636

  Ú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 Delila_1 #17635 üzenetére

  Reggel rohantam, most egy kicsit módosítottam a makrón. A színek kikavarásához normális értékeket kell írni, hogy jól mutassanak.

  Sub mnmn()
  usor% = Range("A1").End(xlDown).Row
  maxx = Application.WorksheetFunction.Max(Range("A1:A" & usor%))
  hatar1 = maxx * 0.2
  hatar2 = maxx * 0.4
  hatar3 = maxx * 0.6
  hatar4 = maxx * 0.8
  
  For sor% = 1 To usor%
  szam = Cells(sor%, 1)
  If szam < hatar1 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(0, 0, 255)
  If szam >= hatar1 And szam < hatar2 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 50, 100)
  If szam >= hatar2 And szam < hatar3 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(80, 20, 180)
  If szam >= hatar3 And szam < hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 200, 150)
  If szam >= hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(255, 0, 0)
  Next
  End Sub

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