エクセルのマクロを使って計算:エクセルのマクロが初心者でも使いこなせるようになるサイト

箱の重さの計算結果をエクセル上に表示させるマクロを作成する場合、イメージでは材料を数種類オプションボタンをつかって画面上で選択させて重さを計算させて表示させるということです。 材料の単位あたりの重さは、エクセルの別の表に入力してあります。 重さは高さ×幅×奥行きで計算させようと思います。

こういう計算式は、簡単にエクセルのマクロで作成可能なのでしょうか？
単純にエクセルの表にして、計算結果を出そうとすると材料全ての重さが表示されてしまうし、余計なものが表示されてしまって表示結果を見ている方としては分からなくなるんじゃないかと思っています。

このような問題を回避するためにはどんなマクロを組んだらよいのでしょうか？

というような問題があるとします。この問題を解決するために、マクロを以下のように作成してみました。
材料は数種類ということでしたがここでは３つ選択できるようにしてみました。

エクセルの表上には高さをＡ２のセルにいれ幅をＢ２、奥行きをＣ２セルに入力するようにします。
またオプションボタンのリンク先をＤ１セル、単位たたりの重量をＥ１〜３に設定・入力するようにします。

Sub 重量計算()
Dim H As Variant
W As Variant
L As Variant

H = Range("A2").Value　　　'高さ
W = Range("B2").Value　　　'幅
L = Range("C2").Value　　　'奥行き

Select Case Range("D1").Value
Case 1
MsgBox "箱の重さは" & H * W * L * Range("E1").Value & "です。", , "計算結果です。"
Case 2
MsgBox "箱の重さは" & H * W * L * Range("E2").Value & "です。", , "計算結果です。"
Case 3
MsgBox "箱の重さは" & H * W * L * Range("E3").Value & "です。", , "計算結果です。"
End Select
End Sub

参考にしてみてくださいね。

このエントリーのトラックバックURL:
http://seq501.com/cgi/mt/mt-tb.cgi/68