Soru bir metnin başı ve sonundaki karakterlerinin fontunu değiştirmek.

[Sezerkaratas]

İndir Yeni Microsoft Excel Çalışma Sayfası

Dosyayı indir Yeni Microsoft Excel Çalışma Sayfası

dosya.co

örnek dosyadaki metnin en üsteki isim kısmı değişken diğer yazılar sabit değişmeyecek ben bunun fontunu nasıl ayarlayabilirim yardım eder misiniz?
yani ismi değişken olan böyle bir metin yapmak istiyorum ve bu metnin aynı hücre içerisinde olması gerekli

 

[Korhan Ayhan]

Merhaba,

Hücrede boşluk vererek işlem yapmışsınız. İsimden sonra verdiğiniz tüm boşlukları silip ALT+ENTER tuşuna basarak alt satıra geçiniz. Aynı işlemi "MOSST" ifadesi içinde yaptıktan sonra aşağıdaki kodu deneyiniz.

Option Explicit

Sub Test()
    Dim Bul As Integer
    Bul = InStr(1, Range("F1"), Chr(10))
    With ActiveCell.Characters(Start:=1, Length:=Bul).Font
        .Name = "Arial Black"
        .FontStyle = "Regular"
        .Size = 22
    End With
    Bul = InStr(1, Range("F1"), "MOSST")
    With ActiveCell.Characters(Start:=Bul, Length:=Bul + 5).Font
        .Name = "Dry Brush"
        .FontStyle = "Regular"
        .Size = 36
    End With
End Sub