Ячейка с накоплением

[Ольга Ларина]

Здравствуйте, очень нужна помощь

есть табличка в столбец В вводятся числа, а в столбце D они суммруются, но так, чтобы при вводе каждого нового в В в D отображался накопительный итог.
Для двух ячеек я поняла как сделать, вот:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "B2" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("D2").Value = Range("D2").Value + .Value

Application.EnableEvents = True
End If
End If
End With
End Sub
а для всей колонки - не понимаю

Пожалуйста , подсткажите.. вот тут файлик с примером

[Ольга Ларина]

Неужели никто не знает

[valerij]

Сообщение от Ольга Ларина

вот тут файлик с примером

Ну и где этот фалик?
Ппробуйте, так
Static — такие переменные можно использовать только внутри процедуры. Эти переменные видны только внутри процедуры, в которой они объявлены, зато они сохраняют свое значение между разными вызовами этой процедуры. Обычно используются для накопления каких-либо значений. Например:

Sub zxc()
Static nVar1 As Integer
nVar1 = nVar1 + 1
MsgBox nVar1
End Sub

А че две темы??

[Ольга Ларина]

Сообщение от valerij

А че две темы??

сорри, психую, поэтому косячу

а вот файлик

[Ольга Ларина]

Сообщение от valerij

Sub zxc()
Static nVar1 As Integer
nVar1 = nVar1 + 1
MsgBox nVar1
End Sub

это сейчас пробую, спс


не, не то маленько((((((((((

[Ольга Ларина]

По-прежнему надо... не могу сообразить, как проделать всё это с диапазоном(((((((((

[Ольга Ларина]

эххх пойду, убью себя апстену

[Maxx]

Пожалуйста:

[doober]

Я думаю стенка не кирпичная

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 2 And Target.Cells.Count = 1 Then
      If IsNumeric(Target.Value) Then
       Target.Offset(0, 2) = Target.Value + Target.Offset(0, 2).Value
            
       End If
      
End If
End Sub

PS.

Maxx

Это не плагиат,но мысли у нас совпали,да и торможение паутины

[Maxx]

doober? всё ОК!

А вот IsNumeric а чё-то не придал значения!