условное форматирование

[sonata]

Есть такая возвожность в Excel как условное форматирование,
так вот, можно ли там задать условие, если значение ячейки
содержим сочетание символов ЭС, то красит фон желтым цветом?

[RayShade]

Да можно.

Format\Conditional formatting

Cell value is | Equal to | ЭС

Fotmat...\Shading выбираешь нужный цвет.

[sonata]

Спасибо за ответ!
Но я имею в виду простое меню в Excel, условное форматирование,
там есть условие: значение и формула, как так прописать(задать) мое условие?Очень прошу, подскажите!

[GSerg]

Люблю я эти диалоги...

RayShade же написал всё. У него просто офис, видимо, англицкий.
Формат\Условное форматирование.
Условие 1. Значение равно ="ЭС"

[sonata]

Добрый день, ну если бы было все так элементарно, вопросов бы не возникало.
В том то и дело значение поля не равно ЭС, а содержит, т.е.
значение м.б. ПР_ЭС и условие должно быть true..

[RayShade]

Вставь в книгу обработчик события:

Код: Выделить всё

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If InStr(1, LCase(CStr(Target.Value)), "эс", vbTextCompare) > 0 Then Target.Interior.Color = RGB(255, 0, 0)
End Sub


Только вставляй его в модуль книги, а не листа.

[sonata]

Ну и намудрил же ты!
Не знаю как данный модуль применить...
Но неужели с стандартном усл. форматировании нельзя так сделать?

[Rainbow]

Но ведь приятно, когда САМО форматируется!
Только код чуть подправить надо, а то он работать только для простого ввода будет. А если например копировать?

Код: Выделить всё

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Long, j As Long
    For i = 1 To Target.Rows.Count
        For j = 1 To Target.Columns.Count
            If InStr(1, LCase(CStr(Target.Cells(i, j).Value)), "эс", vbTextCompare) > 0 Then
                Target.Cells(i, j).Interior.Color = RGB(255, 0, 0)
            End If
        Next
    Next
End Sub

[sonata]

А как мне передать Target?

[RayShade]

Да никак.

Это обработчик события. Target ему передаст сам excel