Küsüratlı sayıda format değişikliği

[tamer42]

Merhaba,
"A1" Hücresinde 3,25 yazan sayısal ifadeyi;
3 tam;
0,25 =1/4
makro kodu ile "B1" hücresinde 3 1/4 formatında metinsel olarak yazdırmanın pratik bir fonksiyonu var mıdır?

teşekkürler,
iyi çalışmalar.

 

[Korhan Ayhan]

Böyle olabilirmi...

Option Explicit

Sub Test()
    Range("B1").NumberFormat = "@"
    Range("B1") = CStr(WorksheetFunction.Text(Range("A1"), "# ?/?"))
End Sub

 

[tamer42]

Böyle olabilirmi...

Option Explicit

Sub Test()
    Range("B1").NumberFormat = "@"
    Range("B1") = CStr(WorksheetFunction.Text(Range("A1"), "# ?/?"))
End Sub

Korhan Hocam çok teşekkürler,

iyi Çalışmalar.