是否可以在Excel单元格中执行多个彩色文本?

时间:2012-02-27 17:50:05

标签: string excel vba text colors

我有字符串strInfo,其中包含“Employee John Maybach”。

如何将“员工”部分设为黑色文本,将“约翰迈巴赫”部分设为红色?

“员工”部分将始终保持不变,但员工的姓名部分将更改为可能是由两部分组成的名称(John Doe)或三部分名称(John Allen Doe),或者只是一个名字(约翰)。

我希望单词“Employee”始终为黑色,但单元格中的其余部分(名称部分)为红色。这可能吗?

1 个答案:

答案 0 :(得分:7)

宏录制器是你的朋友:

Dim fixedLength As Long
fixedLength = Len("Employee")
ActiveCell.FormulaR1C1 = "Employee Some Employee"
With ActiveCell.Characters(Start:=fixedLength + 2, Length:=Len(ActiveCell) - fixedLength - 1).Font
    .Color = vbRed
End With