第2个回答 2010-08-17
Sub Macro1()
With Range("A1:AR36").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:="123,1234,12345,12346"
End With
Range("A1:AR36").FormatConditions.Delete
Range("A1:AR36").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="123"
Range("A1:AR36").FormatConditions(1).Font.ColorIndex = 3
Range("A1:AR36").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="1234"
Range("A1:AR36").FormatConditions(2).Font.ColorIndex = 5
Range("A1:AR36").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="12345"
Range("A1:AR36").FormatConditions(3).Font.ColorIndex = 39
End Sub