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

• #42752 Fferi50 Topikgazda huan #42749

  Új Válasz 2020-01-17 13:35:53 #42752

  Ú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

  

  Fferi50

  Topikgazda

  válasz huan #42749 üzenetére

  Szia!
  Ha még az is túl hosszú lenne, amit az előbb írtam, használhatod ezt a makrót. Mielőtt elindítod, ki kell jelölnöd a formázandó területet.
  Sub szinez()
Dim rsor As Range, rformat As ColorScale
For Each rsor In Selection.Rows
    rsor.FormatConditions.Delete
    Set rformat = rsor.FormatConditions.AddColorScale(colorscaletype:=2)
    rformat.ColorScaleCriteria(1).FormatColor.Color = vbWhite 'RGB(255, 0, 0)
    rformat.ColorScaleCriteria(2).FormatColor.Color = vbRed 'RGB(255, 0, 0)
Next
End Sub
  
  Itt a fehér-piros színátmenet van benne, piros a legmagasabb érték.

  Üdv.

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