excel - 如何从 VBA 函数将范围传递给 Excel 公式

Question

我正在写一个vba函数生成移动平均值以平滑图形。我需要使用四分位数范围来调整平滑公式。如何将 QuartileRange 传递给 Evaluate 函数以返回该范围的四分位值，以便我可以在我的函数中使用它？

函数调用如下

=MovingAverageSmoothQuartile( A1, 4, B1:b10 )

哪里

• A1 是要平滑的值，
• 4 是要使用的值的数量，

• B1:B10 是用于计算四分位数值的一列样本。

  Function MovingAverageSmoothQuartile(r As Range, ByVal m As Integer, QuartileRange As Range)
  ' returns a smoothed average using the 'rectangular' method
  Dim q1 As Double, q2 As Double, q3 As Double        
  q1 = Evaluate("Quartile( " + QuartileRange.Text + ", 1") ' <--- Stuck here
  

Answer 1

像这样:

q1 = WorksheetFunction.quartile(QuartileRange, 1)