EXCEL VBA 数据有效性代码问题

在VBA工程浏览器里双击你要控制的工作表，如Sheet1,添加Worksheet的change事件，就是当工作表里文本发生改变时触发该事件，参数是发生改变的区域。代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Text = "123" Then '如果选择的是123
Target.Interior.Color = RGB(255, 0, 0) '这个是背景色，RGB格式的颜色，可以自己随便改
Target.Font.Name = "黑体" '字体名称
Target.Font.Bold = True '是否为粗体
Target.Font.Color = RGB(0, 255, 0) '这个是文本颜色，RGB格式的颜色，可以自己随便改
End If
End Sub

颜色通过条件格式来设置。
选中要设置的区域，在菜单“格式”-条件格式，设置单元格数值等于多少相对应的颜色，可以通过增加条件来设置各种数值及颜色

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

看看这个例子吧。写了一小段程序。
http://www.mofile.com/pickup/cpwvxpsqtkkj9kd/