Aynı Hücre İçerisinde Üstteki Metni Kalın Harf Yapmak

[meslek5]

A1 hücresi içerisinde yer alan alt alta iki metnin üsteki metnini aşağıdaki örnekte olduğu gibi makro ile kalın harf yapabilir miyiz. Şimdiden teşekkür ederim.

A1 hücresi içeriği;

Hülya ASLIHAN
(05***********)

 

[Korhan Ayhan]

Deneyiniz.

Sub Bold_First_Line()  
    If InStr(Range("A1"), Chr(10)) > 0 Then
        Range("A1").Characters(1, InStr(Range("A1"), Chr(10)) - 1).Font.Bold = True
    End If
End Sub

 

[meslek5]

Deneyiniz.

Sub Bold_First_Line()
    If InStr(Range("A1"), Chr(10)) > 0 Then
        Range("A1").Characters(1, InStr(Range("A1"), Chr(10)) - 1).Font.Bold = True
    End If
End Sub

Korhan hocam çok teşekkür ederim.

 

[meslek5]

Deneyiniz.

Sub Bold_First_Line() 
    If InStr(Range("A1"), Chr(10)) > 0 Then
        Range("A1").Characters(1, InStr(Range("A1"), Chr(10)) - 1).Font.Bold = True
    End If
End Sub

Korhan hocam üstte bulunan metni kalın harf yaptığımız gibi ayrıca alttaki metni de aşağıdaki gibi yapabilir miyiz? Yani alttaki metnin ilk 3 karakteri ve son 3 karakteri görünsün ama ortadaki karakterler ******** şeklinde görünsün. Bununla ilgili aşağıdaki T.C. gizleme fonksiyonunu buldum ama sizin koda uyarlayamadım.

Hülya ASLIHAN
(12*******87)



'TC. NİN İLK 2 VE SON 2 KARAKTERİ HARİÇ ORTAYI GİZLER
Function YILDIZLA(veristr As Range) As String
veri = Trim(veristr.Value)
For j = 3 To Len(veri) - 2
If Mid(veri, j - 1, 1) <> " " And Mid(veri, j + 1, 1) <> " " And Mid(veri, j, 1) <> " " Then
Mid(veri, j, 1) = "*"
End If
Next j
YILDIZLA = veri
End Function