如何对文本框内的值求和

Question

我正在为 work.My 开发新的 excel vba 项目，问题是如何对 textbox.For 示例中的值求和；如果我写了“50+ 50" 在 textbox1 中，退出时我希望 textbox1 显示值“100”。我尝试了几种方法，但 none 似乎 work.Thanks 任何人都可以提前回答。

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

如何对文本框内的值求和

How to sum values up inside of textbox

excel

vba

textbox