VBAの問題でご教授お願いしたいです。 セルB1に、セル範囲A1からA1000までの合計を求める数式を代入する。
VBAの問題でご教授お願いしたいです。 セルB1に、セル範囲A1からA1000までの合計を求める数式を代入する。 Range( “B1” ). Value = 問題 ( A1:A1000 )” こんな感じにしたいです
Visual Basic・175閲覧・25
ベストアンサー
VBA内でもSUMが使えます。 Sub Sample() Range("B1").Value = WorksheetFunction.Sum(Range("A1:A1000")) End Sub
ただ、VBAの問題か何かで For Next の復習的なものであれば、 Sub Sample() Dim i As Long, n As Long For i = 1 To 1000 n = n + Cells(i, 1).Value Next i Range("B1").Value = n End Sub のような回答を求められるケースもあります。
質問者からのお礼コメント
ありがとうございました
お礼日時：1/8 1:36
