Excel-一定値以上の平均値を見つけるにはどうすればよいですか？

Question

enter image description here

上記の画像を見ると、平均を特定の基準に一致する数字からどのように見つけることができますか？たとえば、範囲J3：Q3の場合、数値が50を超えると平均化が始まります（この例ではL3：Q3）。

Answer 1

ハック - yの方法：

は

=IF(J3>50, J3, '') 

とJ4に記入し、その後、Q4までそれをコピーします。そして、あなたは、カスタマーを追加することができます

=AVERAGE(J4:Q4) 

Answer 2

とJ5に記入

は、あなたのワークシートからそれを呼び出すことができ、あなたのワークシートにVBAで関数を作りました。お使いのExcelワークシートで

あなたは

=Average_Cells(first_cell_for_average, value_above) 

first_cell_for_averageを入力する必要があります - あなたは、関数が残りの部分を処理するA3を置くことができます。

value_above =あなたの投稿では50です。後で変更したい値に変更できます。

ファンクションコード：

Public Function Average_Cells(ByRef first_Cell As Range, larger_Than As Long) As Double 

' Row 3 in your post 
last_col = ActiveSheet.Cells(3, ActiveSheet.Columns.count).End(xlToLeft).Column 
first_Col = first_Cell.Cells(1, 1).Column 

For col = first_Col To last_col 
    If Cells(3, col).Value > larger_Than Then 
     GoTo Exit_For 
    End If 
Next 

Exit_For: 
Average_Cells = Application.WorksheetFunction.Average(Range(Cells(3, col), Cells(3, last_col))) 

End Function