也谈聚光灯效果【不影响原有格式、可撤销、可复制粘贴】

大灰狼1976

  这两天多次看到【聚光灯】这个术语，出于兴趣参阅了论坛上很多老师发布的相关贴，

受益颇多，特别是ggmmlol老师的API用得出神入化，又是透明窗体又是鼠标穿透，看
得眼花缭乱大脑几近当机状态，吾辈实难望其项背。
  虽然我对于高深的API完全不懂，但也想尝试一下常规方式下达成效果的方法，参考
网络上的各种简单方法，最终找到了一种基本无副作用的简单实现方法。

注：无副作用是指
1、不改变原来单元格格式（包括原有条件格式）；
2、可以撤销多步操作；
3、可以复制粘贴；4、（补充）不会每次刷新易失性函数的结果。
如果硬要说副作用，那就是会占用一个条件格式规则。

  我记得在本坛也看到过类似的示例，但是翻遍浏览记录也未再找到，直接百度后在
其他平台重新搜索到此方法，所以此示例非原创，附件仅供参考（我的示例仅为
演示功能，没有美化，比较简陋）。
注：在2007及2013版测试通过，其他版本未测试。

更新附件，添加开启关闭及任意更换颜色功能，仅为自己记录所用。（2013版正常，2007版读取forluma1属性出错，其他版本未知）

microyip

沙发支持一下大作

约定的童话

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '半截聚光灯
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = xlNone
    c = Target.Column
    r = Target.row
    Union(Range(Cells(r, 1), Target), Range(Cells(1, c), Target)).Interior.ColorIndex = 6
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Row > 1 And Target.Column < 6 Then
           [A2:E65536].Interior.ColorIndex = xlNone '去除背景色
            Selection.Interior.ColorIndex = 4 '绿色
        End If
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    m = Int((Rnd * 56) + 1)
    iColor = m
    With Target.EntireRow.FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = iColor
    End With
    With Target.EntireColumn.FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = iColor
    End With
End Sub

分享一下，来自网上

大灰狼1976

谢谢各位关注！
其实还是selectionchange事件和条件格式的组合应用，只不过把selectionchange事件内容换成了屏幕刷新语句，这样既能刷新行列底色，又不会影响复制粘贴和撤销等操作。
见过有的示例使用了单元格命名，通过事件每次命名不同区域，然后加上calculate语句刷新数据，这样就会影响复制粘贴及撤销操作，而且calculate会使易失性函数每次刷新，与平时的工作表功能产生变化。

大灰狼1976

约定的童话 发表于 2020-4-25 08:33
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '半截聚光灯
    Application.ScreenUpda ...

感谢提供多个示例，可这些示例都存在副作用，如我上面所说。

02761752696

谢谢分享，很实用

风筝那根线

这是事先添加的条件格式
参照楼主，我加了个开关，把文件格式改为了.xls。
能解决1和3就好了，要能删除指定的条件格式，3的问题就解决了。
2 的问题应该影响不大。
1.2003粘贴后假死，单击上下左右键才能恢复。
2.开启和关闭都会修改工作表，选择不影响。
3.开启和关闭都会删除所有的条件格式。

聚光灯2.zip (14.96 KB, 下载次数: 69)

2020-6-2 15:33 上传

点击文件名下载附件

大灰狼1976

不好意思我手头没有2003版，我下班后先在2007版里面测试有没有同样的问题，再考虑如何解决吧。

大灰狼1976

2007测试结果;
1、未发生假死现象；
2、不太明白修改工作表的意思，没猜错的话，代码中不要出现select就可以了；
3、这个确实，我正在考虑如何仅删除聚光灯效果的条件格式而保留其他条件格式。

风筝那根线

大灰狼1976 发表于 2020-6-3 21:47
2007测试结果;
1、未发生假死现象；
2、不太明白修改工作表的意思，没猜错的话，代码中不要出现select就 ...

那只能是2003本身的原因了。
因为我改成用VBA添加条件格式了，所以添加和删除的时候都修改了工作表。