前回の「変数を使って合計を計算」のプログラミングにメッセージボックス(MsgBox)を追加して見ましょう。
メッセージボックス(MsgBox)はマクロ終了等で、ユーザーに知らせる時に使ったりします。
【課題】
・数量 * 単価を計算して、金額列に設定
・金額の合計と平均を計算し、メッセージボックス(MsgBox)に表示
【VBA】
ボタンを追加してVBAが実施出来るようにしました。
Sub messagebox() Dim i As Long Dim lngTotal As Long Dim lngCnt As Long lngTotal = 0 lngCnt = 0 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 4) = Cells(i, 2) * Cells(i, 3) lngTotal = lngTotal + Cells(i, 4) lngCnt = lngCnt + 1 Next MsgBox "金額合計:" & lngTotal & vbLf & _ "金額平均:" & lngTotal / lngCnt, _ vbOKOnly, " 計算結果" End Sub
簡単な説明
・「Dim i As Long」「Dim lngTotal As Long」「Dim lngCnt As Long」が変数です
・「Cells(Rows.Count, 1).End(xlUp).Row」は以前説明をしたのでこちらを御覧ください
・「Cells(i, 4) = Cells(i, 2) * Cells(i, 3)」は、金額の計算
・「lngTotal = lngTotal + Cells(i, 4)」は、各行の金額を足す
・「lngCnt = lngCnt + 1」は、金額平均を求めるためのカウント
あなたのお役に立てるなら、コピーして使用してください。
今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。
VBA開発もしておりますので開発のご要望があればご連絡をください。
VBA開発依頼受付はこちらから