Hücre içindeki formülle oluşturulan cümlenin sayısal verilerini biçimlendirme

[cabatur]

Sayın Arkadaşlar,

Formülle oluşturduğum cümlenin sayısal verilerinin kalın ve kırmızı yapmak istiyorum. Function bulmaya ve yapmaya çalıştım ama olmadı.Ekteki dosya incelendiğinde konu daha net anlaşılacaktır.

Saygılarımla

 

[emraha]

ekteki soruya yanıt bulabildiysen benimle paylaşır mısın

 

[Korhan Ayhan]

Merhaba,

Fonksiyonlarda bahsi geçen biçimlendirmeleri kullanamazsınız. Değerleri formülden kurtarıp makro ile dilediğiniz biçimlendirmeleri yapma şansınız var. Sonuçta işin içine makro girecekse formülde ısrar etmenin bir mantığını göremiyorum.

 

[hamitcan]

Sayfa1'in kod kısmına ekleyin ve a2:d2 aralığında bir hücrede değişiklik yapın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row <> 2 Then Exit Sub
    [a3].Font.Bold = False
        U1 = Len([a2])
        U2 = Len(" eve giderken cebinde ")
        U3 = Len([b2])
        U4 = Len(" TL vardı. Alışveriş yaptı, ")
        U5 = Len([c2])
        U6 = Len(" TL'si kaldı. Ali ")
        U7 = Len([d2])
        
    
    
    [a3] = [a2] & " eve giderken cebinde " & [b2] & " TL vardı. Alışveriş yaptı, " _
    & [c2] & " TL'si kaldı. " & [a2] & " " & Format([d2], "0.00") & " başarılıdır."
    With ActiveSheet.Range("a3")
       .Characters(1, U1).Font.Bold = True
       .Characters(1, U1).Font.Color = vbRed
       .Characters(U1 + U2, U3 + 1).Font.Bold = True
       .Characters(U1 + U2, U3 + 1).Font.Color = vbRed
       .Characters(U1 + U2 + U3 + U4, U5 + 1).Font.Bold = True
       .Characters(U1 + U2 + U3 + U4, U5 + 1).Font.Color = vbRed
       .Characters(U1 + U2 + U3 + U4 + U5 + U6, U7 + 1).Font.Bold = True
       .Characters(U1 + U2 + U3 + U4 + U5 + U6, U7 + 1).Font.Color = vbRed
    End With
End Sub

 

[mustafa1205]

Teşekkürler Sayın Hamitcan Hocam. Güzel bir çalışma olmuş. Bende takip ediyordum bu sorunun çözümünü. Tekrar teşekkürler...