練習問題7（メッセージボックスの練習）回答

最終更新日：2015-10-22

練習問題7（メッセージボックスの練習）回答

練習問題7の回答ページです、

問題

・金額を計算して、D列に入れて下さい。
・金額の合計と平均を計算し、MsgBoxで画面に表示して下さい。

　Ａ　　　　　Ｂ　　　Ｃ　　Ｄ

日付	数量	単価	金額
1月1日	26	304
1月2日	68	305
1月3日	84	972
1月4日	53	684
1月5日	34	703
1月6日	56	628
1月7日	12	619
1月8日	92	356
1月9日	31	949
1月10日	19	229
1月11日	54	507
1月12日	35	666
1月13日	83	728
1月14日	68	272
1月15日	78	236
1月16日	87	334
1月17日	34	490
1月18日	32	650
1月19日	68	348
1月20日	98	744

※上記表の全体選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

では、お考えください。

すぐに回答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

・
・・
・・・
・・・・
・・・・・

当サイトのコンテンツ

ExcelマクロVBA入門

ここで、じっくり勉強して下さい。

・
・・
・・・
・・・・
・・・・・

では、回答です。

Sub 練習問題7()
　　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

メッセージボックスはマクロ終了等で、ユーザーに知らせる時には必須です。
改行は、VbCrlfを使う人もいますが、VbLfが良いでしょう。
また、
実際には、引数がいろいろあります。

以下も参考にして下さい。

ExcelマクロVBA入門.第23回.メッセージボックス（MsgBox）