文件名称：vba添加工具栏
文件大小：663B
文件格式：TXT
更新时间：2016-06-17 12:35:40
添加工具栏
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Row >= 2 Then On Error Resume Next [ChangColor_With1].FormatConditions.Delete Target.EntireRow.Name = "ChangColor_With1" With [ChangColor_With1].FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 22 '改变数值颜色改变 End With End If End Sub