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

• #32474 Delila_1 veterán huan #32473

  Új Válasz 2016-08-26 17:46:10 #32474

  Ú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 huan #32473 üzenetére

  Függvénnyel nem, de egy rövid makróval igen.
  Másold modulba a makrót. Állj a cellára, is indíthatod.
  Ha sok ilyen színesítendő cellád van, akkor tehetsz a gyorselérési eszköztárra a makróhoz egy ikont.

  Sub Piros()
Dim elso As Integer, hossz As Integer

elso = InStr(ActiveCell, "(") + 1
hossz = Len(ActiveCell) - elso
ActiveCell.Characters(Start:=elso, Length:=hossz).Font.Color = RGB(255, 0, 0)
End Sub

  Nagyon sok színezendőhöz érdemes egy ciklust írni.

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