箱の重さの計算結果をエクセル上に表示させるマクロを作成したいのですが、イメージ的には材料を数種類オプションボタンにて画面上で選択をさせて重さを計算させて表示させるということです。

材料の単位あたりの重さはエクセルの別の表に入力してあります。重さは、高さ×幅×奥行きで計算させる予定です。

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

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

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 & "です。

", , "計算結果です。"
End Select
End Sub
以上、参考にしてみてくださいね。

【関連情報】
fx システム トレード エクセル 無料 fx システム トレード 本 商品 システム トレード エクセル マクロ システム トレード エクセル マクロ fx システム トレード 株 完全 自動 売買 システム トレード vba 実現 方法 システム トレード オーバーナイト ...(続きを読む)
[PRリンク] 特大　FH-E576BY　FH-　日帰り温泉　セーラー服と機関銃　FW-324S　DSQUARED