判断单元底色后清空数据VBA EXCEL

如果你是用条件格式变色的话，最好能说下你的条件，方便大家帮你写VBA。

如果你想实现随时判断的话，最好写在工作表事件下，但单元格变色又似乎触发不了任何工作表事件，如果你是用条件格式实现变色的最好说下你的条件，方便大家帮你写代码。

还有就是不写在工作表事件下，通过 Application.OnTime Time + TimeSerial(0, 0, 1), "aaa" 语句

Sub aaa()
If Range("a1").Interior.ColorIndex = 3 Then
  Range("A2").Interior.ColorIndex = 6
End If
Application.OnTime Time + TimeSerial(0, 0, 1), "aaa"
End Sub

不断执行程序，。由于是每秒都执行一次，所以不敢保证会不会直接把你卡死。最好的办法还是你把条件说出来，大家帮你在change事件下写个代码。

无数人（包括我）都曾试图捕捉单元格底色改变事件，但最后都告失败，因为单元格底色改变不会触发任何事件，特别是条件格式变色，连单元格底色的颜色都是无法获取的，建议尝试其他的解决方法。看看API有没有办法可以实现！或者单元格底色改变是怎么变的，比如单元格内容的变化，那么我们就可以使用CHANGE事件了。

我只想知道一点，你的底色是通过什么来实现变化？如果是格式格式的话，还可行，如果是手动改变的话，就无解了