VBAでSUMIFの範囲指定をしたいです

Question

前提・実現したいこと

VBAのマクロでSUMIFの関数を作っていますが、範囲の指定で上手くいっていません。
８列目のb～a行、15列目のb~a行の範囲を指定したいです。

発生している問題・エラーメッセージ

コンパイルエラー　構文エラー

該当のソースコード

a,bは変数です。

Cells(a+1, 15).Value = "=SUMIF(Range(Cells(b, 8), Cells(a, 8)),"test",Range(Cells(b, 15), Cells(a, 15)))"

試したこと

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

文字列内のダブルクォーテーションは""と記述します。

Cells(a+1, 15).Value = "=SUMIF(Range(Cells(b, 8), Cells(a, 8)),""test"",Range(Cells(b, 15), Cells(a, 15)))"

※数式自体の確認はしてませんのであしからず

Comments

[skjdujr9djhf]

回答ありがとうございます。

マクロ実行後の値を確認するとa,bに値が入っておらず、式にそのまま「a,b」と出てきてしまうため、計算結果が対象のセルに表示されません。

Cellsの引数ですが、片方は変数で、片方は固定値という使い方でも大丈夫なんでしょうか？
変数の定義ではDimで宣言していないので、Variant型になっているはずです。

[ttyp03]

aもbも文字扱いになっているので、文字列の括りから分離しないといけません。
次のようにしてみてください。
Cells(a+1, 15).Value = "=SUMIF(Range(Cells(”&b&", 8), Cells("&a&", 8)),""test"",Range(Cells("&b&", 15), Cells("&a&", 15)))"

[skjdujr9djhf]

回答ありがとうございます。
変数も”&で括らないといけないのですね。

マクロ実行後の値ですが、「#NAME?」と表示されます。
代入されたセルの式には、=SUMIF(Range(Cells(10, 8), Cells(30, 8)),"test",Range(Cells(10, 15), Cells(30, 15)))
と値が具体的に入っていますが、この式では計算できないのでしょうか。
あるいは指定の仕方が間違っているでしょうか。

SUM(x:y)ならば「x:y」をクリックするとその範囲が色で表示されますが、この式では表示されません。
ただ、SUMIF(範囲、検索条件、[合計範囲])はそれぞれの箇所をクリックすると切り替わります。

[ttyp03]

すみません、数式とVBAがごっちゃになってました。
こうですかね。
Cells(a+1, 15).Value = "=SUMIF(H" & b & ":H" & a & ",""test""," & "O" & b & ":O" & a & ")"

[skjdujr9djhf]

ありがとうございました。
上記の式で期待していた値が得られました。

VBAで具体的にHとかOとか指定してあげないと、Excelでは計算されないのですね。

[ttyp03]

そうですね。
ここで生成しているのはあくまでもワークシート上の数式なので、VBAの関数がそのまま使えませんので。

Answer 2

"=SUMIF(Range(Cells(1,8),Cells(2,8)),Range(Cells(1,15),Cells(2,15)))"

念のため
Dim testRangeSelection As Range
Set testRangeSelection = Range(Cells(1,8),Cells(2,8)),Range(Cells(1,15),Cells(2,15))

testRangeSelection.Select

で選択範囲を確認してみてください。