Workbook_Open secondario riservato ()
lastRow fioco come lungamente
Con i manuali (“Sheet1„)
. CANCELLAZIONE di Cells.FormatConditions.Delete 'TUTTA LA FORMATTAZIONE di COND
lastRow =. Rows.Count
Con. Gamma (“A3: La O„ & il lastRow) 'HANNO REGOLATO l'oggetto di difetto, tutte le espressioni che cominciano con
'“.„ si riferirà. Notare annidato “con„
. Selezionare 'per regolare ActiveCell all'angolo di sinistra superiore della gamma
tipo di .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
.FormatConditions (1).Interior.ColorIndex = 44
.FormatConditions (1).StopIfTrue = allineano
tipo di .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " & lastRow & “, $E3) >1„
.FormatConditions (2).Interior.ColorIndex = 37
tipo di .FormatConditions.Add: =xlExpression, Formula1: = " =UPPER ($K2) = del "" """ SÌ
.FormatConditions (3).Interior.Color = ' colore rosso vbRed
Estremità con
Estremità con
Sommergibile dell'estremità
|