есть ли способ реагировать на изменения условного форматирования в excel?

Если вы создаете фиктивную функцию, в которой в качестве параметров используются ваши выходные ячейки DDE, вы должны иметь возможность реагировать на событие Worksheet_Calculate?

Я предполагаю, что это может сработать, но у меня нет опыта работы с DDE: обновление DDE может даже вызвать событие Calculate напрямую.

Если вы спрашиваете, можете ли вы использовать условное форматирование для запуска события, да, это возможно. Однако я сам не знаком с моделью DDE, и смешивание условного форматирования для запуска события из условия данных кажется дополнительным шагом, как отмечает Stepan1010.

Вы можете рассмотреть обсуждение в Mr Excel по этой ссылке, так как проблема связана с изменением значения ячейки на основе изменений, внесенных в ячейки из соединения DDE: http://www.mrexcel.com/forum/showthread.php?176508-Comments-VBA-amp-Min-Max

Вы также можете рассмотреть возможность использования DoEvent с циклом, установленным на период времени, в зависимости от того, как долго вы фактически будете реализовывать макрос, если это применимо к вашему приложению. Эта статья SO посвящена строке состояния, но я думаю, что та же логика применима к выполнению события, скажем, на основе условного выражения в цикле: Принудительное обновление экрана в Excel VBA

Надеюсь, это будет полезно для вас =)

~ДжОЛ

Почему бы вам просто не воссоздать любую логику условного форматирования, которая у вас есть в этой ячейке, в отдельную ячейку?

Например, ваша логика условного форматирования может выделить ячейку, когда она превышает определенное число — вы можете просто поместить эту логику в другую ячейку, например. =если(A1>100,ИСТИНА,ЛОЖЬ)

Итак, я думаю, мой вопрос: зачем выбирать событие изменения формата, когда вы можете просто выбрать само событие?

Изменить для вашего разъяснения:

Если вы хотите непрерывно запускать макрос в VBA, вам не нужен таймер - вы можете просто выполнить непрерывный цикл следующим образом:

Sub macro1()

    Dim i As Double

    With Sheet1

        Do

            '.Cells(5, 4).Value = i

            i = i + 1

            .Cells(1, 1).Value = i

            ' you are going to want to comment this out if you want to don't need to do other things
            DoEvents

            If Sheets("Sheet1").Range("A2").Value = True Then
                ' put your code here.
            End If
        Loop

    End With
End Sub

Так что, должно быть, у меня все еще есть проблемы с пониманием вашей ситуации.