spin button fractions

maxx_daddy

Board Regular
Joined
Dec 3, 2010
Messages
74
Ok, so I figured it out, but I am guessing there has to be a more efficient way.
I am trying to have spin buttons for inches and fractions on a user form. Is there a better way than having a hidden text box? I wasn't able to store the value properly and it kept failing.
Open to suggestions.

Thanks!!

Code:
Private Sub SpinButton2_SpinUp()
If TextBox3.Text = 0.9375 Then
TextBox3.Text = 0
Else
TextBox3.Text = TextBox3.Text + 0.0625
End If
testval = Excel.WorksheetFunction.Text(TextBox3.Text, "# ??/??") & """"
TextBox2.Text = testval


End Sub


Private Sub SpinButton2_SpinDown()
If TextBox3.Text = 0 Then
TextBox3.Text = 0.9375
Else
TextBox3.Text = TextBox3.Text - 0.0625
End If
testval = Excel.WorksheetFunction.Text(TextBox3.Text, "# ??/??")
TextBox2.Text = testval
End Sub
Note, the above code covers the fractions, the whole numbers is easy enough.
 
Last edited:

Some videos you may like

Excel Facts

What is the last column in Excel?
Excel columns run from A to Z, AA to AZ, AAA to XFD. The last column is XFD.

Watch MrExcel Video

Forum statistics

Threads
1,100,209
Messages
5,473,165
Members
406,849
Latest member
gustavor0

This Week's Hot Topics

Top