Userform Textbox Format to fraction

K

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
 
D

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top