将string附加到VBA中的粗体string

我有一个单元格包含文本“ 领地批号 ”，我想附加一个string到它不是粗体的末尾。 一个例子是“ 衣领批号＃ 23456 \ 34567 \ 45678”。 我在下面的代码尝试使整个string加粗，导致“ 领地批＃23456 \ 34567 \ 45678 ”

With Workbooks(ThisWorkbook.name).Worksheets(1) ... .Cells(7, 5).value = "Collar Lot # " & "23456\34567\45678" End With 

我如何确保“23456 \ 34567 \ 45678”不是大胆的？

Answer 1

 .Cells(7, 5).Characters(Start:=14).Font.FontStyle = "Regular" 

function区的“开发人员”选项卡上的“录制macros”button对于查找这样的内容非常有用。

Answer 2

您需要使用类似于以下内容来指定基于字符位置的格式：

 .Cells(7, 5).Characters(Start:=1, Length:=13).Font.FontStyle = "Bold"