エクセルのマクロで重量計算するコード記述 | エクセルマクロマスターへの道！【基本をしっかり！初心者向け勉強方法～作成方法・使い方】

エクセルで、箱の重量を計算して結果を表示させる作業を、マクロをつかってする方法を考えてみましょう。
高さ×幅×奥行き、という計算式を使うものとします。
材料の単位当たり重量は、エクセルで別の表に入力済みです。

数種類の材料のなかから、オプションボタンで材料を選択して重さを計算して結果を表示する、という感じにしたい、としましょう。

これを、ただ単にエクセルで表にして計算したら、すべての材料の重さが表示されたりしてややこしく、結果も見にくくてわかりにくくなりそうです…
これを、見ていてすっきりわかるように計算させるマクロは、どのようなコードを組めばよいでしょうか。

今回は、材料を３つ選択するものとして、マクロのコード記述例をあげてみますので、参考にしてみて下さい。

(A2セルに高さを、B２セルに幅を、C２セルに奥行きを、D１セルにオプションボタンへのリンク先、E１～３セルに材料の単位当たり重量を入力するものとします)

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 & “です。”,,”計算結果です。”
Case3
MsgBox “箱の重さは”　& H*W*L*Range(”E2″).Value & “です。”,,”計算結果です。”
End Select

End Sub

これで、オプションボタンで選択した材料の重量ごとに、重さを計算した結果がメッセージボックスで表示されるはずです。

まだトラックバックがありません。