So finden Sie Schriftart und ersetzen durch markieren

Question

Ich habe eine Frage zu Application.Findformat.font Ich versuche, Schriftart Winding2 zu finden und markieren Sie gelb. Ich konnte etwas zusammensetzen, um Wicklungen zu finden und zu löschen. Der nächste Schritt besteht darin, hervorzuheben, wo eine Wicklung existiert. Ihre Hilfe wird gerne in Anspruch genommen!

Cells.Select 
    With Application.FindFormat.Font 
     .Name = "Wingdings 2" 
     .Subscript = False 
     .TintAndShade = 0 
     .ThemeFont = xlThemeFontNone 
    End With 
     Selection.Replace What:="P", Replacement:="", LookAt:=xlPart, _ 
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _ 
     ReplaceFormat:=False 
End Sub 

Answer 1

With Application.FindFormat.Font 
     .Name = "Wingdings 2" 
     .Subscript = False 
     .TintAndShade = 0 
     .ThemeFont = xlThemeFontNone 
    End With 
    With Application.ReplaceFormat.Interior 
     .PatternColorIndex = xlAutomatic 
     .Color = 65535 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
    With application.replaceformat.font 
     .Name="Arial" 
    End With 
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _ 
     xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True 

dies versuchen Sie dies in Ihrem Excel durch die Aufnahme Makro bekommen haben könnte.