Цвет ячейки

[LexxSakhalin]

Надо написать формулу, которая будет менять цвет ячейки, в которую она вставлена. Обязательно VBA.

[SAS888]

Надо написать формулу, которая будет менять цвет ячейки, в которую она вставлена. Обязательно VBA.

Это невозможно. Формула Excel, как и функция VBA возвращают значения. Свойства ячейки (диапазона) можно изменить либо с помощью условного форматирования, либо макросом, который можно запускать по требуемому событию. Например, при совпадении значения ячейки с определенным значением и т.п.

[LexxSakhalin]

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

Это невозможно. Формула Excel, как и функция VBA возвращают значения. Свойства ячейки (диапазона) можно изменить либо с помощью условного форматирования, либо макросом, который можно запускать по требуемому событию. Например, при совпадении значения ячейки с определенным значением и т.п.

Все сделал. Пришлось кнопку прилепить с макросом:
Sub GMZ_svet()

For i = 4 To 100
For m = 13 To 100
Cells(i, m).Interior.ColorIndex = 2

If Cells(i, m).HasFormula = True Then
Cells(i, m).Interior.ColorIndex = 45
End If

If Cells(i, m).Value = "Х" Then
Cells(i, m).Interior.ColorIndex = 15
End If

If Cells(i, m).HasFormula = falce Then
Cells(i, m).Interior.ColorIndex = 4
End If

If Cells(i, m).Value = "" Then
Cells(i, m).Interior.ColorIndex = 2
End If
Next m
Next i
End Sub

[alebed]

Можно упростить,

к примеру для наличия формул

Select Case Cells(i, m).HasFormula
Case Is = True
Cells(i, m).Interior.ColorIndex = 45
Case Else
Cells(i, m).Interior.ColorIndex = 4
End Select

или в привязке к различным значениям

Select Case Cells(i, m).Value
Case Is = "X"
Cells(i, m).Interior.ColorIndex = 15
Case Is = "Y"
Cells(i, m).Interior.ColorIndex = 3
Case Is = ""
Cells(i, m).Interior.ColorIndex = 2
End Select