excel中当a1单元格填充颜色的时候 a2单元格自动填充同样的颜色

如题所述

这个要用VBA处理。

Sub Macro1()
If Cells(1, 1).Interior.ColorIndex <> -4142 Then
    Cells(1, 2).Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex
End If
End Sub

追问

有没有什么函数能用的啊

追答

读取颜色可用GET.CELL函数,但设置颜色我暂未找到函数。我只能用VBA,也不能随A1颜色即时改变。

追问

谢谢

温馨提示:答案为网友推荐,仅供参考
第1个回答  2015-07-31
用条件格式就能实现啊!但需要单元格里面的值。
第2个回答  2015-07-31
使用条件格式来实现
第3个回答  2015-07-31
可以用Excel的格式刷刷一下