Доброе времени суток.
При изменение ячейки В4 срабатывает счетчик +1 в ячейке В7 и ячейка В9 обнуляется.
Счетчик реализован на условии If
Если ячеек не много, то все работает. А если нужно несколько десятков, получается очень много строк кода. Как реализовать конструкцию в цикле или как то общеописательно, что бы был один блок кода и он применялся для всех ячеек диапазона? Адреса строк всегда одни и те же, меняется только столбцы.
Т.е. В4, В7, В9, следующий С4, С7, С9 и так далее
При изменение ячейки В4 срабатывает счетчик +1 в ячейке В7 и ячейка В9 обнуляется.
Счетчик реализован на условии If
Код |
---|
If Target.Address = "$B$4" Then Range("B7") = Range("B7") + 1 Range("B9") = 0 End If |
Если ячеек не много, то все работает. А если нужно несколько десятков, получается очень много строк кода. Как реализовать конструкцию в цикле или как то общеописательно, что бы был один блок кода и он применялся для всех ячеек диапазона? Адреса строк всегда одни и те же, меняется только столбцы.
Т.е. В4, В7, В9, следующий С4, С7, С9 и так далее