VBAで加算しながセルを表示させたい。

Question

ExcelVBA超初心者です。office2013のバージョンです。
E:\自分用vbA\fornext.xlsm.sheet1、Module1にコードに記載
a1:a10を1,2,3,4,5,6,7,8,9,10
b1:b10を、1,3(1+2),6(3+3),10(4+6),15(5+10),21(15+6),28(21+7),36(28+8),45(36+9),55(45+10)とセルの前の値を加算させながら、
表示したいんですけど、調べて色々試してみたんですが、上手くいきませんー。
どなたか分かる方教えて下さい。できればsum関数を使わない以外でどうか
宜しくお願い致しますー。1,3,6,10,15,21,28,36,45,55は分からなかったので、
b1=1(=A1),b2=3(B1+A2),b3=6(=B2+A3),b4=10(=B3+A4),b5=15(=B4+A5),b6=21(=B5+A6),b7=28(=B6+A7),b8=36(=B7+A8),b9=45(=B8+A9),b10=55(=B8+A9)で、
何もコードで書いていません。長文で大変、失礼致します。
Sub fornext1()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For j = 1 To 10
Cells(j, 1).Value = j

For k = 1 To 10
i = i + Cells(j, 1).Value
For k = 1 To 10
Cells(k, 2).Value = i '10のときの55がb1:b10に表示、ここをどうにかしたい

Next k
Next j

MsgBox i 'A列のみで合計を出しましたが、不必要です
End Sub

Answer 1

あなたのソースを極力いかすようにしました。
以下のようにしてください。

Sub fornext1()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim sum As Integer
    sum = 0
    For j = 1 To 10
        Cells(j, 1).Value = j
        Cells(j, 2).Value = j + sum
        sum = Cells(j, 2).Value
    Next
End Sub

実行結果

尚、画像はスマホでとるのではなく、windowsのアクセサリにsnipping toolがあるのでそれを利用するようにしてください。そうするときれいに取れます。この画像もsnipping toolを使用しています。

Comments

[kagosimah]

返事おそくなって、すみません。Cells(j, 2).Value = j + sum　sum = Cells(j, 2).Valueってすればいいんですねー。全然思いつきませんでした。まさしく、自分の思い通りですー。大変助かりましたー。誠にありがとうごいますー。snipping toolがあるのは知っていて、いざ投稿しようとすると、スマホにしてしまい、おっしゃる通りでねー。見ずらいですよねー。今度からこれにして見やすいよう努力しますー。