Доброго времени суток. Хочу узнать, как можно прибавить число из ячейки В1 в А1 с учетом того, что в будущем число в ячейке В1 будет меняться, но при этом нужно, чтобы формула в ячейке А1 запоминала прошлые числа и в случае появление новых также прибавляла их в ячейку А1. Нужно для того, чтобы использовать с формулой "ЕСЛИ" в ячейке В1, чтобы когда значение 1, он прибавлял его в ячейку А1 окончательно и если бы значение менялось на 0, то он бы не возвращал значение назад, а продолжал бы прибавлять при каждом новом значение 1.
Файла так такового нет, так как хочу использовать решение в других книгах, но могу скинуть тестовый файл. Если решение есть, то можете объяснить как это сделать и как пользоваться. В основном решение нужно через макрос, если так можно. Просто нужно это уместить максимально компактно.
Пожалуйста помогите.
Доброго времени суток. Хочу узнать, как можно прибавить число из ячейки В1 в А1 с учетом того, что в будущем число в ячейке В1 будет меняться, но при этом нужно, чтобы формула в ячейке А1 запоминала прошлые числа и в случае появление новых также прибавляла их в ячейку А1. Нужно для того, чтобы использовать с формулой "ЕСЛИ" в ячейке В1, чтобы когда значение 1, он прибавлял его в ячейку А1 окончательно и если бы значение менялось на 0, то он бы не возвращал значение назад, а продолжал бы прибавлять при каждом новом значение 1.
Файла так такового нет, так как хочу использовать решение в других книгах, но могу скинуть тестовый файл. Если решение есть, то можете объяснить как это сделать и как пользоваться. В основном решение нужно через макрос, если так можно. Просто нужно это уместить максимально компактно.
Private Sub Worksheet_Change(ByVal Target As Range) a1_ = Cells(1, 2) If a1_ Then If a_ <> a1_ Then Application.EnableEvents = 0 Cells(1) = Cells(1) + a1_ Application.EnableEvents = 1 End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) a_ = Cells(1, 2) End Sub
[/vba]
Как-то так можно В модуль листа
[vba]
Код
Dim a_
Private Sub Worksheet_Change(ByVal Target As Range) a1_ = Cells(1, 2) If a1_ Then If a_ <> a1_ Then Application.EnableEvents = 0 Cells(1) = Cells(1) + a1_ Application.EnableEvents = 1 End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) a_ = Cells(1, 2) End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
