Hücrede yazı stili biçimlendirme

[mersilen]

Merhabalar

A1 hücresinde bulunan 20:44 şeklinde gözüken zamanın yazı stilini
saat (20: ) için

With ActiveCell.Characters(Start:=1, Length:=3).Font
.FontStyle = "Kalın"
.Size = 12
End With

saniye (44) için

With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "Normal"
.Size = 8
End With

20:44
olacak şekilde hücre biçimlendirmeyi kullanarak isteğe uyarlanmış şekilde çözümlemek mümkün müdür?

 

[Korhan Ayhan]

Merhaba,

Bu işlemi yapabilmeniz için A1 hücresinin biçimi METİN olmalıdır.

Aşağıdaki kod bu işlemi yapar.

Option Explicit
 
Sub BİÇİMLENDİR()
    Dim Veri As String
    
    Veri = Range("A1").Text
    Range("A1").NumberFormat = "@"
    Range("A1") = Veri
    With Range("A1").Characters(Start:=1, Length:=3).Font
        .Name = "Calibri"
        .FontStyle = "Kalın"
        .Size = 12
    End With
    With Range("A1").Characters(Start:=4, Length:=2).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 8
    End With
End Sub

 

[mersilen]

Korhan hocam teşekkür ederim