Ú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.

• #42750 Fferi50 Topikgazda huan #42749

  Új Válasz 2020-01-17 12:52:37 #42750

  Ú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!
  A formátum másolót is soronként kell alkalmaznod. De ha kijelölted az első sort és bekapcsoltad a formátum másolót, akkor elég a következő sor elejére kattintani mindig.
  
  (itt a 3. sorig van másolva a formátum, a további még nincs.)
  Ez azért gyorsabb, mint a sorokat egyenként másolni.
  Üdv.

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