|
たけしさん,こんにちわ。
>A1〜A100(100以上もあります)までバラバラの数字が入っています。
>Bの列 B5のセルに手動で数字を入れるとA1〜A5を計算させて
>C5にA1〜A5までの合計を入れる
>同じくB13に数字を入れるとA6〜A13までを合計してC13に合計を入れる。
この条件での"A6"は,B5→A1〜A5までは集計済みだから...
すなわち,入力された行〜その上方の入力行までの範囲で良いですね。
ということで,
Private Sub Worksheet_Change(ByVal Target As Range)
Wrow = Range(Target.Address).Row
Wcol = Range(Target.Address).Column
If (Wcol = 2) Then
ww = Cells(Wrow, 1)
For i = Wrow - 1 To 1 Step -1
If (Cells(i, Wcol) <> "") Then
Exit For
Else
ww = ww + Cells(i, 1)
End If
Next i
Cells(Wrow, Wcol + 1).Value = ww
End If
End Sub
|
|