تغییر فرمت بخشی از محتوای یک سلول با کدهای vba

()Sub ChangeWordFormat

Dim rng As Range

Dim cell As Range

Dim textvalue As String

Set rng = Range(“A1:A7”)

For Each cell In rng

cell.Value = WorksheetFunction.Trim(cell)

Next

textvalue = InputBox(“Please Enter Text You Want to change format”)

For Each cell In rng

If InStr(cell.Text, textvalue) Then

cell.Characters(WorksheetFunction.Find(textvalue, cell.Value), Len(textvalue)).Font.Color = vbRed

End If

Next

End Sub