Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Изменение кода "Ячейка с накоплением (нарастающим итогом)"
 
Доброго времени суток! Помогите с вопросом, как изменить имеющийся код, который  суммирует изменения ячейки "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 - 5 Дек 2018 08:54:56
 
Так нужно?
Код
Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    [L6] = [L6] + [L5]
    Application.EnableEvents = True
End Sub
Каждому For свой Next
 
buchlotnik, Спасибо большое! А как можно изменить Ваш код так, чтобы обновление производилось макроом 100 или 1000 раз?
 
thunder, не совсем понятен Ваш вопрос. Можете спросить по-другому как-нибудь?
 
[L6] = [L6] + [L5]*100
или
[L6] = [L6] + [L5]*1000
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Читают тему (гостей: 2)
Наверх