1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Private Sub TextBox31_AfterUpdate()
TextBox31.Value = CDbl(TextBox32.Value) + CDbl(TextBox34.Value)
End Sub
Private Sub TextBox33_AfterUpdate()
Me.TextBox33.Value = Format(CDbl(Me.TextBox33.Value), "# ##0.00 ")
End Sub
Private Sub TextBox31_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox31 = Format(Me.TextBox31, "# ##0.00 ")
End Sub
Private Sub TextBox32_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox32 = Format(Me.TextBox32, "# ##0.00 ")
End Sub
Private Sub TextBox33_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox33 = Format(Me.TextBox33, "# ##0.00 ")
End Sub
Private Sub TextBox34_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox34 = Format(Me.TextBox34, "# ##0.00 ")
End Sub
Private Sub TextBox37_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox37 = Format(Me.TextBox37, "# ##0.00 ")
End Sub |