formül içinde koyu yazı

[excelali]

hücre içindeki bir yazıyı formülle koyu yazdırma

 

[Korhan Ayhan]

Makro kullanmanız gerekir. Bu durumda da hücredeki formül silinir.

 

[FERAZ]

DefObj E, I, R
Sub zafer()
Dim Hucre As Range
Sayfa1.[A1:A100].Font.Bold = False
Set Rky = CreateObject("vbscript.regexp")
Rky.Global = True
Rky.Pattern = LCase(Sayfa1.[D1])
For Each Hucre In Sayfa1.[A1:A100]
Set Evn = Rky.Execute(LCase(Hucre.Text))
If Not Evn Is Nothing Then
For Each i In Evn
Hucre.Characters(i.FirstIndex + 1, i.Length).Font.Bold = True
Next i
End If
Next Hucre
Set Hucre = Nothing: Set Rky = Nothing
Set i = Nothing: Set Evn = Nothing
End Sub

 

[FERAZ]

A1:A100 arasındaki verikeri renklendirir D1 de ne yazılıysa.

Sayfa1 sayfasında çalışır kod.