Здравствуйте уважаемые форумчане! Помогите разобраться. Необходимо составить формулу, при которой если изменить значение ячейки, например A1, и нажать клавишу Enter, то в ячейке A2, увеличивается числовое значение на еденицу. Если еще раз изменить значение A1, то значение A2 опять увеличется на 1, и т.д.
Здравствуйте уважаемые форумчане! Помогите разобраться. Необходимо составить формулу, при которой если изменить значение ячейки, например A1, и нажать клавишу Enter, то в ячейке A2, увеличивается числовое значение на еденицу. Если еще раз изменить значение A1, то значение A2 опять увеличется на 1, и т.д.AnToHa
Здравствуйте AnToHa Думаю формулой красиво не получится - это нужно итерации включать, что на практике вряд ли применимо. А макросом легко - вот код для модуля листа (ПКМ на ярлыке -> исходный текст): [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then [a2] = [a2] + 1 End Sub
[/vba] Здесь правда учитывается любое изменение - и 1 на 1 тоже.
Здравствуйте AnToHa Думаю формулой красиво не получится - это нужно итерации включать, что на практике вряд ли применимо. А макросом легко - вот код для модуля листа (ПКМ на ярлыке -> исходный текст): [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then [a2] = [a2] + 1 End Sub
[/vba] Здесь правда учитывается любое изменение - и 1 на 1 тоже.Hugo
Спасибо за ответы. Но как такое сделать для 3 тысяч сторок? В ячейки колонки L вводится сумма поездки, а в соответствующих ячейках колонки H автоматически выводится количество поездок, т.е. количество изменения ячеек столбца L. Файл 250 Кб, поэтому залил на Яндекс диск http://yadi.sk/d/UPOt25Vt7hLef
Спасибо за ответы. Но как такое сделать для 3 тысяч сторок? В ячейки колонки L вводится сумма поездки, а в соответствующих ячейках колонки H автоматически выводится количество поездок, т.е. количество изменения ячеек столбца L. Файл 250 Кб, поэтому залил на Яндекс диск http://yadi.sk/d/UPOt25Vt7hLefAnToHa
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 Then If Target.Column = 12 Then _ Target.Offset(, -4) = Target.Offset(, -4) + 1 End If End Sub
[/vba] Считает повторы и удаление. Удаление группой, как и "закопипащивание кучи" игнорирует.
P.S. Кстати, "+31" думаю неверно, нужно месяц прибавлять. Но Вам виднее - может и впрямь срок действия 31 день. а не месяц.
Например так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 Then If Target.Column = 12 Then _ Target.Offset(, -4) = Target.Offset(, -4) + 1 End If End Sub
[/vba] Считает повторы и удаление. Удаление группой, как и "закопипащивание кучи" игнорирует.
P.S. Кстати, "+31" думаю неверно, нужно месяц прибавлять. Но Вам виднее - может и впрямь срок действия 31 день. а не месяц.Hugo
Подскажите пожалуйста, как изменить код макроса, чтобы можно было подсчитать количество изменений в колонке. Т.е. в A1:A10 вносятся данные , а в ячейке B2 выводится количество изменений. Буду благодарен! [moder]Создавайте свою тему. Правила форума почитайте. И будет Вам ответ. Эта тема закрыта
Добрый день!
Подскажите пожалуйста, как изменить код макроса, чтобы можно было подсчитать количество изменений в колонке. Т.е. в A1:A10 вносятся данные , а в ячейке B2 выводится количество изменений. Буду благодарен! [moder]Создавайте свою тему. Правила форума почитайте. И будет Вам ответ. Эта тема закрытаЕвгений