Hücrenin içindeki yazının bir kısmını kalın ve büyük puntoda yazdırmak.

[HasanESER]

Merhaba arkadaşlar,

Excelde bir hücrem var ve bu hücrede AT005555000 gibi bir yazı var ben bu yazının 5555 olan kısmını kalın ve büyük puntoda yazdırmak istiyorum ve bunu tüm hücrelerde otomatik uygulamak istiyorum, nasıl yapabilirim, kendimce bir yöntem buldum ama bana tek hücrede çalışması lazım, kendimce şöyle yaptım, başka bir hücrede ParçaAl fonksiyonu ile başka hücreye istediğimi yazdırıyorum. Tek hücrede yapılabilirmi? Nasıl yapılır?

 

[hamitcan]

Dosyanızı ekleyin.

 

[yerbakili]

Dosyanızı ekleyin.

Benim de merak ettiğim bir konu.

Mesela bir hücrede çift satır metin kullanıyorum. İkinci satırta yer alan "TC No: 12345678900" bölümünü bold yapmak istiyorum. Nasıl yapabilirim? Bildiğim bir yöntem var ama o da girdiğim isme göre ayarlıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Characters(15, 19).Font.Bold = True
End Sub

Olmasını istediğim;

Abuzer KADAYIF
TC No: 12345678900

Burak KOCAK
TC No: 13467925800

 

[hamitcan]

Böyle deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
u = Len(Target.Text)
Target.Characters(16, u).Font.Bold = True
End Sub

 

[yerbakili]

Böyle deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
u = Len(Target.Text)
Target.Characters(16, u).Font.Bold = True
End Sub

Harika.

SelectionChange ile süper çalışıyor. Peki bu özelliği bir butona eklemek istesek aşağıdaki gibi yapmamız gerekmiyor mu? Bu şekilde yaptığımda tam istediğim sonucu alamıyorum. TC harfleri bold olmuyor. Kısa bir isim girdiğimde daha farkli bir sonuç alıyorum.

ActiveCell.Offset(0, 1) = ComboBox1.Value & Chr(10) & "TC NO: " & TextBox1.Value
u = Len(ActiveCell.Offset(0, 1).Text)
ActiveCell.Offset(0, 1).Characters(16, u).Font.Bold = True

Peki makro ile bir hücreye iki satır yazı yazdırmak istediğimizde "Ali" & chr(10) & "Veli" şeklinde yazdırmamız doğru mudur?

 

[Necdet]

Hücrenin Bir Bölümünü Koyu Yapmak

Merhaba,

Verilerin A sütununda ve Başlık satırının olduğu varsayılmıştır.

Sub TC_KoyuYaz()
    
    Dim i   As Long, _
        j   As Integer, _
        k   As Integer, _
        u   As Integer
        
    Application.ScreenUpdating = True
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        k = InStr(1, Cells(i, "A"), Chr(10), vbTextCompare)
        If k > 0 Then
            j = Len(Cells(i, "A")) - k + 1
            Cells(i, "A").Characters(k, j).Font.Bold = True
        End If
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "T.C. Kimlik Numaraları Koyu Yapılmıştır....", vbInformation, "N. YEŞERTENER ----> [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
     
End Sub

 

[yerbakili]

Hızlı cevabınız için teşekkür ederim Necdet Bey.

Ben sorunumu aşağıdaki kodlarla çözdüm. Birkaç yerde değişiklik yaptım. Sanırım bu characters'in mantığı metin içinde kalın yapılması istenen bölümün ilk karakteri, hücrede bulunan toplam karakter sayısı olması gerekiyor. Ya da en azından ben böyle çözdüm.

Tekrar teşekkürler cevabınız için, yönteminiz bir alternatif olarak kullanılabilir.

ActiveCell.Offset(0, 1) = ComboBox1.Value & Chr(10) & "TC NO: " & TextBox1.Value
u = Len(ActiveCell.Offset(0, 1).Text)
Y = u - 18
ActiveCell.Offset(0, 1).Characters(Y, u).Font.Bold = True