Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calculating TextBoxes
When I change TextBox12 I would like the value of TextBox13 to be
TextBox12 - TextBox11/24 . Is this possible? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calculating TextBoxes
Sure, put the calculation code in the Textbox12_Change event.
HTH. Best wishes Harald "Patrick C. Simonds" wrote in message ... When I change TextBox12 I would like the value of TextBox13 to be TextBox12 - TextBox11/24 . Is this possible? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calculating TextBoxes
I created a small userform with 3 textboxes, a label and two commandbuttons.
This seemed to work ok: Option Explicit Private Sub CommandButton2_Click() Unload Me End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If DoCalc(Me.TextBox1) = True Then 'ok Else Cancel = True End If End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If DoCalc(Me.TextBox2) = True Then 'ok Else Cancel = True End If End Sub Private Sub UserForm_Initialize() With Me.Label1 .Caption = "" .ForeColor = vbRed End With Me.TextBox1.Tag = "ID here" Me.TextBox2.Tag = "Other ID here" With Me.CommandButton1 .Caption = "Ok" .Default = True End With With Me.CommandButton2 .Caption = "Cancel" .Cancel = True .TakeFocusOnClick = False End With End Sub Function DoCalc(myTB As MSForms.TextBox) As Boolean If IsNumeric("0" & Me.TextBox1.Value) _ And IsNumeric("0" & Me.TextBox2.Value) Then Me.TextBox3.Value = CDbl("0" & Me.TextBox1.Value) _ - (CDbl("0" & Me.TextBox2.Value) / 24) Me.Label1.Caption = "" DoCalc = True Else Me.Label1.Caption = "Please enter a number in: " & myTB.Tag DoCalc = False End If End Function I used this kind of thing: IsNumeric("0" & Me.TextBox1.Value) so that an empty textbox would be treated as 0. "Patrick C. Simonds" wrote: When I change TextBox12 I would like the value of TextBox13 to be TextBox12 - TextBox11/24 . Is this possible? -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Textboxes Not Calculating Properly | Excel Programming | |||
Textboxes not Calculating properly | Excel Programming | |||
Show Results in TextBoxes, ONLY if All TextBoxes have Data in them | Excel Programming | |||
calculating textboxes | Excel Programming | |||
Calculating with textboxes.... | Excel Programming |