如何把被引用的单元格标示成红颜色

showking · 发表于 2011-1-12 16:10

比如sheet1中A1的值为1，sheet2中的A1的值为2，sheet3中的A1=sheet1!A1+sheet2!A1，sheet1及sheet2中的A1单元格被引用了，有什么公式设置单元格的颜色改变，和其它没有被引用的单元格区分开来。

谢谢！

showking · 发表于 2011-1-12 16:17

在线等！！

showking · 发表于 2011-1-12 16:44

比如sheet1中A1的值为1，sheet2中的A1的值为2，sheet3中的A1=sheet1!A1+sheet2!A1

我可能还没表达清楚，如果sheet3中A1单元格的颜色为蓝色，被它引用到的sheet1中的A1以及sheet2中的A1能否自动也显示成相同的颜色呢。

honggexjq · 发表于 2011-1-12 17:10

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

复制代码

这个问题挺费脑子的，主要是不同工作表的引用单元格的判断，先试下代码行不行吧

showking · 发表于 2011-1-12 17:15

这个代码怎么用啊，不懂耶。

honggexjq · 发表于 2011-1-12 17:21

打开工作表，按下ALT+F11，双击标签Sheet1，拷贝代码到右边空白区域，然后按F5运行，附件里做了个按钮，可点击运行

showking · 发表于 2011-1-12 17:31

真的可以耶，万分感谢！

TMOY · 发表于 2013-3-15 23:20

谢谢,  刚实测有效的;  只是遇到多套公式时,好像有点乱了..呵呵
比如表2的A1  =  表1的若干相加
   表2的A2 = 表2的a1时,
   要先设置表2的A2填充色, 然后运行, 这时得到A1填充色, 然后再去表1运行宏, 表一内的相关数据都会显色;
如果  先设置表2的A1填充色, 后直接去表1运行宏,则表1颜色会相应出现, 但表2的色块全部没有了,又成了透明.

还有,遇到交叉引用时,填充色会显示其中一种, 但不知道是什么规律, 试了几下,没摸清所显示的颜色的依据.
比如表1的A1- F1都有数据,  表2里面做加总: A1=表1A1:D1 ,  A2=表1B1:F1,  A3=表1A1:F1,  然后再测试,却一直显示A2的结果色, 无论怎么临时改变公式数据,例如把A1=表1A1:E1,  都没变化了.

抽空再好好研究代码,好久没学了, 落后了...

showking · 发表于 2013-5-24 16:32

两年前的问题，现在一个朋友再次问起。但这次为什么实测无效呢？

showking · 发表于 2013-5-24 16:50

不好意思，实测通过了。忘了有公式的单元格先设置好颜色。

		自动登录	找回密码
密码			免费注册

[求助] 如何把被引用的单元格标示成红颜色