Изменение цвета ячейки содержащей формулу

[LexxSakhalin]

Как с помощью VBA изменить цвет ячейки при вычислении в формуле?

[VictorM]

Можно так:

Sub test()
    If Range("A1").HasFormula = True Then
        MsgBox "Ячейка содержит формулу"
        Range("A1").Interior.ColorIndex = 6
    Else
        MsgBox "Ячейка не содержит формулы"
    End If
End Sub

[LexxSakhalin]

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

Можно так:

Sub test()
    If Range("A1").HasFormula = True Then
        MsgBox "Ячейка содержит формулу"
        Range("A1").Interior.ColorIndex = 6
    Else
        MsgBox "Ячейка не содержит формулы"
    End If
End Sub

А если это диапазон от M до IV?

[Hugo121]

Sub tt()
For Each cc In Range("M:IV")
If cc.HasFormula = True Then cc.Interior.ColorIndex = 6
Next
End Sub

[SAS888]

Проще так:

On Error Resume Next: Columns("M:IV").SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 6

[LexxSakhalin]

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

Проще так:

On Error Resume Next: Columns("M:IV").SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 6

Клево!!!
А можно тоже самое, но в формулу вставить?

Function GMZ(Period, DataNach As Date, DataKon As Date, DataTek As Date)
Dim n As Date
Dim i

n = DateAdd("m", Period, DataNach)
For i = 1 To 36
If Month(DataTek) = Month(n) And Year(DataTek) = Year(n) Then
GMZ = n 'вот сюда вставить
Exit For
End If
n = DateAdd("m", Period, n)
Next i

If Period = 0 Or DataNach > DataTek Or DataKon < DataTek Or GMZ = 0 Then GMZ = ""
If DataKon < DataTek Then GMZ = "Х"
If DataNach > DataTek Then GMZ = "Х"
'ActiveCell.Interior.ColorIndex = 36
End Function

[EducatedFool]

А зачем код?
Используйте условное форматирование: http://www.planetaexcel.ru/tip.php?aid=121

[LexxSakhalin]

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

А зачем код?
Используйте условное форматирование: http://www.planetaexcel.ru/tip.php?aid=121

Смысл в файле.
А если в кратце, то: есть график мониторинга залога и по всему графику вставлены формулы, которые показывают плановый график. А когда проводиться фактический выезд и проверка залога, то проставляется фактическая дата вместо формулы. Так вот для отделения плана от факта, если дата установлена по формуле, то ячейка должна быть красной, а если вручную, то зеленая.