vba 现在的颜色不等于之前的颜色

来源：百度知道 编辑：UC知道 时间：2024/06/07 00:56:50
vba现在的值不等于之前的值,如:现在的颜色不等于之前的颜色就....
if cells(1,2).interior.color<>......
then

非常谢谢!

Dim x, y, cor'先声明三变量

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If x = "" Or y = "" Then
x = Target.Row: y = Target.Column

End If

If cor <> Cells(x, y).Interior.Color Then MsgBox "不同"

x = Target.Row'记录当前的行数等
y = Target.Column
cor = Target.Interior.Color
End Sub

在工作表的中输入上面的代码就可以,你试试看