hücre içi biçimlendirme

ekoert

Altın Üye
Katılım
5 Ocak 2011
Mesajlar
123
Excel Vers. ve Dili
2007
Merhaba,

Hücre içindeki metnin tire(-) işaretinden önceki kısmını koyu yapmak istiyorum.

Örneğin A1 hücresindeki değer şu şekilde olacak;

Almanya-Germany

Örnek dosya ektedir.
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
12,827
Excel Vers. ve Dili
Ofis 2003 İngilizce
Ofis 2007 Türkçe
Ofis 2010 Türkçe
Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Kod:
Sub Koyu()

    Dim i   As Long, _
        Kac As Integer
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
    
        Kac = InStr(Cells(i, "A"), "-")
        If Kac > 0 Then
            Kac = Kac - 1
            Cells(i, "A").Characters(0, Kac).Font.Bold = True
        End If
        
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamdır...."
    
End Sub
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
8,168
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
Not: Cevabı gönderinceye kadar Necdet Bey cevap vermiş sağolsun.

Aşağıdaki makroyu deneyiniz:

PHP:
Sub koyu()
On Error Resume Next
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    a = WorksheetFunction.Find("-", Cells(i, "A")) - 1
    Cells(i, "A").Characters(Start:=1, Length:=a).Font.Bold = True
Next
End Sub
 

ekoert

Altın Üye
Katılım
5 Ocak 2011
Mesajlar
123
Excel Vers. ve Dili
2007
Yusuf Bey,

Çok teşekkürler.

Cevabınızı arşivime ekliyorum.
 
Üst