エクセルのマクロを使って計算してみまひょ

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

材料の単位あたりの重さはエクセルの別の表に入力してあるんや。

重さは、高さ×幅×奥行きで計算させる予定や。



こういう計算式って簡単にエクセルのマクロで作成できるものやのでっしゃろか？

単純にエクセルの表にして計算結果を出そうとすると、材料みなの重さが表示されてしまうし余計なものが表示されてしまって、表示結果を見とる方としては分からなくなるんやないかと思っていますわ。



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



ちうような問題があるとしまんねん。この問題を解決するためにマクロを以下のように作成してみたんや。

材料は数種類ちうことやったが、ここでは３つ選択できるようにしてみたんや。



エクセルの表上には、高さをＡ２のセルにいれ、幅をＢ２、奥行きをＣ２セルに入力するようにしまんねん。

また、オプションボタンのリンク先をＤ１セル、単位たたりの重量をＥ１〜３に設定・入力するようにしてみまんねん。



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



以上、参考にしてみておくんなはれね。