更改单元格中部分文本的字体颜色

Question

我有包含以下值的单元格

"Image not allowed|png"

我想单独更改| png的颜色或"|"之后的任何颜色

现在我想使用下面的代码更改字体颜色

Cells(4,2).Font.Color = RGB(255, 50, 25)

它会改变整个单元格的字体颜色,是否可以|png使用VBA 仅更改所选的文本颜色()？

Answer 1

这应该是一个好的开始:

Sub vignesh()
Dim StartChar As Integer, _
    LenColor As Integer

For i = 1 To 5
    With Sheets("Sheet1").Cells(i, 1)
        StartChar = InStr(1, .Value, "|")
        If StartChar <> 0 Then
            LenColor = Len(.Value) - StartChar + 1
            .Characters(Start:=StartChar, Length:=LenColor).Font.Color = RGB(255, 0, 0)
        End If
    End With
Next i

End Sub

Answer 2

是的,这是可能的.探索Excel对象模型的一个好方法是使用宏录制器录制宏,您可以手动执行您感兴趣的操作.

在这种情况下,您可以使用:

Cell.Characters(Start:=1, Length:=5).Font

设置单元格中子字符串的字体属性.