Bildiğim kadarıyla formüllü hücrelerde normal yollardan aynı hücrede farklı biçimler kullanılamıyor. Ancak muhtemelen makro ile olabilir. Örneğin aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırdığınızda, A22 arasındaki hücreler değiştiğinde G2 hücresindeki karakterlerin farklı renklerde olacağını düşünmüştüm. Ancak nedense karakterler ayrı ayrı değil hep birden renk değiştiriyorlar:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:D2]) Is Nothing Then Exit Sub
With [G2].Characters(Start:=1, Length:=1).Font
.Color = vbRed
End With
With [G2].Characters(Start:=3, Length:=1).Font
.Color = vbBlue
End With
With [G2].Characters(Start:=5, Length:=1).Font
.Color = vbGreen
End With
With [G2].Characters(Start:=7, Length:=1).Font
.Color = vbYellow
End With
End Sub
Daha sonra belki hücre formüllü olduğu için öyledir diye düşündüm ve sonucu da formül yerine kodla elde etmek için kodu aşağıdaki gibi değiştirdim ve istediğim sonucu elde ettim:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:D2]) Is Nothing Then Exit Sub
[E2] = [A2] & " " & [B2]
[F2] = [C2] & " " & [D2]
[G2] = [E2] & " " & [F2]
With [G2].Characters(Start:=1, Length:=1).Font
.Color = vbRed
End With
With [G2].Characters(Start:=3, Length:=1).Font
.Color = vbBlue
End With
With [G2].Characters(Start:=5, Length:=1).Font
.Color = vbGreen
End With
With [G2].Characters(Start:=7, Length:=1).Font
.Color = vbYellow
End With
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.