如何使用重复的 SUMIFS 函数缩短 VBA 代码？

Question

我已经根据单元格中值的变化在VBA中编写了一些SUMIFS

例如单元格 A23 是带有 Total 和 UK 的下拉菜单

If A23 = "Total" Then
Result.Range("A24").Value =     WorkSheetFunction.Sumifs(Range(B:B)),
Range(C:C)), "Year",
Range(D:D)), "Group")

If A23 = "UK" Then
Result.Range("A24").Value = WorkSheetFunction.Sumifs(Range(B:B)),
Range(C:C)), "Year",
Range(D:D)), "Group",
Range(E:E)), "UK")

根据上面的示例，第二个代码是第一个代码的重复，但包含一个额外的范围以选择“UK”

有没有一种方法可以缩短代码，以便我可以简单地连接我想要包含的任何其他范围，而不是不断地重写它？

所以理想情况下我可以有类似的东西：

Test = Result.Range("A24").Value = WorkSheetFunction.Sumifs(Range(B:B)),
Range(C:C)), "Year",
Range(D:D)), "Group"

If A23 = Total Then
A24 = Test)

If A23 = UK Then
A24 = Test &, Range(E:E), "UK")

这可能吗？如果可以，我该怎么做？

Answer 1

（发布此答案主要是为了回应第二条评论，其中包含实际代码 - 尽管看起来您正在执行的实际操作有点不同？）

所以，正如我所说，您需要通过将单独的部分保存在变量中来稍微简化代码

Dim strFormula as String
Dim rngLIC as Range
Dim rngRegion as Range
Dim rngYear as Range

Set rngLIC = Range(rngHeaders.Find(LIC) , rngHeaders.Find(LIC).End(xlDown))
Set rngRegion = Range(rngHeaders.Find(Year), rngHeaders.Find(Year).End(xlDown))
Set rngYear = Range(rngHeaders.Find(Year), rngHeaders.Find(Year).End(xlDown))

'and I think you'll need to add others for the extra bit you wanted to fix, but you get the pattern

strFormula = "=SUMIFS(" & _
                rngLIC.Address(xlA1) & "," & _
                rngRegion.Address(xlA1) & ", A23," & _
                rngYear.Address(xlA1) & ", ""Year 0"")"

'Then add the replace bit I detailed above if necessary to add bits to the formula

希望该代码与您在注释中添加的代码 sn-p 完全相同。这有帮助吗？ （如果是，请投票，因为我正在努力建立自己的声誉！）

Answer 2

您可以在单元格中输入实际函数，而不是在 vba 中进行worksheetfunction 计算吗？ （做工作表函数计算不会真正在单元格中输入公式，只是返回输出值）

可能是这样的：

Dim strFormula as String
strFormula = "=SUMIFS(B:B, C:C, ""Year"", D:D, ""Group"")"
'Thats the basic formula

If Result.Range("A23").Value = "UK" Then
    strFormula = replace(strFormula, ")", "E:E, ""UK"")")
    'that replaces the end bracket with the extra condition
End If

Result.Range("A4").FormulaA1 = strFormula