使用 sumif 对 InputBox 中的条件求和范围

Question

我想对列中的一系列行求和，对于来自 InputBox 的条件输入值，其值等于或小于输入值。它在 excel 电子表格中很简单，例如=SUMIF(A2:A20;"

Dim A, B, AB As Variant
Dim criteriaRng As Range
Dim sumRng As Range


A = Application.InputBox("Enter the amount of A per year", "A", "A/year", Type:=1)
Worksheets("Sheet").Range("M12").Value = A
B = Application.InputBox("Enter the amount of years B", "B", "Years", Type:=1)
Worksheets("Sheet").Range("N12").Value = B
AB = Worksheets("Sheet").Cells(12, 13) * Worksheets("Sheet").Cells(12, 14)
Worksheets("Sheet").Range("O12").Value = AB

Set criteriaRng = Worksheets("Sheet2").Range("A2:A20")
Set sumRng = Worksheets("Sheet2").Range("C2:C20")

Worksheets("Sheet").Range("P12").Value = WorksheetFunction.SumIf(criteriaRng, "<= AB", sumRng)

End Sub```

Answer 1

您当前在字符串中使用了您的变量，因此 VBA 无法识别该变量。沟，AB 变量一起使用：

Worksheets("Sheet").Range("O12").Value = A*B

&

Worksheets("Sheet").Range("P12").Value = WorksheetFunction.SumIf(criteriaRng, "<=" & A*B, sumRng)

---

旁注：Dim A, B, AB As Variant 将使所有三个变量变暗为Variant。但是，您正在返回 Type:=1 数据（数字），因此请更改为 Double 或 Long。此外，您当前使用的构造应该是Dim A as Long, B as Long, AB As Long，以防止前两个再次变为Variant。