Workbook_Open secundario privado ()
lastRow dévil como de largo
Con las hojas de trabajo (“Sheet1”)
. CANCELACIÓN de Cells.FormatConditions.Delete 'TODO EL FORMATO de COND
lastRow =. Rows.Count
Con. Gama (“A3: O” y el lastRow) 'FIJARON el objeto del defecto, todas las expresiones que comenzaban con
'“.” le referirá. Observar jerarquizado “con”
. Seleccionar 'para fijar ActiveCell a la esquina izquierda superior de la gama
tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
.FormatConditions (1).Interior.ColorIndex = 44
.FormatConditions (1).StopIfTrue = verdad
tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " y lastRow y “, $E3) >1”
.FormatConditions (2).Interior.ColorIndex = 37
tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =UPPER ($K2) = del "" """ SÍ
.FormatConditions (3).Interior.Color = ' rojo vbRed
Extremo con
Extremo con
Submarino del extremo
|