Выделить ячейку

[Iskin]

У меня в столбце есть значения, есть формулы
как в столбце можно выделить ячейки, чтобы было видно различие? Например каким нибудь цветом, там где именно формулы.

[kuklp]

F5 - Выделить.

[Iskin]

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

F5 - Выделить.

Мне не надо "перейти"
А чтобы цветом, и так оставалось

[kuklp]

Где в моем посте Вы прочитали слово "перейти"? Я и в очках и без там такого не нашел. Цитирую себя же:

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

F5 - Выделить.

Если до сих пор не дошло - Выделить - формулы! Дальше выделенному назначайте любой интерьер.

[Iskin]

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

[SAS888]

В модуль требуемого листа для 1-го столбца поместите код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    For Each cell In Target
        If cell.HasFormula Then cell.Interior.ColorIndex = 6 Else cell.Interior.ColorIndex = xlNone
    Next
End Sub

[kuklp]

И в мыслях не было хамить. Вы спросили как выделить, я Вам дал исчерпывающий ответ. Это уж потом у Вас появились дополнительные пояснения. И никто не мешал Вам выполнить мой совет и записать это рекордером.

[Iskin]

спасибо SAS888, все работает!

[Iskin]

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

В модуль требуемого листа для 1-го столбца поместите код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    For Each cell In Target
        If cell.HasFormula Then cell.Interior.ColorIndex = 6 Else cell.Interior.ColorIndex = xlNone
    Next
End Sub

А как сделать для 2-х столбцев (например для 1-го и 5-го)? Сами понимаете, аппетит растет... )

[SAS888]

Например, так:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
    Case 1, 5 'здесь укжите контролируемые столбцы
        For Each cell In Target
            If cell.HasFormula Then cell.Interior.ColorIndex = 6 Else cell.Interior.ColorIndex = xlNone
        Next
    End Select
End Sub