ＶＢＡの計算について質問です

質問

ＶＢＡの計算についてですが

☆表1☆　　　　※金額表
　 ～1000　｜　　～2000
　　～200　｜　4000　　｜　　5000
　201～400　｜　5000　　｜　　6000
　401～600　｜　6000　　｜　　7000
　601～800　｜　7000　　｜　　8000

☆表2☆　
　　Ｗ　　　　Ｈ　　　　数量
(1)　300　　1800　　　　1
(2)　550　　900　　　　　4
(3)　600　　1000　　　　2

この２つの表で金額をだしたいのですが、マクロで出来ますか？

(1)　5000円
(2)　24000円
(3)　12000円　　

↑この金額を自動で計算して出したいのですが、
　　　どのような文を書いて良いのか分かりません。

よろしくお願いします。

回答No.2

kmetu · ベストアンサー

表がずれていたので分からなかったみたいです
VBAでなく関数でいけますので

表１を

　　　A　　　　　B　　　　　C
１　　　　　　　　0　　　　1001
２　　0　　　4000　　　　5000
３　201　　5000　　　　6000
４　401　　6000　　　　7000
５　601　　7000　　　　8000

にしてもらって

表2が

　　　E　　　　　F　　　　　G
１　　Ｗ　　　Ｈ　　　　数量
２　　300　　1800　　　1
３　　550　　900　　　　4
４　　600　　1000　　　2

とあった場合

H２に300*1800の解を出す場合

=(INDEX($B$2:$C$5,MATCH(E2,$A$2:$A$5,1),MATCH(F2,$B$1:$C$1,1)))*G2

という式を入れてください。
以下、下向きにフィルしてください。

お礼

関数で可能なのですね。勉強になりました。

とても分かりやすい解説ありがとうございました！

回答No.1

kmetu

どんな計算？
せめて算数の式くらい書けないとねぇ…。

補足

そうですね、かなり説明不足でした。
すみません・・・

☆表１☆　一列ずれていたので訂正します。

　 　　　　　　～1000　｜　　～2000
　　～200　｜　4000　　｜　　5000
　201～400　｜　5000　　｜　　6000
　401～600　｜　6000　　｜　　7000
　601～800　｜　7000　　｜　　8000

☆表１☆は単価表です。

（1）の金額を出す場合は、300*1800　1本なので
　　　201～400の行　、～2000の列の単価になるので
　　　単価は6000円です。
　　　本数も1本の為、6000円という金額を出したいです。