練習問題6（変数を使っての合計の練習）回答

最終更新日：2015-10-22

練習問題6（変数を使っての合計の練習）回答

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

問題

・金額を計算して、D列に入れて下さい。
・金額の合計を計算し、
　最終行の1行下のD列に入れて下さい。

　（下の票では、D22セルになります。）

　Ａ　　　　　Ｂ　　　Ｃ　　　Ｄ

日付	数量	単価	金額
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 練習問題6()
　　Dim i As Long
　　Dim lngTotal As Long
　　Dim lastRow As Long
　　lngTotal = 0
　　lastRow = Cells(Rows.Count, 1).End(xlUp).Row
　　For i = 2 To lastRow
　　　　Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
　　　　lngTotal = lngTotal + Cells(i, 4)
　　Next
　　Cells(lastRow + 1, 4) = lngTotal
End Sub

lngTotal = 0
これは無くても正常に動作しますが、初期化は明記した方が良いでしょう。
また、
合計を入れる時に、
Cells(i, 4) = lngTotal
とすることも可能ですが、これは、なるべく避けるべきです。
For～Nextは自動カウントアップなので、終了値を期待しての記述は好ましくありません。

変数には、型がいろいろありますが、通常使う方は限られています。
数値ならLongで大抵は大丈夫でしょう。
小数があるならDoubleで良いでしょう。

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

ExcelマクロVBA入門.第12回.変数とデータ型（Dim）