Excel公式轉換為VBA函數

Question

我需要幫助來創建一個VBA函數，該函數執行與此excel公式= AVERAGEIF（A2：A13，“ <=”＆E2，B2：B13）相同的操作

Answer 1

worksheetfunction.averageif方法可能是您的答案。

例如：

WorksheetFunction.AverageIf(Range("A2:A13"),"<="&Range("E2"),Range("B2:B13"))

Answer 2

好吧，你可以這樣使用

工作表功能參考

Sub average()
MsgBox (WorksheetFunction.AverageIf(Worksheets(1).Range("A2:A13"), "<=" & Worksheets(1).Range("E1").Value, Worksheets(1).Range("B2:B13")))

'or like this to put in the range.

Worksheets(1).Range("F1").Formula = "=AVERAGEIF(A2:A13," >= "&E1,B2:B13)"
End Sub