エクセルＶＢＡ条件一致したとき数量加算

質問

はじまして。最近ＶＢＡを勉強するようになり、壁にぶつかりました。

　　　　　Ａ　　　　　　Ｂ　　　　　Ｃ
　　　商品名　　　　金額　　　数量
1　　　りんご　　 　　100　　　　1
2　　　みかん　　 　110 　　 　 2
3 　　 りんご　　　　120　 　 　 1
4　　　ぶどう　　 　　200　 　 　3
5

このような表にユーザーフォームを使い入力したいのですが
（ユーザーフォームには商品名、金額、数量を入力するテキストボックスがあります。）

例えば次に「りんご　100（金額）　　2（数量）」
と入力したときに、セルＣ1の数値が3になるようにしたいのです。

ようは商品名、金額の両方が一致したときにはそのあてはまる列の数量に加算し、
そうでない場合は下の5列に入力したいのですが、どうすればいいでしょうか。

初めての質問なのでわかりにくかったらすいません。

回答No.1

web2525 · ベストアンサー

一例です

Sub Macro1()
hinnmei = ユーザーフォームで入力された商品名
kingaku = 同上金額
suuryou = 同上数量
Range("A1").Select
Do While Selection.Value <> ""
If Selection.Value = hinnmei And Selection.Offset(0, 1).Value = kingaku Then
Selection.Offset(0, 2).Value = Selection.Offset(0, 2).Value + suuryou
Exit Do
End If
Selection.Offset(1, 0).Select
Loop
If Selection.Value = "" Then
Selection.Value = hinnmei
Selection.Offset(0, 1).Value = kingaku
Selection.Offset(0, 2).Value = suuryou
End If
End Sub

上から順に見ていくだけの簡単な方法です

お礼

ありがとうございました。これからためしてみようと思います。

回答No.2

imogasi

質問の例で
りんごの行が２つあるのに
＞セルＣ1の数値が3になるようにしたいのです
とＣ１だけ言っているんのは、どういう仕組み（考えるの）か。
その思考過程を文章で説明しないと質問にならない。
ーーー
またフォームで「りんご」と入れたときＡ列のりんごの行の数に加えたり、件数を加えるというのは、エクセルの
シートの使い方としては違反です。
エクセルは、入力データはそのごとに一旦各行にデータを残し、そのごや最終入力後に、関数やＶＢＡで思うデータを入れるものだ。
入力経過が残らず、特にビジネスでは、そんなことしたら失格。通行人の人数を、カウンターでプッシュしてカウントするようなつかい方は、エクセルではしない。
りんごのある行を見つけるのさえ、ＶＢＡの学習が少し進まないと、そこに至らないだろう。