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

• #23064 bteebi veterán

  Új Válasz 2014-09-02 09:48:30 #23064

  Ú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

  

  bteebi

  veterán

  Sziasztok!

  Van egy munkafüzet vagy 20 lappal, és majdnem az összes lapján van feltételes formázás. A formázási szabályon szeretnék változtatni, hogy a félkövér dőlt helyett csak dőlt legyen a font. Egyelőre eddig jutottam:

  Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
  Columns("A:Z").Select
  With Selection.FormatConditions(1).Font
  .Bold = False
  .Italic = True
  End With
  Selection.FormatConditions(1).StopIfTrue = True
  Next

  Ezt a hibaüzenetet kapom: Method 'Italic' of object 'Font' failed. Olyan munkalap is van, hogy több formázási szabály is van. Ezeket - ha jól vettem ki más bejegyzésekből - a FormatConditions.Count segítségével elvileg ciklusba lehetne szedni. Megpróbáltam, de azt írja, hogy Object required:

  For i = 1 To FormatConditions.Count
  With Selection.FormatConditions(i).Font
  .Bold = False
  .Italic = True
  End With
  Selection.FormatConditions(i).StopIfTrue = True
  Next i

  Van valami ötletetek? Előre is köszönöm a segítséget!

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