Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel公式到VBA函数_Vba_Excel_Excel Formula - Fatal编程技术网
Fatal编程技术网
  • vba/
  • Excel公式到VBA函数

Excel公式到VBA函数

vba excel excel-formula

Excel公式到VBA函数,vba,excel,excel-formula,Vba,Excel,Excel Formula,我需要帮助来创建一个VBA函数，该函数的功能与excel公式=AVERAGEIF（A2:A13，“可能就是您的答案 例如： WorksheetFunction.AverageIf(Range("A2:A13"),"<="&Range("E2"),Range("B2:B13")) WorksheetFunction.AverageIf（范围（“A2:A13”），“好吧，你可以这样使用 次平均值（） MsgBox（WorksheetFunction.AverageIf（Worksh

我需要帮助来创建一个VBA函数，该函数的功能与excel公式=AVERAGEIF（A2:A13，“可能就是您的答案

例如：

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

WorksheetFunction.AverageIf（范围（“A2:A13”），“好吧，你可以这样使用




次平均值（）

MsgBox（WorksheetFunction.AverageIf（Worksheets（1）.Range（“A2:A13”），“欢迎加入，很高兴见到新成员！请检查并以您的问题为例。您尝试过什么？这应该不太难进行第一次尝试。但是范围是否总是要固定？或者它们是您传递给用户定义函数的参数？

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