parantezli olan kelimelerin renginin değiştirilmesi

[MURATSO]

arkadaşlar merhaba.
Excelde bir sheet de bulunan tüm parantezli kelime ve cümlelerin rengini nasıl değiştirebilrim bir defada

Örneğin;
Proje Planı (Project Plan) şeklinde yazılar mevcut ve ben sadece parantezli olanın rengini değiştirmek istiyorum yani şu şekilde
Proje Planı (Project Plan)

 

[Ömer BARAN]

Yanlış anlamadıysam, Bul değiştir menüsünde aranacak ifadesinin ve yerine yazılacak ifadesinin karşılarındaki "Biçim" düğmelerini kullanarak (Tümünü Değiştir diyerek) yapabilirsiniz.

 

[MURATSO]

o şekilde yaptım fakat önündeki türkçe ifadeyi de değiştirdi

ayrıca her bir kelime yada cümle için tek tek yapmam gerekecek
ben bir defada ne kadar parantez içinde kelime veya cümle var ise hepsini değiştirmek istiyorum

 

[Zeki Gürsoy]

Esas dosyanıza benzer bir örnek dosya ekleyin. Çözümünüz makro ile kolay görünüyor.

 

[MURATSO]

örnek dosya aşağıdaki gibidir

http://s3.dosya.tc/server22/s1lcUI/_rnekdosya.xlsx.html

 

[Zeki Gürsoy]

Dosyanız ekte...

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("a1:g40")
        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 = vbRed
            Next
        End If
    Next
    
    MsgBox "İşlem tamamlandı.", vbInformation
End Sub

 

[MURATSO]

Zeki bey elinize sağlık
çok teşekkür ederim
hayat kurtardınız