VBA SumIfについて教えてください。

質問

【やりたいこと】
A列が「犬」となっている行のB列数字を全て足してCの1行目に答えデータを入れる。

　　A　　　B　　C
　　犬　　200
　　猫　　100
　　鳥　　150
　　犬　　130
　　犬　　120
　　・　　　・
　　・　　　・
　　・　　　・
　　・　　　・

上記の場合、A列が「犬」のB列数字200+130+120でC1には「450」と値が入る。

以下が書いてみたものですがエラーが出てしまいます。
何がいけないのでしょうか？ご教示頂ければ幸いです。

Sub monthResult()
Dim ans As String　'ユーザフォームで「犬」という値を取得
　　 i = 2

　　　Do Until Worksheets("データ").Cells(i, 1).Value = ""　
　　　　　'データという名前のシートA列のデータが無くなるまで

　　　　　Worksheets("データ").Cells(1, 3).Value =
　　　　　　Application.WorksheetFunction.SumIf(Cells(i, 1).Value, ans, Cells(i, 2).Value)
　　　　　　'↑ここでエラーになります。ans（犬）の値は取得出来ています。

　　　　 i = i + 1
　　　Loop
End Sub

回答No.2

TAKA_R · ベストアンサー

１です
説明がなってなくて、すみませんでした。
do loopでも条件足し算はできます。１個ずつ足すようにコードを書いたらいいです。
sumifの場合、条件を探す範囲、条件、その条件があった時足すための数字のある範囲、を指定したらよいので
そしごめんなさい。あれでは動くわけないですね。
いろんな意味で、あわわなコードを書いていました。
メモ帳からコピペする時失敗したのかな・・・。
今度は動作確認済みです。

Sub monthResult()

Dim ans As String
Dim k As Integer
k = Cells(4, 1).End(xlDown).Row 'kに最終行を代入。今は４にしています(セルＡ４のこと)が、空欄ではないセルをえらんでください。
ans = "犬" 'ansは検索の条件です。
Cells(1, 3).Value = Application.WorksheetFunction.SumIf(Range(Cells(1, 1), Cells(k, 1)), ans, Range(Cells(1, 12), Cells(k, 2)))
'検索の範囲は自由に書き換えてください
End Sub

一行に入りきっていないやつ（途中で改行されているもの）はつないでやってください。

お礼

>sumifの最後の項目12ではなくて2です。

ご教示いただきましてありがとうございました！！
もちろん「12」でも動きました☆
（12はどこから来た数字だろうとまだ初心者なので悩んでいた
ところでしたのでとても助かりました）

最終行の値を得て代入するのですね。
新たな発見でしたので本当に勉強になりました。

この度はありがとうございました！

回答No.3

TAKA_R

恥ずかしながら１，２です。
確認したつもりだったのに・・・。間違いがありました。
sumifの最後の項目12ではなくて2です。
12でも動きますけど、なんで12？？と思われたことでしょう・・・。

回答No.1

TAKA_R

do...loopではないですね。

Sub monthResult()
Dim ans As String　'ユーザフォームで「犬」という値を取得
Dim k As Integer　
k=Cells(4, 1).end(xldown).row　
　　　　　'kに最終行を代入

　　　　　Worksheets("データ").Cells(1, 3).Value =
　　　　　　range("c1")=Application.WorksheetFunction.SumIf(range(cells(1,1),cells(k,1)), ans, range(cells(1,12),cells(k,2))

End Sub

確認してませんが、これで出ませんか？

お礼

早速のご回答まことにありがとうございます。
そしてお礼が遅くなってしまい申し訳ございません。

頂きましたもので試したのですが、「コンパイルエラー　構文エラー」と
表示されてしまいます。
VBA初心者のため、どこが間違っているのか分からず・・。

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