Formating values in userform text box to one decimal place

[Nick]

Hi all,

I have the following userform that returns the % change between two numbers:

Private Sub CommandButton1_Click()
On Error Resume Next
answer.Text = (Val(y.Text) - Val(x.Text)) / Val(y.Text) * 100
End Sub

Does anyone know how to ensure that it only displays the answer to one decimal place in the textbox?

Thanks

Nick

 

[Von Pookie]

I've used this before. You just need to tell it to format that textbox specifically:<PRE>Private Sub textbox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

textbox1 = Format(textbox1, "0.0;(0.0)")

End Sub</PRE>

If you want it to show the percent sign as well, just change it to 0.0%. What I have above will format negative numbers as being in parenthesis (that was in my original code, but you can always change that if you need to).
_________________<font color="#3399FF" size="3">Kristy</font>

This message was edited by Von Pookie on 2002-10-22 14:03
This message was edited by Von Pookie on 2002-10-22 14:04