Приватное Sub Workbook_Open ()
Тусклое lastRow как длиной
С рабочий лист («Sheet1»)
. DELETE Cells.FormatConditions.Delete 'ВСЯ ФОРМАТИЗАЦИЯ COND
lastRow =. Rows.Count
С. Ряд («A3: O» & lastRow) 'УСТАНОВИЛИ предмет невыполнения обязательства, все выражения начиная с
'«.» сошлет к ему. Заметьте гнездили «с»
. Выберите 'для того чтобы установить ActiveCell к верхнему левому углу ряда
тип .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
.FormatConditions (1).Interior.ColorIndex = 44
.FormatConditions (1).StopIfTrue = True
тип .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " & lastRow & «, $E3) >1»
.FormatConditions (2).Interior.ColorIndex = 37
тип .FormatConditions.Add: =xlExpression, Formula1: = " =UPPER ($K2) = "" """ ДА
.FormatConditions (3).Interior.Color = vbRed 'красный цвет
Конец с
Конец с
Подводная лодка конца
|