Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi Gary,
Gary Phillips wrote: I've got four textboxes... The first three are enabled, the fourth is not. I want the user to be able to enter an integer value into the first three and it will add those three values into the fourth box. I do not want the user to have to press any buttons, I want it to update as the user goes along. Something like this should work for you: Private Sub TextBox1_Change() CalcTotal End Sub Private Sub TextBox2_Change() CalcTotal End Sub Private Sub TextBox3_Change() CalcTotal End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As _ MSForms.ReturnInteger) If KeyAscii < Asc("0") Or KeyAscii Asc("9") Then Interaction.Beep KeyAscii = 0 End If End Sub Private Sub TextBox2_KeyPress(ByVal KeyAscii As _ MSForms.ReturnInteger) If KeyAscii < Asc("0") Or KeyAscii Asc("9") Then Interaction.Beep KeyAscii = 0 End If End Sub Private Sub TextBox3_KeyPress(ByVal KeyAscii As _ MSForms.ReturnInteger) If KeyAscii < Asc("0") Or KeyAscii Asc("9") Then Interaction.Beep KeyAscii = 0 End If End Sub Private Sub CalcTotal() TextBox4.Text = CLng("0" & TextBox1.Text) + _ CLng("0" & TextBox2.Text) + _ CLng("0" & TextBox3.Text) End Sub You'll probably want to set the MaxLength property of the 3 textboxes to something manageable to avoid overflow errors. -- Regards, Jake Marx MS MVP - Excel www.longhead.com [please keep replies in the newsgroup - email address unmonitored] |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Adding mm:ss values | Excel Worksheet Functions | |||
Axes values changes autmatically / textboxes lose formatting | Charts and Charting in Excel | |||
Adding numerical values based on multiple values in another column | Excel Worksheet Functions | |||
Adding the values of 2 textboxes | Excel Programming | |||
Add values of textboxes together | Excel Programming |