Ａ２からＡ１６までの足し算マクロ

エクセルＶＢＡ初心者です。
初心者のため、うまく質問できるか分かりませんが、よろしくお願いします。

タイトルのように
Ａ２からＡ１６に入っている値を全て足して、その値を別シートのＢ２セルに書き出す、というマクロを教えてほしいんです。
別シートに書き出すマクロは分かるのですが、足し算が分からないんです。

Ａ２＋Ａ３＋・・・
とやってもいいんでしょうけど、凄く大量で１つ１つ書けないんです。
まとめて、ここからここまで全部足す！みたいなマクロはないでしょうか＞＜；

大雑把な質問ですみません・・・
アドバイスよろしくお願いします。

No.1 ベストアンサー 回答者： himajin100000 回答日時： 2008/07/20 01:45

Option Explicit

'Excelに標準で存在するSUM関数じゃなくてVBAによるマクロだよね？

Sub Summation()
Dim i As Integer
Dim sum As Integer
For i = 2 To 16
sum = sum + CInt(Cells(i, 1).Value)
Next i
Cells(2, 2).Value = CStr(sum)

End Sub

この回答へのお礼

素早い回答助かります＞＜；

そうです。ＶＢＡのマクロです！
For Next 構文でやろうと思ってたので本当に助かります。

ありがとうございました！

お礼日時：2008/07/20 02:11

No.2 回答者： n-jun 回答日時： 2008/07/20 07:37

例えばこの様な事ですか？

Worksheets("Sheet2").Range("B2").Value = _
WorksheetFunction.Sum(Worksheets("Sheet1").Range("A2:A16"))

ワークシート関数を用いたＶＢＡのサンプル。

No.3 回答者： n-jun 回答日時： 2008/07/20 07:59

ANo.2です。

追加で参考ＵＲＬ。
VBAでワークシート関数を利用するには－Application.WorksheetFunction
http://www.relief.jp/itnote/archives/001834.php

VBAで使用できるワークシート関数一覧
http://www.relief.jp/itnote/archives/001974.php

ワークシート関数を用いた方が楽な場合もありますので。

この回答へのお礼

お礼コメント遅くなりました＞＜；

ありがとうございました！
無事に完成しました＾＾；

とても参考になりました！
ありがとうございます。

お礼日時：2008/07/25 21:17

No.4 回答者： imogasi 回答日時： 2008/07/20 08:54

マクロの記録を参考にすると、式を埋め込む方式なので

Sub Macro1()
d = Range("A65536").End(xlUp).Row
Range("A" & d + 1).FormulaLocal = "=SUM(A1:A" & d & ")"
End Sub
ーーー
方法としては
（１）各セル繰り返し加算法
（２）ＷｏｒｋｓｈｅｅｔＦｕｎｃｔｉｏｎ法
（３）式を埋め込む法
（４）ピボットテーブル法

この回答へのお礼

お礼コメント遅くなって申し訳ありません。
分かりやすい説明ありがとうございます。
とても参考になりました。

お礼日時：2008/07/25 21:18

No.5 回答者： himajin100000 回答日時： 2008/07/21 18:43

#1の修正

CInt → CDbl