Question

怎么写VBA窗体中textbox3的值等于textbox1×te 乘以 textbox2的值的语句？

我在窗体上用文本框做了一个有单价、数量、金额的表格，需要在写入或修改单价或数量后，金额会自动显示出金额。
标提上多打了个“×te”！

Answer 1

Private Sub Form_Load()
Text1 = 0
Text2 = 0
End Sub

Private Sub Text1_Change()
If IsNumeric(Text1) Then
Text3 = Text1 * Text2
Else
'MsgBox "请输入数字!"
Text1 = 0
End If
End Sub
Private Sub Text2_Change()
If IsNumeric(Text2) Then
Text3 = Text1 * Text2
Else
'MsgBox "请输入数字!"
Text2 = 0
End If
End Sub

Answer 2

Private Sub TextBox1_Change()
If TextBox2 <> "" Then
TextBox3.Value = TextBox2.Value * TextBox1.Value
End If
End Sub
Private Sub TextBox2_Change()
If TextBox1 <> "" Then
TextBox3.Value = TextBox2.Value * TextBox1.Value
End If
End Sub

Answer 3

private sub 单价或数量文本框_change()
金额文本框.text=.....
end sub

Answer 4

TextBox3.Value = TextBox2.Value * TextBox1.Value