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

Пользователь

Сообщений: 231 Регистрация: 11.01.2014

05.12.2018 08:54:16

Доброго времени суток! Помогите с вопросом, как изменить имеющийся код, который суммирует изменения ячейки "L5" в ячейке "L6" при изменении ячейки "L5", как переделать этот код так, чтобы пересчет осуществлялся при обновлении экселя (нажатии клавиша F9)

Код

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

Изменено: thunder - 05.12.2018 08:54:56

buchlotnik

Пользователь

Сообщений: 3863 Регистрация: 31.10.2014

Excel 365 Бета-канал

05.12.2018 09:39:48

Так нужно?

Код
Private Sub Worksheet_Calculate() Application.EnableEvents = False [L6] = [L6] + [L5] Application.EnableEvents = True End Sub

Соблюдение правил форума не освобождает от модераторского произвола

thunder Пользователь Сообщений: 231 Регистрация: 11.01.2014	#3 05.12.2018 10:11:09 buchlotnik, Спасибо большое! А как можно изменить Ваш код так, чтобы обновление производилось макроом 100 или 1000 раз?

Karataev Пользователь Сообщений: 2309 Регистрация: 23.10.2014	#4 05.12.2018 19:56:04 thunder, не совсем понятен Ваш вопрос. Можете спросить по-другому как-нибудь?

Ігор Гончаренко Пользователь Сообщений: 14576 Регистрация: 01.01.1970	#5 05.12.2018 20:29:40 [L6] = [L6] + [L5]100 или [L6] = [L6] + [L5]1000 Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!