Счётчик выполнения условия в ячейке.

[paylevan]

Коллеги, здравствуйте. Не удаётся решить вроде бы простую задачу - считать (1, 2, 3, 4, 5...) количество выполнения условия в ячейке.

Итак, в ячейке A1 согласно заданной формуле (то есть не вводом вручную, а в фоновом режиме) появляются различные значения. Нужно, чтобы при каждом появлении в этой ячейке значения "Взлёт", значение в другой ячейке B1, начиная с 1, изменялось на один порядковый номер (то есть становилось 2, 3, 4, 5, 6 и т. д.)

1. Пытался решить задачу всевозможными перекрёстными формулами, но выдаётся ошибка о циклической ссылке.

2. Пытался решить задачу макросом (привожу ниже), но в этом случае при наступлении в ячейке А1 ожидаемого события, значение в ячейке B1 увеличивается на единицу (то есть текущее значение + 1) не один раз, а бесконечное количество...

Private Sub Worksheet_Calculate()
If [A1] = "Взлёт" Then Call Vzlet_counter
End Sub

Sub Vzlet_counter()
Application.EnableEvents = False
Range("B1") = Range("B1") + 1
Application.EnableEvents = True
End Sub

Есть ли способ решения задачи?

[VictorM]

а если так:

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "Взлёт" Then Call Vzlet_counter
End Sub

кстати

не один раз, а бесконечное количество...

не наблюдается

[paylevan]

Сообщение от VictorM

а если так:

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "Взлёт" Then Call Vzlet_counter
End Sub

кстати

не наблюдается

Вся проблема состоит в том, что изменения в ячейке A1 не вводятся вручную, а появляются в фоновом режиме с помощью формулы с условием ЕСЛИ().

Именно поэтому предложенное Вами решение, к сожалению, не работает. Макрос с Worksheet_Change(ByVal Target As Range) актуален только лишь в том случае, если ячейка A1 изменяется вручную, а не автоматически.

[Serge_Bliznykov]

тогда разбирайте условие в формуле ЕСЛИ. Ведь что-то меняется, вот к изменению этого "чего-то" и привязывайте счётчик!

[Hugo121]

Можно запоминать значение ячйки в переменную, и при срабатывании пересчёта сравнивать текущее с запомненным.

Private Sub Worksheet_Calculate()
    Static test$
    If [a1] = "Взлёт" Then
        If [a1] <> test Then
            Call Vzlet_counter
        End If
    End If
    test = [a1]
End Sub

[paylevan]

Сообщение от Serge_Bliznykov

тогда разбирайте условие в формуле ЕСЛИ. Ведь что-то меняется, вот к изменению этого "чего-то" и привязывайте счётчик!

Изменяемые данные импортируются из текстового файла, на основе которых, с помощью условия ЕСЛИ (), появляется либо не появляется значение "Взлёт" в ячейке А1.

В этом случае, Worksheet_Change(ByVal Target As Range) не видит этих изменений, а используемый мною Worksheet_Calculate() их видит, но начинает увеличивать счётчик в ячейке B1 до бесконечности (к сожалению, Application.EnableEvents = False почему-то не спасает от бесконечного исполнения макроса).

[paylevan]

Сообщение от Hugo121

Можно запоминать значение ячйки в переменную, и при срабатывании пересчёта сравнивать текущее с запомненным.

Private Sub Worksheet_Calculate()
    Static test$
    If [a1] = "Взлёт" Then
        If [a1] <> test Then
            Call Vzlet_counter
        End If
    End If
    test = [a1]
End Sub

Здравствуйте. Спасибо за вариант решения, но мне не удаётся его реализовать. Если возможно, прошу отправить файл с примером.

[VictorM]

Если возможно, прошу отправить файл с примером.

Вообще-то ТС прикладывает файл - пример с описанием задачи и тем, что уже сделано.

[kuklp]

Кросс:
http://www.planetaexcel.ru/forum/ind...#message437573