Excel中，当更改了某单元格的填充颜色，则使引用其的单元格的填充颜色自动跟着变化。 如何使用函数

Question

Excel中，当更改了某单元格的填充颜色，则使引用其的单元格的填充颜色自动跟着变化。
如何使用函数或VBA实现该效果呢？
条件格式可能不行。

Answer 1

Range(Target.Dependents.Address).Interior.ColorIndex = Target.Interior.ColorIndex

可以设置Target的从属单元格颜色

 

但是，比较痛苦的是，修改单元格颜色并不触发change或其他事件

所以，在何处自动实现该功能是个问题。

 

大概只能是改变单元格颜色后，手动执行宏：

Sub Changecolor()
On Error GoTo over
Range(activecell.Dependents.Address).Interior.ColorIndex = activecell.Interior.ColorIndex
over:
End Sub

Answer 2

sub colorchange()
if sheets(1).cells(1,1).Interior.Color=rgb(255,0,0) then
sheets(1).cells(1,2).interior.color=rgb(0,0,255)
endif
end sub
'把单元格A1设置为红色，然后点工具运行这个宏，会看到单元格B1变成蓝色追问

在这里可能不行，因为我的那些单元格都是非特定的。
如果用这种方式的话，就需要把那些单元格，全选中放到数组里循环来修改颜色。
而这些非特定的单元格唯一共同点是都引用过cells(1,1)。