Userform Textbox Format to fraction

[kylekelsch]

Is there a way to make it so a userform textbox will only display
fractions ?

For Example:

If TextBox1 = A1 when the userform is activated and A1 has a value of
1.5 I want the textbox to show 1 1/2 . Any help on this would be
greatly appreciated.

Thanks

 

[Dave Peterson]

If the cell is formatted nicely:

Option Explicit
Private Sub UserForm_initialize()
me.textbox1.value = worksheets("sheet1").range("A1").Text
End Sub

if not, you can do the formatting yourself.

Option Explicit
Private Sub UserForm_initialize()
Me.TextBox1.Value _
= Application.Text(Worksheets("sheet1").Range("A1").Value, "# #/##")
End Sub