点击后，相同单元格变色问题？

双飞叶

曾看到一课程表，有这个功能，比如点语文，所有语文课程都变色，点一教师姓名，所有该教师姓名都变色，这是怎么做到的，我提供一个表格，请大家帮忙，让我学习一下，表格中的数据没有什么实际意义，仅供测试

Zamyi

应该放到VBA板块去.

双飞叶

哦，只能用VBA解决吗
要是这可以的话，请版主帮我转一下版块，谢了

Zamyi

我不是版主.试试

lhdcxz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In UsedRange
  rng.Interior.ColorIndex = -4142
Next
Target.Interior.ColorIndex = 6
For Each rng In UsedRange
   If rng.Value = Target.Value Then rng.Interior.ColorIndex = 6
Next
End Sub

lgpoo

学习了
很强大啊！
好强大！！
支持

双飞叶

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveSheet.UsedRange.Interior.ColorIndex = 0
  If Target.Count > 1 Then Exit Sub
  If Target.Value = "" Then Exit Sub
  For Each c In ActiveSheet.UsedRange
    If c.Value = Target.Value Then c.Interior.ColorIndex = 6
  Next
  
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In UsedRange
  rng.Interior.ColorIndex = -4142
Next
Target.Interior.ColorIndex = 6
For Each rng In UsedRange
   If rng.Value = Target.Value Then rng.Interior.ColorIndex = 6
Next
End Sub

以上是4楼及5楼的代码，感觉都很好地解决了我的问题，而且好像将上述代码不作修改，直接在其他工作簿中用ALT+F11加入代码，也能突出这种效果，很有通用性，不能不说强，至于哪个好，我也说不出所以然来，不过能解决问题了，都很好。

想问一下二位，要是我不想用黄色，而想改用其他颜色，比如绿色，红色，哪个地方修改会达到要求~~蛮烦的

一意孤行

来个条件格式+vba定义名称的，好处是不用遍历单元格，改变颜色直接修改条件格式设置即可。

双飞叶

原帖由 一意孤行 于 2009-4-28 12:05 发表
来个条件格式+vba定义名称的，好处是不用遍历单元格，改变颜色直接修改条件格式设置即可。

感觉 不错，问个小问题，CTRL+F3，看了一下，姓名是定义是“=#N/A”，是什么意思 ，你说不用遍历单元格，就是查找符合定义

姓名

这个区域，

还有颜色，哪里可以修改颜色

一意孤行

选中A:D列》格式》条件格式》单击格式按钮修改图案颜色即可。
这个“姓名”和你最后选择的单元格有关系，选择不同的单元格，按ctrl+f3看到的情况不一定相同哦。