Excel VBA-将粗体文本添加到语句

时间:2018-07-23 15:10:16

标签: excel vba excel-vba

我有以下代码,我需要将插入的文本加粗。如何将其添加到我的语句中(无法弄清楚语法)?谢谢!

Dim ws As Worksheet
    Dim addme As Long
    Set ws = Worksheets("Projects")
    addme = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

' Insert data from UserForm into Columns 2 & 3
    With ws
        ws.Cells(addme, 2).value = Me.SuperProject1.value 'the number 2 here represents the Column B
        ws.Cells(addme, 3).value = Me.SProjectName1.value 'the number 3 represents Column C
    End With

1 个答案:

答案 0 :(得分:2)

With ws
    .Cells(addme, 2).value = Me.SuperProject1.value 
    .Cells(addme, 3).value = Me.SProjectName1.value
    .Cells(addme, 2).Resize(1, 2).Font.Bold = True  
End With