Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56128 / 76736

←次へ　｜　前へ→


	【25370】Re:不要な値を除いて平均値を求めたい

ぴかる - 05/5/30(月) 9:28 -


	引用なし

	パスワード

monmonさん、こんにちは。

こんなんでＯＫですかね？

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

0 hits

▼

【25366】不要な値を除いて平均値を求めたい monmon 05/5/30(月) 6:11