VBA SUMPRODUCTについて２

質問

A　　　　　B　　　　　C　　　
東京　　みかん　　200
大阪　　りんご　 　150
愛知　　りんご　 　200
愛知　　みかん　　170
東京　　みかん　　190

　　　　　　　　　　　390（←出したい値：atai）

【やりたいこと】
A列が「東京」で、B列が「みかん」のC列の合計を出したいです。
つまり、200＋190 = 390

下記、書いてみたのですがatai(値が0）になります。
※本来は390と出したいところです。
何が間違っているのでしょうか？

---------------------------
Sub monthResult2()

Dim ans As String

ans = "東京"

atai = Evaluate("SUMPRODUCT((A1:A5= ""& ans &"" )*(B1:B5= ""みかん"") * C1:C5)")

Range("C7") = atai

End Sub

-------------------

""& ans &"" を　""東京""　とすれば正しい答え「390」が出てきます。
ans は変数で使いたいので固定で指定したくありません・・。

どうぞよろしくお願い致します。

回答No.1

mar00 · ベストアンサー

Sub monthResult2()

Dim ans As String

ans = "東京"

atai = Evaluate("SUMPRODUCT((A1:A5= """ & ans & """ )*(B1:B5= ""みかん"") * C1:C5)")

Range("C7") = atai

End Sub

お礼

何度もお手数おかけし申し訳ございませんでした。

無事出来ました！！

ダブルクォーテーションを3つ使うのですね（＾＾；）
意味はこれから調べて頑張ります。

""" & ans & """

本当に本当にありがとうございました！