Ячейка с накоплением (нарастающим итогом)

Достаточно часто возникает ситуация, когда нам необходимо суммировать (накапливать) несколько последовательно введенных в одну ячейку значений.

Т.е. если, например, ввести в ячейку А1 число 5, то в B1 должно появиться число 15. Если затем ввести в А1 число 7, то в ячейке B1 должно появится 22 и т.д. Вобщем то, что бухгалтеры (и не только они) называют накопительный итог.

Реализовать такую накопительную ячейку-аккумулятор можно при помощи простого макроса. Щелкните правой кнопкой мыши по ярлычку листа, где находятся ячейки А1 и B1 и выберите в контекстном меню Исходный текст (Source Code). В открывшееся окно редактора Visual Basic скопируйте и вставьте код простого макроса:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("A2").Value = Range("A2").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub

Адреса ячеек А1 и A2, естественно, можно заменить на свои.

к библиотеке 3GL к оглавлению к экономической информатике 4GL - визуальным средам

Знаете ли Вы, что низкочастотные электромагнитные волны частотой менее 100 КГц коренным образом отличаются от более высоких частот падением скорости электромагнитных волн пропорционально корню квадратному их частоты от 300 тысяч кмилометров в секунду при 100 кГц до примерно 7 тыс км/с при 50 Гц.

НОВОСТИ ФОРУМА

Рыцари теории эфира