重量と距離を入力すると料金が計算されるVBAプログラムを作成したい。

Question

距離
10 20 50 100 100以上
重量
0.5 100 130 210 320 420
2.0 150 200 310 360 500
5.0 180 230 380 420 580
15.0 250 280 400 480 600
15.0以上300 350 450 520 700

料金

重量 距離

料金

上記の表で重量と距離を入力すると料金が計算されるVBAプログラムを作りたいのですが、CASE構文をどのようにプログラミングしていけば良いのか分かりません。大変お手数ですが、教えて頂けると幸いです。

Comments

[tukuroku]

まずは、ご自身でやれるところまでやってみて下さい。努力した証（コード）が全くないと、やりたい事の丸投げになってしまいます。個人的には、マスターとなるシートに上記の表を持っておいて、if文で繰り返し判定すれば良さそうに感じてます。

[pazzu]

ご回答ありがとうございます！　やれるところまでやってみます。

Answer 1

こんにちは。

excel クロス表 検索 VBAなどで検索すれば、足掛かりになるものが見つかるはずです。

以下はVBAを使わずに式だけで対応する方法です。
Excel：行と列の交差する位置の値を取り出す（INDEX関数+MATCH関数）
経理の奥の手！Excel表からデータをクロス抽出する方法

Comments

[pazzu]

こんにちは。ご回答頂きましてありがとうございます。　excel クロス表 検索 VBAで検索して足がかりを見つけてみます。

Answer 2

case構文の使い方は、vba caseでググれば、大抵でてくると思います。
おすすめはmsdnも含めるとマイクロソフトのページが参照できますので、公式ページを見るほうがよいです。

で、公式ページを見ると、構文と指定できる条件(expressionlist-n)が書いてあります。

今回の場合、距離の判定を10未満、20未満、50未満、100未満、100以上が判定できればよいのですが、
完全に一致しないので、範囲指定での判定が必要そうです。

10未満は、1 To 9 か Is < 10のようにすれば判定できそうです。
小数部がでてくる場合、n to xは判定条件からこぼれる可能性あるので、Isがよいです。

同様に、20未満以降や、重量についても判定してください。

あとは、配列なのか、セルを直接参照するかは、わかりませんが上記の判定で添え字が求められれば、
cells(xx, xx)とか料金表(xx, xx)で取得できるはずです。