Rakama Dikkat çekme

[ahmzlm]

Merhaba,

Örneğin;

A2 hücresinde virgüllerle ayrılmış uzun bir cümlem var(35-xxxxxxxxxx, 56-yyyyyy, 605-zzzzzz)

İstediğim, bu hücre içindeki rakamları daha büyük veya kalın görebilmek, yani metne göre daha dikkat çekici olsunlar.

Veya tüm metin içindeki rakamları aralarına "-"(tire) koyarak bir hücreye alayım.

işyerinde olduğum için dosya ekleyemiyorum, mazur görün:/

 

[Emir Hüseyin Çoban]

. . .

Cümle formüllerden mi oluşuyor. Metin olarak mı giriyorsununuz.

. . .

 

[ahmzlm]

. . .

Cümle formüllerden mi oluşuyor. Metin olarak mı giriyorsununuz.

. . .

Direk metin olarak giriyorum Hüseyin Bey.

 

[Emir Hüseyin Çoban]

. . .

Kodları boş bir modüle yapıştırın.
A2 hücresindeki sayısal değerleri bold yapacaktır.

İşlem Sonucu:

Sub KOD()
    Dim uzn    As Long

    Range("A2").Font.Bold = False
    uzn = Len(Range("A2"))

    For i = 1 To uzn
        If IsNumeric(Mid([A2], i, 1)) Then
            With Range("A2").Characters(Start:=i, Length:=1).Font
                .FontStyle = "Kalın"
            End With
        End If
    Next i
End Sub

. . .

 

[ahmzlm]

. . .

Kodları boş bir modüle yapıştırın.
A2 hücresindeki sayısal değerleri bold yapacaktır.

İşlem Sonucu:

Sub KOD()
    Dim uzn    As Long

    Range("A2").Font.Bold = False
    uzn = Len(Range("A2"))

    For i = 1 To uzn
        If IsNumeric(Mid([A2], i, 1)) Then
            With Range("A2").Characters(Start:=i, Length:=1).Font
                .FontStyle = "Kalın"
            End With
        End If
    Next i
End Sub

. . .

Çok teşekkür ederim, işimi gördü