Excel Vba加粗string上的一些文本

我需要一些与Excel的帮助。

我有一个单元格，通过代码macros获得价值：

Range("A1").Value = "This Year we are having our guest " &Guest_name &" who is currently " &Guest_age &"years old, spending holidays with us" 

所以我只是想知道如何让Guest_name和Guest_age大胆。

谢谢

Answer 1

这是答案的一个版本。 使用Characters指示vba开始和结束的位置。

 Sub test() Dim guest_name, guest_name_len As Integer Dim guest_age, guest_age_len As Integer guest_name = "tester" guest_name_len = Len(guest_name) guest_age = "999" guest_age_len = Len(guest_age) Debug.Print guest_name_len & " / " & guest_age_len Range("A1").Value = "This Year we are having our guest " & guest_name & " who is currently " & guest_age & "years old, spending holidays with us" With Range("A1").Characters(Start:=35, Length:=guest_name_len).Font '35 characters counted (this year....) .FontStyle = "bold" End With With Range("A1").Characters(Start:=35 + guest_name_len + 18, Length:=guest_age_len).Font '18 characters counted (who is... years old) .FontStyle = "bold" End With End Sub 

Answer 2

使用InStr来定位范围的.value2属性中的每个属性，并将.font.bold = true应用于子string的.Characters属性。