作者：绿色风
分类：
时间：2022-08-18
浏览：132
楼主
xmyjk |
Q:有一列数字，我选取其中的三个数字加和，当我将这个“和”的数字变成红色时，怎样设置，能使加和的三个数字随着“和”同时变成红色？
例如：11 22 33 44 55 66
我设置加和公式：88=11+33+44
当我选择88，将该单元格的底色变成红色，怎样能同时把11、33、44的单元格底色变成红色？
A:- Option Explicit
- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '利用selectionchange事件，当鼠标选定时方触发
- If Target.Address(0, 0) = "A3" Then '只有A3单元格才触发事件
- Target.Precedents.Interior.ColorIndex = 3 '将公式引用的单元格上色
- Target.Interior.ColorIndex = 3 '将A3单元格本身上色
- Else
- Cells.Interior.ColorIndex = 0 '如果选择非A3单元格，则清空颜色
- End If
- End Sub
 Book1.rar
引申：
如果是要追踪，哪个单元格引用了我选定的单元格，则要使用下面的代码。- Option Explicit
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- On Error GoTo line1 '如果不存在有单元格引用了它，程序会报错，因此加入错误处理
- Target.Dependents.Interior.ColorIndex = 3 '如果存在有单元格引用了它，则将引用它的单元格上色
- Target.Interior.ColorIndex = 3 '把其也上色
- line1:
- If Err.Number = 1004 Then Err.Clear: Cells.Interior.ColorIndex = 0: Exit Sub '如果不存在有单元格引用它，则清空错误，将单元格去色，退出程序
- End Sub
Book2.rar
 该贴已经同步到 |
2楼
JOYARK1958 |
謝謝提供學習下載中 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一