Excel_VBA 常用代码

单元格编辑后改变背景色（6号，355832828）

 Dim oldvalue As Variant

 Private Sub Worksheet_Change(ByVal Target As Range)
     On Error Resume Next
     If oldvalue <> Target.Value Then
         With Target.Cells.FormatConditions
             .Delete
             .Add xlExpression, , "TRUE"
             .Item().Interior.ColorIndex =
         End With
     End If
 End Sub

 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
     oldvalue = Target.Value
 End Sub