Wie ändert man die Schriftart nur des letzten Zeichens in der Zelle?

Question

Ich möchte Schriftart des letzten Zeichens in Zelle ändern. dafür habe ich unten Code versucht. Aber nicht funktioniert. Bitte helfen.

Right(Sheet1.Cells(i, 9), 1).Font.ColorIndex = 3 

Answer 1

Got Antwort jetzt :) Nachfolgend finden Lösung:

Sheet1.Cells(i, 9).Characters(Len(Sheet1.Cells(i, 9).Value), 1).Font.ColorIndex = 3 

Dank.

Answer 2

Bitte versuchen Sie dies:

Sub ColorTextv() 

    Dim i As Long 
    Dim text As String 
    ' Change as per your requrement. I used it for testing purpose 
    text = Cells(1, 9).Value 

    For i = 1 To Len(text) 
    If i = Len(text) Then 
    Cells(1, 9).Characters(i, 9).Font.ColorIndex = 3  
    'You can change by mentioning color also   
    'Cells(1, 9).Characters(i, 9).Font.Color = vbRed 
    End If 
    Next 

End Sub