MedianIfランタイムエラー '438'を与える​​関数

Question

このコード行ではエラーが表示されません。おそらく、私はそれを認識するために2番目の目を必要とします：

targetWs.Cells(subRow, 7) = Application.WorksheetFunction.MedianIf(sourceWs.Range("X3:X92"), ">" & 0) 

Answer 1

MedianIfはWorksheetFuntionの子ではありません。それは存在しない。

これは配列数式のようになります。

MEDIAN(IF(X3:X92 > 0,X3:X92)) 

ので、我々はWorksheet.Evaluateを（使用する必要があります）：

targetWs.Cells(subRow, 7) = sourceWs.Evaluate("MEDIAN(IF(X3:X92 > 0,X3:X92))")