エクセルマクロ初心者実践ガイド

箱の重さの計算結果をExcel上に表示させるマクロを作成したいのだが、イメージ的には材料を数種類オプションボタンにて画面上で選択をさせて重さを計算させて表示させるということだ。
材料の単位あたりの重さはExcelの別の表に入力してある。
重さは、高さ×幅×奥行きで計算させる予定だ。

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

このような事象を回避するためにはどのようなマクロを組んだらよいのだろうか？

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

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

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

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