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

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

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

есть табличка в столбец В вводятся числа, а в столбце 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
а для всей колонки - не понимаю

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

[Teslenko_EA]

Здравствуйте Ольга.
Вашу задачу можно решить подобным кодом:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Target
        If .Column = 2 Then
            If IsNumeric(.Value) Then
                Application.EnableEvents = False
                .Offset(0, 2).Value = .Offset(0, 2).Value + .Value
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub

но применение этой конструкции не может быть использовано для учета чего либо, т.к. не позволяет учесть кол-во изменений в ячейке.
Евгений.
P.S. для удобочитаемости выкладываемый код заключайте в тэги [соde]...[/соde]

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

Teslenko_EA спасибо Вам за помощь. Всё получилось!

[valerij]

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

Вашу задачу можно решить подобным кодом

Женя, то же самое делает:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
    Static nVar1 As Integer
       nVar1 = nVar1 + Cells(3, 2)
    [d3] = nVar1
Application.EnableEvents = True
End Sub

З. Ы.
ну не уже ли, так сложно, прокомментировать Static, ну не создавть же новую тему??

[EducatedFool]

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

ну не уже ли, так сложно, прокомментировать Static, ну не создавть же новую тему??

Валера, а что надо прокомментировать?
Что такое Static, и для чего используется?
Так для этого совсем необязательно создавать тему на форуме.
Достаточно потратить несколько секунд на поиск в Google или Yandex:

Visual Basic дает возможность объявлять переменные как статические. При выходе из процедуры содержимое статической переменной сохраняется. При новом вызове этой процедуры переменной присваивается значение, которое она имела при последнем выходе из этой процедуры. Содержимое переменной сохраняется в течение всего времени, пока существует в памяти форма или модуль.

Объявление переменной как статической производится оператором:

Static <Имя_переменной> [As <Тип_переменной>]

Чтобы объявить статическими все локальные переменные процедуры, следует записать ключевое слово Static в заголовке процедуры.

Полное описание общей процедуры выглядит следующим образом:

<ОбластьВидимости>] [Static] Sub <имяПроцедуры>
(<Списокпараметров>)
<Операторы>
End Sub

Область видимости — это одно из двух ключевых слов Public или Private. Они устанавливают, к какому классу принадлежит процедура: к классу локальных или классу глобальных процедур. Процедура локальная (Private), если она доступна (видна) только внутри данного модуля и не может быть вызвана из других модулей. Процедура глобальная (Public), если она доступна (видна) из других модулей.

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

[valerij]

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

а что надо прокомментировать?

Почему ее, ни где, практически не применяют, ведь она удобна.
По крайней мере у нас на форуме, я ее никогда не видел и не знал о ней, пока не гуглил где то...

[Teslenko_EA]

Здравствуйте Валерий.
для решения задачи "..при вводе каждого нового в В в D отображадлся накопительный итог..", "..то же самое.." - но с применением Static не самое лучшее решение, скорее даже неприемлемое учитывая количество строк листа Excel 2007.
Евгений.

[valerij]

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

но с применением Static не самое лучшее решение, скорее даже неприемлемое учитывая количество строк листа Excel 2007..

Здравствуйте, Женя!
Поясните, причем здесь "количество строк листа Excel 2007"?
Переменной, какая разница?

[Teslenko_EA]

Поясняю:
Ваша конструкция nVar1 = nVar1 + Cells(3, 2) - добавляет в переменную значение ячейки третьей строки колонки B. Переменных для "..каждого нового в В.." т.е. для всех новых строк будет много.....
Евгений.

[valerij]

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

Поясняю:...Ваша конструкция .

Женя, та для этого, конкретного примера, она конечно не нужна, я говорю о том, что удобно сохранять промеж результаты в переменной, такого типа, нежели в ячейках, а это не есть хорошо:

If [a21] = 1 Then [s3] =  Application.Sum([F3:F33])
' Где [s3] как промежуточное, временное значение

Так же правильней?

Static nVar1 As Integer
If [a21] = 1 Then nVar1  =  Application.Sum([F3:F33])