Vba excel подчеркивание текста

Я просто хочу спросить, возможно ли, чтобы конкретный текст имел подчеркивание? Как вы можете видеть в приведенных ниже кодах, я хочу, чтобы fname, stud и grd были подчеркнуты, когда они отображаются на листе Sheet2. Коды расположены в Worksheet_Activate из Sheet2.

    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    Lastrow = ws.Cells(Rows.Count, "C").End(xlUp).Row
        
    For r = 9 To Lastrow
        If ws.Cells(r, 3) = CStr(ThisWorkbook.Sheets("Sheet3").Range("K11").value) And ws.Cells(r, 12).value = 1 Then
                            
            fname = ws.Cells(r, 4).value
            stud = ws.Cells(r, 3).value
            grd = ws.Cells(r, 5).value + 1
            
            Text1 = "My name is "
            Text2 = " , my student ID is "
            Text3 = " and I'm grade "
        End If
            
    Next r
    
    With ThisWorkbook.Sheets("Sheet2")
        .Range("C72").value = Text1 & fname & Text2 & LRN & Text3 & grd & Text4
    End With

Я пробовал использовать .Characters(17, 13).Font.Underline = True, но не думаю, что могу использовать 17,13 или любое другое число, поскольку значения fname, stud и grd имеет другой размер длины.

@Stax указал вам правильное направление, и похоже, что вы вот-вот нашли решение. Я бы также добавил сохранение длины строк fname, stud и grd в коротких именах переменных, чтобы минимизировать ваш код.

Соответствующий фрагмент будет (я позволю вам разобраться, как сделать свой цикл и т. Д.)

a = Len(fname)
b = Len(stud)
c = Len(grd)

With Sheet2.Range("C72")
    .Value = Text1 & fname & Text2 & stud & Text3 & grd
    .Characters(Start:=12, Length:=a).Font.Underline = True
    .Characters(Start:=36 + a, Length:=b).Font.Underline = True
    .Characters(Start:=51 + a + b, Length:=c).Font.Underline = True
End With

Я добавил способ подчеркивания необходимых частей вашего текста. Сначала он объединяет ваш текст, а затем применяет его только к нужным словам. Вам придется исправить свой алгоритм (что делать, строка за строкой, «C72» и т. Д.) …

Sub WordToUnderlined(ByRef pRange As Range, ByVal pWord As String, _
    ByRef pPos As Integer)
    Dim pos As Integer
    pos = InStr(pPos, pRange.Value, pWord, vbTextCompare)
    If pos > 0 Then
        With pRange.Characters(pos, Len(pWord))
            .Font.Underline = True
        End With
        WordToUnderlined pRange, pWord, pos + 1
    End If
End Sub

Sub TestMe()
    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    LastRow = ws.Cells(Rows.Count, "C").End(xlUp).Row
        
    For R = 9 To LastRow
        If ws.Cells(R, 3) = CStr(ThisWorkbook.Sheets("Sheet3").Range("K11").Value) And ws.Cells(R, 12).Value = 1 Then
                            
            fname = ws.Cells(R, 4).Value
            stud = ws.Cells(R, 3).Value
            grd = ws.Cells(R, 5).Value + 1
            
            Text1 = "My name is "
            Text2 = " , my student ID is "
            Text3 = " and I'm grade "
        End If
        With ThisWorkbook.Sheets("Sheet2")
            .Range("C72").Value = Text1 & fname & Text2 & stud & Text3 & grd & Text4
            WordToUnderlined .Range("C72"), fname, 1
            WordToUnderlined .Range("C72"), stud, 1
            WordToUnderlined .Range("C72"), grd, 1
        End With
    Next R
    
End Sub