Question

我正在研究新的excel vba项目。我的问题是如何总结文本框内的值。例如;如果我在textbox1中写了“50 + 50”，退出时我希望textbox1显示值“100”。我尝试了几个methots，但似乎没有一个工作。谢谢任何人提前回答。

Answer 1

根据我的评论，查看Application.Evaluate（）函数：

Sub evall()
Dim t As String
Dim h As Double
t = InputBox("Formula")
h = Application.Evaluate(t)
MsgBox h
End Sub

Answer 2

试试这个：

    Sub CalcSum()

    Dim a as Variant
    Dim b as Variant
    a = inputbox("Please enter the First Value")
    If a ="" then
        Msgbox("Nothing was entered for 1st value")
        Exit Sub
    End If
    b = inputbox("Please enter the Second Value")
    If b ="" then
        Msgbox("Nothing was entered for 2nd value")
        Exit Sub
    End If
    Msgbox(a & " + " & b & " is: " & a+b)

    End Sub

或者，如果您使用的是用户表单，则可以在上面的代码之后使用以下内容，而不使用msgbox行：

    textbox1.value=a+b

如何在文本框内部对值进行求和

2 个答案: