Kelimenin içindeki font büyüklükleri

[Jeeday]

Arkadaşlar selam,

Hücrelerde kimyasal formüller var, örneğin "C15H13NO2"...

Makro ile bu yazılara şöyle bir biçim vermek istiyorum... Harflerin büyüklüğü 12 olsun, sayıların ki 8...

Mümkün müdür?

 

[Muzaffer Ali]

Aşağıdaki kodu bir modüle kopyalayın ve çalıştırın.

Kimyasal formüllerin A sütununda olduğu varsayılarak hazırlanmıştır.

Sub HarfBoyutu()
    Dim Bak As Range
    Dim Sira As Integer
    For Each Bak In Range("A1:A" & Cells(Rows.Count, "A").End(3).Row)
        For Sira = 1 To Len(Bak.Text)
            If IsNumeric(Bak.Characters(Start:=Sira, Length:=1).Text) Then
                Bak.Characters(Start:=Sira, Length:=1).Font.Size = 8
            Else
                Bak.Characters(Start:=Sira, Length:=1).Font.Size = 12
            End If
        Next
    Next
End Sub

 

[Jeeday]

Süpersin

Nacizane kod bilgim ile kendime göre düzenledim, tam istediğim gibi oldu...

Emeğine sağlık