увлекаюсь компьютерами и природой. люблю точность и анализировать данные, может поэтому... · 15 дек 2021 · office-study.ru
Не претендую на непогрешимость, но я бы просто сделал проверку на соответствие первого символа в ячейке знаку равенства. Ведь именно с него начинаются формулы (чаще всего).
Предположим, требуется залить ячейки с формулой желтым цветом.
выделяем проверяемые ячейки и запускаем такой макрос
Sub check_PlaceFormula()
Dim s, testvalue
For Each s In Selection
testvalue = s.Formula
MsgBox (Left(testvalue, 1))
If Left(testvalue, 1) = "=" Then s.Interior.ColorIndex = 6
Next
End Sub
Возможно, есть и другой путь.