VBA中的加权平均费率

Question

我对 VBA 很陌生，所以如果我的问题看起来很微不足道，我很抱歉。 我很想在 VBA 中编写一个函数来帮助估计加权平均利率（例如，对于贷款组合）。 我编写了以下 VBA 代码：

Function WAIRS(Amount As Range, InterestRate As Range, MatchRange As Range, Match1)
WAIRS = Evaluate("=SUMPRODUCT(--(""" & MatchRange & """ = """ & Match1 & """),""" & Amount & """, """ & InterestRate & """)")      /Application.WorksheetFunction.SumIfs(Amount, MatchRange, Match1)
End Function

问题是，当我通过添加相应的函数条件在 Excel 中运行此函数时，我得到一个“#VALUE#”。 我尝试了很多，但无法找出问题所在。 如果您能帮助我，我将不胜感激。

先感谢您。

最好的，杰勋

Answer 1

您为Evaluate构建的字符串（在本例中）不应包含文字双引号。 而不是引用范围值的结果

"""" & MatchRange & """"

...您应该检索该范围的地址符号，并使用它而不用引号将其括起来：

MatchRange.Address()

如果您始终如一地应用它，它会使公式的Evaluate部分看起来像这样：

"=SUMPRODUCT(--(" & MatchRange.Address() & " = " & Match1.Address() & "), " & _
                    Amount.Address() & ", " & InterestRate.Address() & ")" 

当范围是另一张纸时：

如果您的范围在另一张纸上，则上述方法将不起作用。 在这种情况下，我建议创建这个函数：

Public Function fullAddr(range As Range)
    fullAddr = "'" & range.Parent.Name & "'!" & _
                  range.Address(External:=False) 
End Function

然后在你的公式中：

"=SUMPRODUCT(--(" & fullAddr(MatchRange) & " = " & fullAddr(Match1) & "), " & _
                    fullAddr(Amount) & ", " & fullAddr(InterestRate) & ")"