如何避免averageifs＃DIV/0！使用VBA

Question

我有下面的代码：

Sheet1.Range("AB3").Value = Application.WorksheetFunction.AverageIfs(_ 
           .Range("AB5:AB" & CStr(i)), _ 
           .Range("AB5:AB" & CStr(i)), _ 
           ">=0", .Range("AB5:AB" & CStr(i)), "<>N/A") 

来获得一定范围的平均值和排除-ve值和N/A值，但是有一个时刻，当所有的范围是N/A，所以我发现了以下错误：

 
unable to get the average property of the worksheetfunction class 

为了避免这种情况我想这样的：

Sheet1.Range("AB3").Value = Application.WorksheetFunction.IfError(_ 
           Application.WorksheetFunction.AverageIfs(_ 
           .Range("AB5:AB" & CStr(i)), _ 
           .Range("AB5:AB" & CStr(i)), ">=0", _ 
           .Range("AB5:AB" & CStr(i)), "<>N/A"), "N/A") 

，但没有运气。任何帮助将不胜感激。

编辑：

在Excel中它工作正常，但不是在VBA（在后面的代码）

只是做Excel中的一个小测试，它工作正常：

=IFERROR(AVERAGEIFS(AF5:AF10,AF5:AF10,"<>n/a"),"N/A") 

在如果范围“AF5：AF10”中的数据全部为“n/a”，则公式返回“N/A”，这是正确的。

Answer 1

我只是将公式应用于代码中的单元格。这里有两种方法，一种是把公式中的activecell再“粘贴”在它的价值，一个评估公式，然后提出，在activecell值：

Sub Test1() 
Dim i As Long 

i = 10 
Sheet1.Range("AB3").Formula = "=IFERROR(AVERAGEIFS(AF5:AF" & CStr(i) & ",AF5:AF" & CStr(i) & ",""<>n/a""),""N/A"")" 
Sheet1.Range("B3").Value = Sheet1.Range("AB3").Value 
End Sub 

Sub Test2() 
Dim strFormula As String 
Dim i As Long 

i = 10 
strFormula = "=IFERROR(AVERAGEIFS(AF5:AF" & CStr(i) & ",AF5:AF" & CStr(i) & ",""<>n/a""),""N/A"")" 
Sheet1.Range("AB3").Value = Application.Evaluate(strFormula) 
End Sub 

Answer 2

我发现了另一个解决我的问题：

避免：

unable to get the average property of the worksheetfunction class 

只是从配方中删除WorksheetFunction。

就是这样。