İlk harfi diğerlerinden daha büyük olan hücre yazılabilir mi?

[mehmetmet]

Merhabalar Yapmak istediğim hücre içindeki tüm karakterlerin büyük harf olması fakat kelimlerin ilk harflerinin daha büyük bir punto ile yazılması.
Örnek dosyayı da ekledim.

 

[Ömer BARAN]

Merhaba.

A1 hücresi için aşağıdaki gibi düşünülebilir.
.

[B]Sub BARAN()[/B]
[COLOR="Red"]asıl[/COLOR] = 10[COLOR="SeaGreen"]  '*** HÜCRENİN ASIL KARAKTER BOYUTU[/COLOR]
[COLOR="red"]büyük[/COLOR] = 16 [COLOR="seagreen"]  '***İLK KARAKTERLERİN BOYUTU[/COLOR]
[[B][COLOR="blue"]A1[/COLOR][/B]].Font.Size = [COLOR="Red"]asıl[/COLOR]
[[COLOR="blue"][B]A1[/B][/COLOR]].Characters(Start:=1, Length:=1).Font.Size = [COLOR="red"]büyük[/COLOR]
For k = 2 To Len([A1])
    If Mid([[B][COLOR="blue"]A1[/COLOR][/B]], k - 1, 1) = " " Then [[B][COLOR="blue"]A1[/COLOR][/B]].Characters(Start:=k, Length:=1).Font.Size = [COLOR="red"]büyük[/COLOR]
Next
[B]End Sub[/B]

 

[Korhan Ayhan]

Alternatif,

Hücre aralığı seçip kodu çalıştırın.

Option Explicit

Sub Punto_Ayari()
    Dim Veri As Range, Kelime As Variant, X As Integer, Uzunluk As Integer
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For Each Veri In Selection
        Uzunluk = 1
        Veri.Value = UCase(Replace(Replace(Veri.Value, "ı", "I"), "i", "İ"))
        Veri.Font.Size = 11
        Kelime = Split(Veri.Value, " ")
        For X = 0 To UBound(Kelime)
            With Veri.Characters(Start:=Uzunluk, Length:=1).Font
                .Name = "Tahoma"
                .FontStyle = "Normal"
                .Size = 16
            End With
            Uzunluk = Uzunluk + Len(Kelime(X)) + 1
        Next
    Next

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub