metneçevirde renklendirme

[igultekin2000]

=EĞER(A4="";"";A4&"-("&METNEÇEVİR(C4;("#.##0,00")&") "&D4))
iyi günler;
bu formülle ürünün fiyatını yazdırıyorum, acaba üründeki fiyat kısmının rengini değiştirmek ve koyulaştırmak için nasıl bir uygulama yapmalıyım.

 

[tahsinanarat]

Sub colors()
    Dim reg As Object, r As Range, col As Object, c As Object
    
    Set reg = CreateObject("VBScript.RegExp")
    
    reg.Global = True
    reg.MultiLine = True
    reg.Pattern = "\(.+\)"
    
    For Each r In Range("B2:B65536")
        Set col = reg.Execute(r.Text)
        
        If Not col Is Nothing Then
            For Each c In col
                r.Characters(c.FirstIndex + 1, c.Length).Font.Color = vbBlue
            Next
        End If
    Next
    
    MsgBox "İşlem tamamlandı.", vbInformation
End Sub

Kalın yapmak için

Sub colors()
    Dim reg As Object, r As Range, col As Object, c As Object
    
    Set reg = CreateObject("VBScript.RegExp")
    
    reg.Global = True
    reg.MultiLine = True
    reg.Pattern = "\(.+\)"
    
    For Each r In Range("B2:B65536")
        Set col = reg.Execute(r.Text)
        
        If Not col Is Nothing Then
            For Each c In col
                r.Characters(c.FirstIndex + 1, c.Length).Font.Bold = True
            Next
        End If
    Next
    
    MsgBox "İşlem tamamlandı.", vbInformation
End Sub

Not: kodlar evvelce bu siteden temin edilmiştir