おやじのブログ

前回の「変数を使って合計を計算」のプログラミングにメッセージボックス（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開発依頼受付はこちらから

• シェア
• 
• 
• 
•