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

时间:2015-06-19 11:17:46

标签: excel vba excel-vba

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

这就是我现在所拥有的。

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

我正在努力实现

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

1 个答案:

答案 0 :(得分:1)

您需要处理TextBox1Textbox150

的更改事件

这是你在尝试什么? (未经测试)我假设您在这两个文本框中输入有效数字。

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