单元格编辑后改变背景色(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