Rakam ve harflerden oluşan metinde rakamları renklendirmek mümkün mü?

[dEdE]

Değerli Dostlar,

a23d4er5g7 gibi rakam ve harflerden oluşan hücre içeriklerinde sadece rakamları kırmızı yapmak istiyorum.

İlişikteki örnek dosyada birşeyler yaptım ama renklendirmeyi yapamadım.

Yardımlarınız için şimdiden teşekkürler.

 

[uzmanamele]

merhaba
aşağıdaki linkdeki kodları inceleyin
http://www.excel.web.tr/showthread.php?t=50970

 

[Necdet]

Merhaba,

Uğraşmıştım boşa gitmesin.

Sub bul_boya()
For i = 1 To [A65536].End(3).Row
    For j = 1 To Len(Cells(i, "A"))
        If IsNumeric(Mid(Cells(i, "A"), j, 1)) = True Then
            With Range("A" & i).Characters(j, 1).Font
                .ColorIndex = 3
                .Bold = True
            End With
        End If
    Next j
Next i
End Sub

 

[dEdE]

Teşekkürler.


"Characters " Bunu düşünmemiştim. Tam istediğim gibi oldu.


Sayın Yeşertener,
Bir konuda daha yardımınızı istiyorum.
Ben döngülerde "........End(xlUp).Row" kullanıyordum. Sizin yazdığınız kodlarda "...........End(3).Row" şeklinde yazılmış. Buradaki xlUp yerine kullanılan (3) parametresinin anlamı nedir?

Saygılar.

 

[Korhan Ayhan]

Selamlar,

Sn. dEdE,

3 değeri xLUp kelimesinin sayısal karşılığıdır.

 

[dEdE]

Teşekkürler.
Şeytan dürttü. Sormadan edemeyeceğim. 3 yerine 2 veye 4 yazarsak ne olur. Ben denedim hiçbir şey olmadı çalıştı.
Saygılar.

 

[Necdet]

merhaba,

Örnek dosyayı inceler misiniz?

Public Sub git()
MsgBox "A1 den sağa doğru gidersem kolon numarası : " & [A1].End(2).Column
MsgBox "IV1 den sola doğru gidersem kolon numarası : " & [IV1].End(1).Column
MsgBox "A1 den aşağıya doğru gidersem satır numarası : " & [A1].End(4).Row
MsgBox "A65536 dan yukarı doğru gidersem satır numarası : " & [A65536].End(3).Row
End Sub

 

[dEdE]

Bundan daha iyi anlatılamazdı.

Her gün yeni birşeyler öğrenmenin tadı başka oluyor.
Teşekkürler.