マクロで一括挿入したい

質問

急ですみませんが、ダイレクトに質問させていただきます。
エクセルで金額を出す為に表計算をしています。
品名ごとに単価が異なります。
量も多いので単価をマクロで一括挿入したいです。
現在はVLOOKUPを使って、単価を別シートから持ってきてます。
やりたいことは次の通りです。
画像を参考にお願いします。

「品名」が「りんご」だったら、「単価」は「200」。
「品名」が「みかん」だったら、「単価」は「100」。

上記の条件に加えて、
「品名」が「りんご」だけど、「単位」に「箱」が入っていたら「単価」は「1000」。

さらに、
「品名」が「みかん」だけど、「地名」に「青森」が入っていたら「単価」は「150」。

以上を加えたマクロをどのように書いたらいいか分からず、どうか教えていただきたいです。
どうぞよろしくお願いします。

回答No.3

web2525

マクロ使っても商品別に単価表作成する必要もあるだろうしVLOOKUP関数で参照方式を工夫して関数式で行う方が容易かと思います。

例で言うと
りんごの価格表一覧とミカンの価格表一覧を作成
それぞれの表範囲に"りんご"、"みかん"と名前を付けてVLOOKUPで拾い出し

=VLOOKUP(地名,INDIRECT(品名),2+(単位="Kg"),0)

こんな感じで。

一覧表の作り次第ではもっと細分化も可能かと思います。

回答No.2

n-jun

＃１です。

＞やはり、こういったものはマクロではなくVLOOKUPで参照した方が面倒でないのでしょうか？
どちらが良いかというと難しいですけど。

マクロだと、コード内に条件を書くとか、リストを参照しながら判定するとか
方法は色々ありそうですけど。

コード内に書くと、変更があった場合にコードの修正が必要です。
リストを参照するなら変更はリスト上で行なえば済みますが、今と同じように
参照するリストが必要になります。

そう言った点で判断するかなと思います。

回答No.1

n-jun

こう言った場合って、
・「りんご」と「みかん」
・「りんご」で「箱」
・「みかん」で「青森」
以外に選択・条件はないのか、あくまで例なのかでも変わってくると思いますよ。

お礼

ありがとうございます。
あくまで上記は例となります。
品名はこの10倍以上はあり、単価も品名ごとに違いますし単位も意外と多いので条件としてはかなりの量になると思います。
やはり、こういったものはマクロではなくVLOOKUPで参照した方が面倒でないのでしょうか？