我有字符串strInfo,其中包含“Employee John Maybach”。
如何将“员工”部分设为黑色文本,将“约翰迈巴赫”部分设为红色?
“员工”部分将始终保持不变,但员工的姓名部分将更改为可能是由两部分组成的名称(John Doe)或三部分名称(John Allen Doe),或者只是一个名字(约翰)。
我希望单词“Employee”始终为黑色,但单元格中的其余部分(名称部分)为红色。这可能吗?
答案 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