Excel Vba fett etwas Text auf einer Schnur

Question

Ich brauche etwas Hilfe mit Excel.

Ich habe eine Zelle, die den Wert von Makro mit Code erhalten:

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

So frage ich mich, wie kann ich die Guest_name und Guest_age zu fett zu bekommen.

Dank

Answer 1

Hier ist eine Version der Antwort. Verwenden Sie Characters, um vba anzuweisen, wo Sie anfangen und enden sollen.

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

Verwendung InStr jeweils in der Reichweite der .value2 Eigenschaft zu lokalisieren und .font.bold = true an dem .Characters Eigenschaft String gilt.