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

• #20657 Delila_1 veterán zhari #20656

  Új Válasz 2014-02-25 11:29:09 #20657

  Ú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 zhari #20656 üzenetére

  Ezt tudtommal csak makró segítségével tudod megoldani.
  A példámban az adatok az A1 cellában kezdődnek.
  A középre rendezett cellák hátterét pirosra festi.

  Sub Kozepre()
  Dim CV As Object
  
  Range("A1").Select
  Selection.CurrentRegion.Select
  For Each CV In Selection
  If Range(CV.Address).HorizontalAlignment = xlCenter Then _
  Range(CV.Address).Interior.ColorIndex = 3
  Next
  End Sub

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