birleşen hucrede verileri farkli renklendirme

[idealimsin]

birleşen hucrede verileri farkli renklendirme yi nasil yapariz
Örnek olarak. Soldan(A1;7)&" "&soldan(B1;7)

 

[idealimsin]

bu konunun bir çözümü yokmu acaba

 

[Korhan Ayhan]

Merhaba,

İşlemi makro ile yaparsanız renklendirme yapabilirsiniz.

 

[idealimsin]

Merhaba,

İşlemi makro ile yaparsanız renklendirme yapabilirsiniz.

bunu nasıl yaparız

 

[Korhan Ayhan]

Günaydın,

Bu tarz işlemler için makro kaydet yöntemini kullanabilirsiniz. Böyle elde ettiğiniz kodlar üzerinde oynayarak kodların nasıl işlediğinide öğrenebilirsiniz.

Aşağıdaki kod A1 ile B1 hücresinin soldan 7 karakterini C1 hücresinde birleştirip renklendiriyor.

Sub Makro1()
    With Range("C1")
        .Value = Left(Range("A1"), 7) & " " & Left(Range("B1"), 7)
        
        With .Characters(Start:=1, Length:=7).Font
            .Name = "Tahoma"
            .FontStyle = "Normal"
            .Size = 10
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 3
        End With
        With .Characters(Start:=9, Length:=7).Font
            .Name = "Tahoma"
            .FontStyle = "Normal"
            .Size = 10
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 5
        End With
    End With
End Sub