Question

我试图直接计算，但它不起作用。

这就是我现在所拥有的。

Private Sub TextBox270_AfterUpdate() 
    TextBox270.Value = Val(TextBox1.Value) + Val(TextBox150.Value)    
End Sub

我正在努力实现

1 (in TextBox1) + 2 (in TextBox150) = 3 (in TextBox270)

Answer 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

在第3个文本框中显示2个文本框的总和

1 个答案: