Metin içinde geçen (.) işaretine arka plan fontu uygulama..

[stirra_ej]

Değerli arkadaşlar özür dileyerek bir yardım talep etmek istiyorum

TextBox1 için Şart = Textbox1.Value nin içinde . (Nokta) var ise
Uygula = Noktaların yazı tipi rengi beyaz olsun..

Diğeri ise d16 d46 hücre aralığında ki yazıların içinde . (Nokta) var ise
Noktaların yazı tipi rengi siyah olsun..

Yardım ederseniz çok memnun olurum..

 

[Korhan Ayhan]

İstediğiniz işlem TEXTBOX nesnesinde olmaz ama excel hücresinde yapılabilir.

Hücreler için deneyiniz.

Option Explicit

Sub Noktalari_Siyah_Yap()
    Dim Veri As Range, X As Integer
    
    For Each Veri In Range("D16:D46")
        For X = 1 To Len(Veri)
            If Mid(Veri.Value, X, 1) = "." Then
                Veri.Characters(X, 1).Font.ColorIndex = False
            End If
        Next
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[stirra_ej]

Çok Teşekkür ederim.