Question

关于excel表中，如何将被引用过数据的单元格自动变颜色

可以 多个颜色存在不 顺便发一个 你编写的VAB 表格文件 谢谢了大神

Answer 1

用VBA吧; 把以下代码拷入SHEET1

Sub test()
Dim sht As Worksheet, rng As Range, CurrentSel As Range
Dim temp$
Application.ScreenUpdating = False
Set CurrentSel = ActiveCell
For Each sht In Sheets
For Each rng In sht.UsedRange
temp = rng.Parent.Name & "!" & rng.Address
rng.ShowDependents
rng.NavigateArrow False, 1
If ActiveCell.Parent.Name & "!" & ActiveCell.Address <> temp Then
rng.Interior.ColorIndex = ActiveCell.Interior.ColorIndex
End If
Next
sht.ClearArrows
Next
With CurrentSel
.Parent.Activate
.Select
End With
Application.ScreenUpdating = True
End Sub

经我实测,非常实用及智能; 用法如下:
1,先把SHEET2的结果单元格填充为绿色,
2,到SHEET1运行宏, 则显示被引用公式的单元格自动为绿色; 未被引用的不变色.
3, 只要结果填充什么色, 公式引用的单元格就会自动相同色.
4, 同一个sheet里也同样有效.
5, 可以同时设置不同颜色, 比如sheet2里有3个结果是引用sheet1的, 设置3个颜色后,运行宏,在SHEET1理就得出3个对应颜色的填充效果.
6, 不用时,全选,填充为空白即可.

注意: 多次被引用时,只会显示其中一个颜色哦~