Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56124 / 76732 ←次へ | 前へ→

【25370】Re:不要な値を除いて平均値を求めたい
回答  ぴかる  - 05/5/30(月) 9:28 -

引用なし
パスワード
   monmonさん、こんにちは。

こんなんでOKですかね?

Sub TEST()

Dim しきい値 As Integer
Dim データ数 As Integer
Dim 合計値 As Integer
Dim I As Long

  しきい値 = InputBox("しきい値を入力して下さい。")
  For I = 1 To Range("A1").End(xlDown).Row
    For J = 1 To 6
      If Cells(I, J).Value < しきい値 Then
        合計値 = 合計値 + Cells(I, J).Value
        データ数 = データ数 + 1
      End If
    Next
    If データ数 > 0 Then
      Cells(I, 7).Value = 合計値 / データ数
    End If
    合計値 = 0
    データ数 = 0
  Next

End Sub

1 hits

【25366】不要な値を除いて平均値を求めたい monmon 05/5/30(月) 6:11 質問
【25370】Re:不要な値を除いて平均値を求めたい ぴかる 05/5/30(月) 9:28 回答
【25403】Re:不要な値を除いて平均値を求めたい monmon 05/5/30(月) 16:40 質問

56124 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free