Question

所以我将myValue定义为输入值，但现在我想将输入值与F39：41的总和相加。

Dim myValue As Variant

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

范围（“B7”）。值= myValue工作正常，但如果我在公式中也包含总和F39：41则失败。我已经尝试过这个作为CInt的公式，但仍然无法正常工作。有什么想法吗？

由于

Answer 1

要输入您将使用的公式：

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

Answer 2

我是你想要的：

Dim myValue As Variant

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

Answer 3

InputBox返回的值是一个字符串，因此无需转换为Integer将其添加到公式中。此外，您可能想要检查用户是否取消了输入：

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

Answer 4

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

VBA总和范围包括变体

4 个答案: