关于excel表中,如何将被引用过数据的单元格自动变颜色
发布网友
发布时间：2022-04-22 19:53
共1个回答
热心网友
时间：2023-06-23 17:05
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, 不用时,全选,填充为空白即可.
注意: 多次被引用时,只会显示其中一个颜色哦~
