Searching for and Replacing Formatting : Find « Forms « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Forms
  3. Find

Searching for and Replacing Formatting

 
Sub font()
    With Application.FindFormat.Font
        .Name = "Arial"
        .Size = "12"
        .Bold = True
    End With
    With Application.ReplaceFormat.Font
        .Name = "Arial Black"
        .Bold = False
    End With
    Cells.Replace What:="5", Replacement:="5", LookAt:=xlPart, SearchOrder _
        :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub








Related examples in the same category

1.Consider only cells that contain data in the form of numbers, text, and formulas
2.Uses the Find method to reduce the number of cycles spent in VBA loops:
3.Working with Find and Replace
4.Continuing a Search with the FindNext Method and FindPrevious Method
5.Finding the Last Used Cell in a Column or Row
6.Ride the Range from the Bottom to Find Last Row
7.Find the First Non-Zero-Length Cell in a Range