我试图直接计算,但它不起作用。
这就是我现在所拥有的。
Private Sub TextBox270_AfterUpdate()
TextBox270.Value = Val(TextBox1.Value) + Val(TextBox150.Value)
End Sub
我正在努力实现
1 (in TextBox1) + 2 (in TextBox150) = 3 (in TextBox270)
答案 0 :(得分:1)
您需要处理TextBox1
和Textbox150
这是你在尝试什么? (未经测试)我假设您将在这两个文本框中输入有效数字。
Private Sub TextBox1_Change()
GenerateSum
End Sub
Private Sub TextBox150_Change()
GenerateSum
End Sub
Sub GenerateSum()
If Len(Trim(TextBox1.Text)) <> 0 And _
Len(Trim(TextBox150.Text)) <> 0 Then
TextBox270.Text = Val(Trim(TextBox1.Text)) + _
Val(Trim(TextBox150.Text))
End If
End Sub