- Katılım
- 18 Nisan 2005
- Mesajlar
- 62
- Excel Vers. ve Dili
- Office 2010 - Türkçe
bir hücrede hem harf hem rakam var ben sadece rakamların koşullu biçimlendirme ile renklendirilmesini istiyorum . nasıl yapabilirim
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Yanlış anlama iptal edildi.Aynı hücrede koşullu biçimlendirme ile olmaz makro ile olabilir .Bu konu daha önçe açılmıştı.Arar iseniz bulabilirsiniz.
Option Explicit
Sub RAKAMLARI_RENKLENDİR()
Dim Son As Long, Veri As Range, X As Long
Son = Cells(Rows.Count, "A").End(3).Row
Range("A:A").Font.Color = False
For Each Veri In Range("A1:A" & Son)
For X = 1 To Len(Veri.Value)
If IsNumeric(Veri.Characters(X, 1).Text) Then
Veri.Characters(Start:=X, Length:=1).Font.Color = -16776961
End If
Next
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
=ESAYIYSA(A1:C20)