excel vba:将字符串的一部分加粗

Question

我有excel单元格,其中包含这样的条目:

name/A/date
name/B/date
name/C/date

单元格内容显示在同一单元格中的多行上.我想对所有条目只做"名字"加粗.我录制了一个宏,我认为解决方案必须是这样的:

ActiveCell.FormulaR1C1 = "name/A/date" & Chr(10) & "name/B/date" & Chr(10) & "name/C/date"
With ActiveCell.Characters(Start:=25, Length:=4).Font
    .FontStyle = "Bold"
End With

我不知道的是如何获取每个条目的起始值和长度.有人有个主意吗？

Answer 1

现在拥有它:

lngPos = InStr(ActiveCell.Value, "/")
With ActiveCell.Characters(Start:=1, Length:=lngPos - 1).Font
    .FontStyle = "Bold"
End With