急いでいます！

VBA averageifsがうまくいきません。

締切済

質問者：suomynona888
質問日時：2016/11/18 08:59
回答数：4件

F2からF1201にある値を、条件を幾つか指定して
（J7→F2:F1201の値で、100以上4000以下のもの、
K7→F2:F1201のうち、同じ行のD列の値が1、G列の値が1で、100以上4000以下のもの、
L7→F2:F1201のうち、同じ行のD列の値が2、G列の値が1で、100以上4000以下のもの...以下省略）
平均しようと、以下に挙げるコードを書いてみたのですが「構文エラー」と出てうまくいきません。
どなたかどこを変更したらいいかご教示頂けないでしょうか。

Sub test()

Sheets(1).Range("J7").Value = "=AVERAGEIFS(F2:F1201, F2:F1201, " >= 100" F2:F1201,"<=4000")”
Sheets(1).Range("K7").Value ="=AVERAGEIFS(F2:F1201, D2:D1201, 1, G2:G1201,1,F2:F1201, ">=100", F2:F1201, "<=4000")”
Sheets(1).Range("L7").Value ="=AVERAGEIFS(F2:F1201, D2:D1201, 2,G2:G1201,1, F2:F1201, ">=100", F2:F1201, "<=4000")”
Sheets(1).Range(“M7”).Value ="=AVERAGEIFS(F2:F1201, D2:D1201, 1,G2:G1201,2, F2:F1201, ">=100", F2:F1201, "<=4000")”
Sheets(1).Range(“N7”).Value ="=AVERAGEIFS(F2:F1201, D2:D1201, 2,G2:G1201,2, F2:F1201, ">=100", F2:F1201, "<=4000")”
Sheets(1).Range(“O7”).Value =“=AVERAGEIFS(F2:F1201, D2:D1201, 0,G2:G1201,1, F2:F1201, ">=100", F2:F1201, "<=4000")”
Sheets(1).Range("P7").Value = "=AVERAGEIFS(F2:F1201, D2:D1201, 0,G2:G1201,2, F2:F1201, ">=100", F2:F1201, "<=4000")”

End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： WindFaller
回答日時：2016/11/18 21:19

なぜ、こんなふうに書くかというと、VBEditorのコンパイルの設定の仕方によっては、たいへんに重くなることがあります。

だから、本来は、数式は、分解していれるようにしたほうがよいのです。ただ、常にこのような書き方は出来ないかもしれません。そういう場合は、数式を一旦、
Debug.Print 数式
で出力してやって、その中身を確認するとよいです。
それと、うまく行ったものを元の数式と対比してサンプルとして残しておきます。

数式
=AVERAGEIFS(F2:F1201, D2:D1201, 1, G2:G1201, 1,F2:F1201, ">=100", F2:F1201, "<=4000")

マクロの数式(数式の中の" ->"" と増えています。)
"=AVERAGEIFS(F2:F1201, D2:D1201, 1, G2:G1201,1,F2:F1201, "">=100"", F2:F1201, ""<=4000"")"

数式の中で、空白部分が誤認識することがありますから、コードの余分な空白は注意してください。

コンパクト化した数式
'//
Sub TestLoop()
Dim a, b
Dim i As Long
a = Array(, 1, 2, 1, 2, 0, 0)
b = Array(, 1, 1, 2, 2, 1, 2)
With Worksheets(1)
For i = 0 To 5
　 If i = 0 Then
　　Cells(7, 10 + i).FormulaLocal = "=AVERAGEIFS(F2:F1201,F2:F1201, " & _
　　　　　 """>=100"",F2:F1201,""<=4000"")"
　 Else
　 Cells(7, 10 + i).FormulaLocal = _
　　　 "=AVERAGEIFS(F2:F1201,D2:D20," & a(i) & _
　　　 ",G2:G20," & b(i) & ",F2:F1201,"">=100"",F2:F1201,""<=4000"")"
　End If
Next
End With
End Sub