带条件格式的聚光灯怎么写

jetthai

    自己写了个代码，当鼠标点击某个单元格时，整行变为浅蓝色，鼠标离开后，该行颜色自动恢复成原状。    因为我的表格中有大量的单元格填充颜色和条件格式形成的自动单元格颜色，用这个程序后，常规填充颜色的单元格不受影响，鼠标离开后颜色能恢复原状，而那些受条件格式控制的单元格就不行了，不能恢复原色。想了很多办法都不行，特向各位老师求教。

   我自己写的代码如下，使用单元格改变事件：
   Private SubWorksheet_SelectionChange(ByVal Target As Range)
   On Error Resume Next

   Cells.FormatConditions.Delete

       With Target..EntireRow.FormatConditions   

          .Delete

          .Add xlExpression, , "TRUE"

          .Item(1).Interior.ColorIndex = 33

       End With

   End Sub

microyip

你把Delete和Add去掉试试

jetthai

microyip 发表于 2018-9-8 09:38
你把Delete和Add去掉试试

试了，不行，所有的条件格式的背景颜色都没了。

microyip

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.    Cells.Interior.ColorIndex = xlNone
   
3.    Target.EntireRow.Interior.ColorIndex = 33
   
4.    Target.EntireColumn.Interior.ColorIndex = 33
   
5. End Sub

复制代码

liucqa

这种条件格式的聚光灯是有缺陷的

jetthai

microyip 发表于 2018-9-8 10:46

这个更不行啊，执行后，连最基本的填充色都没了

jetthai

liucqa 发表于 2018-9-8 11:13
这种条件格式的聚光灯是有缺陷的

有什么缺陷，能指点一下吗？

liucqa

jetthai 发表于 2018-9-8 11:40
有什么缺陷，能指点一下吗？

破坏Excel文档数据啊

jetthai

自己又试了2天，还是不行，哎，太难了