Privata underWorkbook_Open ()
Dunkel lastRow som Long
Med arbetssedlar (”Sheet1”)
. Cells.FormatConditions.Delete- 'BORTTAGNINGS ALLT FORMATERA för COND
lastRow =. Rows.Count
Med. Spänna (”A3: FASTSTÄLLD standard för nolla-” & lastRow) 'anmärka, alla uttryck som är startas med
'”.”, ska se till den. Notera bygga bo ”med”,
. Välj 'till fastställda ActiveCell för att överträffa lämnat tränga någon av spänna
.FormatConditions.Add-typ: =xlExpression Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 ",
.FormatConditions (1). Interior.ColorIndex = 44
.FormatConditions (1) .StopIfTrue = True
.FormatConditions.Add-typ: =xlExpression Formula1: = " =COUNTIF ($E$3: $E$ " & lastRow & ”, $E3) >1”,
.FormatConditions (2). Interior.ColorIndex = 37
.FormatConditions.Add-typ: =xlExpression Formula1: = " =UPPER ($K2) = för "" """ JA,
.FormatConditions (3). Interior.Color = vbRed 'rött
Avsluta med
Avsluta med
Avsluta suben
|