自己做的一个聚光灯。

d346836673

Set MenuObject = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=11, temporary:=True)

提示下标越界

ncelover

下面是我现在在用的高亮聚光灯的代码，但使用时，当前单元格也同样高亮了，请问怎样让当前单元格不受高亮格式，保持活动单元格自己的格式和背景填充啥的不变，不受高亮的的影响，就是交叉点保持原样。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Cells.FormatConditions.Delete
    With Target.EntireColumn
        .FormatConditions.Add xlExpression, , "=true"
        .FormatConditions(1).Interior.ColorIndex = 4
    End With
    With Target.EntireRow
        .FormatConditions.Add xlExpression, , "=true"
        .FormatConditions(2).Interior.ColorIndex = 4
    End With

End Sub

hhzjxss

路过看看，我也研究 过这个东西，没找到最好的方案！

jacklee8989

下载下来之后咱用啊？

gwpgc

收藏了，非常感谢

蜀郭浪君

有没有2010以上的啊？2016报错

梧叶沙沙

ncelover 发表于 2017-9-12 21:44
下面是我现在在用的高亮聚光灯的代码，但使用时，当前单元格也同样高亮了，请问怎样让当前单元格不受高亮格 ...

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Cells.Interior.ColorIndex = 0
   
3.     Target.EntireRow.Interior.Color = 65535
   
4.     Target.EntireColumn.Interior.Color = 65535
   
5.     Cells(Target.Row, Target.Column).Interior.ColorIndex = 2
   
6. End Sub

复制代码

这几句代码可以完全解决你的问题，比你的代码也精练。达到的效果一样

commend

感谢分享，好好学习了。

liguibin

2013报错 ,抽时间更新一下，谢谢

YZC51

ncelover 发表于 2017-9-12 21:44
下面是我现在在用的高亮聚光灯的代码，但使用时，当前单元格也同样高亮了，请问怎样让当前单元格不受高亮格 ...

请参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Rng = [A5:J30] '区域选择
    Rng.Interior.ColorIndex = 0
    Set Rn = Application.Intersect(Target, Rng)
    If Not Rn Is Nothing Then
        Union(Application.Intersect(Rn.EntireRow, Rng), Application.Intersect(Rng, Rn.EntireColumn)).Interior.ColorIndex = 6
        Target.Interior.ColorIndex = 0
    End If
End Sub