Question

Excelvba中,如何实现两个文本框数据进行数学运算？

Answer 1

Private Sub CommandButton1_Click()

MsgBox Int(TextBox1.Text) + Int(TextBox2.Text)

End Sub

Answer 2

Dim returnValue

Do
returnValue = InputBox(Prompt:="请输入表达式，Exit退出！", Title:="运算")
If IsNumeric(Evaluate(returnValue)) Then
MsgBox returnValue & " = " & Evaluate(returnValue), _
vbOKOnly Or vbInformation, _
"运算结果"
Else
MsgBox "输入的运算表达式错误，请重新输入，退出请输入“Exit”", _
vbOKOnly Or vbCritical, _
"数据错误"
End If
Loop While Not UCase(returnValue) = "EXIT"