Formül içeren hücrenin bir kısmının yazı fontunu değştirmek.

[suatbayhan]

Merhaba,
Formül içeren hücrenin içindeki yazının bir kısmının fontunu koyu yapmak istiyorum.
Selamlar...

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

B1 değeri değiştiğinde otomatik olarak çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    Dim Kol     As Integer, _
        Yazi    As String, _
        i       As Integer, _
        Uzunluk As Integer, _
        Aranan  As String
    
    Yazi = "7) İhale konusu işi, bu teklifin ekindeki birim fiyat teklif cetvelinde belirtilen her bir iş kalemi için teklif ettiğimiz birim fiyatlar üzerinden Katma Değer Vergisi hariç toplam "
    Yazi = Yazi & Format([B1], "0,000.00")
    Yazi = Yazi & " TL (" & Yaz([B1]) & ") bedelkarşılığında yapmayı kabul ve taahhüt ederiz."
    Aranan = Format([B1], "0,000.00")
    Uzunluk = Len(Aranan)
    i = InStr(1, Yazi, Aranan, vbTextCompare)
    
    With [A2]
        .Value = Yazi
        [COLOR=red][B].Font.Bold = False
[/B][/COLOR]        .Characters(1, 2).Font.Bold = True
        .Characters(i, Uzunluk).Font.Bold = True
    End With
    
    With [A2]
        .Characters(i, Uzunluk).Font.Bold = True
    End With
    
End Sub

 

[suatbayhan]

Hocam olmadı.
Herhalde ben yapamadım.
Bazen hepsi koyu oluyor, bazen de bir kısmı koyu oluyor.
Selamlar...

 

[Necdet]

Örnek dosyanızda bir sorun yoktu, çalışmayan bir dosya ekleyebilir misiniz?
Durumu bizde görsek.

 

[1Al2Ver]

Merhaba,

Dosyada gözlemlediğim ;

B1'deki sayı değiştiğinde yada silindiğinde A2'nin tamamı koyu oluyor,

 

[suatbayhan]

Dosya ekte hocam.
Sayın 1Al2Ver hocamın dediği gibi B1 hücresi üzerinde birkaç işlem yapınca daha net görülüyor.
Selamlar...

 

[Necdet]

Merhaba,

İlk mesajımdaki kodlara yeni bir satır ekledim. Dener misiniz?

 

[suatbayhan]

Hocam çok teşekkür ederim.
Ellerinize sağlık.
Selamlar...

 

[suatbayhan]

Hocam tekrar merhaba,
Gerçi bu soruyu bugün başka bir başlık altında sordum. Ancak sonradan hatırladım ki bunu 2011 yılında siz burada cevaplamıştınız.
Hocam dosyada bir iki değişiklik yaptım. Eğer yardımcı olursanız minettar olurum.
Selamlar...

 

[katip16487]

=BİRLEŞTİR(A2;" ";B2;", ";C2;" ";D2;".")

şeklinde yazılan formül içerisinde (4.) sırada yer alan (,) dahil olmak üzere KOYU renk yapmak istiyorum.
A2 ve B2 hücrelerinin karakter sayıları değişken olabilmektedir, ancak formülde de yazılı olduğu üzere B2 hücresinden sonra formülde (,) bulunmaktadır.

Sonuç olarak yazacağım formülün A2 ve B2 hücresinden almış olduğu kısımları, yani (,) işaretine kadar KOYU yapmak istiyorum.

Saygılarımla...

 

[Korhan Ayhan]

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