METİN İÇİNDE RENKLENDİRME

[EKİP]

excel de hücre içinde bulunan uzun metin içerisinde bulanan bir cümleyi renklendirme yapılabilir mi?
örnek
KARŞIYAKA MAH. ARPA BULVARI NO.11 MAİMAİ/ANTALYA - KALDIRIM CAD. KIR SOKAK PARİS/OSMANİYE - ORTA MAH. MALİYE CAD. ÖZİREM APT NO: 20 LONDRA/İNGİLTERE - KARŞIYAKA MAH. ARPA BULVARI NO.11 MAİMAİ/ANTALYA - KALDIRIM CAD. KIR SOKAK PARİS/OSMANİYE -KARŞIYAKA MAH. ARPA BULVARI NO.11 MAİMAİ/ANTALYA gibi veya daha uzun bir metinin içerisinde KARŞIYAKA MAH. ARPA BULVARI NO.11 MAİMAİ/ANTALYA adresinin kırmızı, diğer adreslerin siyah kalması gibi bir formül varmıdır? Teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Formülle metnin bir bölümünde fiziksel biçimlendirme yapamazsınız.

Bu işlem için makro kullanmanız gerekir.

Forumda Characters ifadesi ile arama yaparsanız örneklere ulaşabilirsiniz.

 

[excelokyanus500]

Deneyiniz

Sub KOD()
    Dim Alan As Range
    Dim a
    Dim s, i, b, c, d
    a = InputBox("metin giriniz", "metin")
    s = ActiveSheet.Name
    
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        Sheets(i).Select
        For Each Alan In ActiveSheet.UsedRange
            If Alan.Value Like "*" & a & "*" Then
                b = Alan.Value
                c = VBA.InStr(1, b, a)
                d = Len(a)
                Alan.Characters(c, d).Font.Color = vbRed
            End If
        Next Alan
    Next i
    Sheets(s).Select
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

 

[EKİP]

Merhaba,

Formülle metnin bir bölümünde fiziksel biçimlendirme yapamazsınız.

Bu işlem için makro kullanmanız gerekir.

Forumda Characters ifadesi ile arama yaparsanız örneklere ulaşabilirsiniz.

teşekkür ederim

 

[EKİP]

Deneyiniz

Sub KOD()
    Dim Alan As Range
    Dim a
    Dim s, i, b, c, d
    a = InputBox("metin giriniz", "metin")
    s = ActiveSheet.Name
   
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        Sheets(i).Select
        For Each Alan In ActiveSheet.UsedRange
            If Alan.Value Like "*" & a & "*" Then
                b = Alan.Value
                c = VBA.InStr(1, b, a)
                d = Len(a)
                Alan.Characters(c, d).Font.Color = vbRed
            End If
        Next Alan
    Next i
    Sheets(s).Select
   
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

teşekkür ederim.

 

[EKİP]

teşekkür ederim

teşekkür ederim