Replace 3/8 with symbol

[TomToms]

Hey Guys, so i have a spreadsheet all set up and everything and all my user forms are done but i have one small issue, Im wondering how to replace something like 3/8 with a symbol like this ⅜ I need to do with with 1/16, 3/16 5/16, 7/16, and so on all the way to 15/16, as far as i know there is no set unicode text symbol for any of those so is there a way to make my own ? that look nice or a work around of some sort? Thanks in advance

 

[Trevor G]

If you have the data entered as text '3/8 you can then select the cell and use the format and look to use Superscript that will reduce the contents as per your description. The preview here hasn't taken into account the superscript feature.

Excel Workbook
	J
4	3/8
Sheet3

 

[pgc01]

Hi Tom

I wrote a udf to display miniature fractions in excel. I must say that the result is not at all perfect but it was enough for what I needed. It uses the sub/superscript unicode characters.

If you want to try it, use a formula like, for ex.:

="I managed to get a "&Fraction(3,16)&" discount on all parts."

' pgc 2010-05
' displays miniature fractions
Function Fraction(lNumerator As Long, lDenominator As Long) As String
Dim sSub() As Variant, sSup() As Variant
Dim j As Long
Dim s As String
 
sSup = VBA.Array("2070", "00b9", "00b2", "00b3", "2074", "2075", "2076", "2077", "2078", "2079")
sSub = VBA.Array("2080", "2081", "2082", "2083", "2084", "2085", "2086", "2087", "2088", "2089")
 
If lNumerator < 0 Or lNumerator > 999 Or lDenominator < 0 Or lDenominator > 999 Then Exit Function
 
For j = 1 To Len(CStr(lNumerator))
    s = s & ChrW("&H" & sSup(Mid(lNumerator, j, 1)))
Next j
 
s = s & ChrW(&H337) & " "
 
For j = 1 To Len(CStr(lDenominator))
    s = s & ChrW("&H" & sSub(Mid(lDenominator, j, 1)))
Next j
 
Fraction = s
End Function