代码之家 › 专栏 › 技术社区 › Chris S

VBA总和范围,包括变量

inputbox excel vba

Chris S · 技术社区 · 9 年前

所以我已经将myValue定义为输入值,但现在我想将输入值与F39:41的和相加。

Dim myValue As Variant

    myValue = InputBox("Enter Value", "Enter Value in Â£'s", "Â£")
    Range("B7").Formula = "=Sum(F39:F41)" + CInt(myValue)

范围(“B7”)。Value=myValue工作得很好,但如果我在公式中也包含和F39:41,它就失败了。我已经用CInt尝试过这个公式,但仍然无效。有什么想法吗?

谢谢

4 回复 | 直到 9 年前

Rory 9 年前

要输入公式,请使用:

Range("B7").Formula = "=Sum(F39:F41)+" & CInt(myValue)

Lobsterpants 9 年前

我让你想:

Dim myValue As Variant

myValue = InputBox("Enter Value", "Enter Value in Â£'s", "Â£")
Range("B7").Formula = "=Sum(F39:F41)  +" & CInt(myValue)

Florent B. 9 年前

InputBox返回的值是一个字符串,因此无需转换为整数即可将其添加到公式中。此外,您可能需要检查用户是否没有取消输入:

Dim userInput As String
userInput = InputBox("Enter Value", "Enter Value in Â£'s", "Â£")
If Len(userInput) Then
  Range("B7").Formula = "=Sum(F39:F41)+" & userInput
End If

-2

Sixthsense 9 年前

Range("B7").Value = evaluate("=Sum(F39:F41)") + CInt(myValue)

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

4 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

4 月前

Eric · 我有邮政编码替换问题Excel VBA

4 月前

Chasester · VBA使用嵌套的DIV抓取URL

4 月前

jkp · 特殊字符复选标记

4 月前

Iron Man · 代码插入和复制到错误的工作表

4 月前

NoFafo · 将文本框放入数组进行格式化

4 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

4 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

4 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

5 月前