将字符串附加到VBA中的粗体字符串

Question

我有一个包含文字“ Collar Lot＃”的单元格，我想在其末尾附加一个非粗体字符串。一个例子是“ Collar Lot＃ 23456 \ 34567 \ 45678”。我在下面的代码尝试使整个字符串变为粗体，从而产生“ Collar Lot＃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:=1, Length:=13).Font.FontStyle = "Bold"

Answer 2

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

功能区的“开发人员”选项卡上的“记录宏”按钮对于找到类似的内容非常有用。