dolgu yapma

[Vivias]

Merhaba,

Hücrede yazılan yazıda bir kısmına dolgu yapmak istiyorum, ama nasıl yapacağımı bulamadım. Mesela hücrede alış irsaliyesi yazıyor, sadece alış kısmına dolgu yapılacak. Yardımcı olabilirseniz çok sevinirim.

 

[AtaAri]

Dolgu olarak nasıl yarım yapılır bilmiyorum.
Font rengi olarak alttaki kod işinize yarayacaktır.

Sub vignesh()
Dim StartChar As Integer, _
    LenColor As Integer, _
    str As String, _
    ln As Integer
For i = 1 To 5
    With Sheets("Sayfa1").Cells(i, 1)
        str = "alış"
        ln = Len(str)
        StartChar = InStr(1, .Value, "alış")
       
        If StartChar <> 0 Then
            LenColor = StartChar + ln
            .Characters(Start:=StartChar, Length:=LenColor).Font.Color = RGB(255, 0, 0)
        End If
    End With
Next i
End Sub