果然是个坑-Excel vba 聚光灯。。。文末附上自己做的加载项（迷你版）

dogfire4169

边框红细线，不太影响打印。就一条红细线。也不影响cells标颜色一样时，就会无法判读。有需要我再做教学。太麻烦了。

386026398

整这么复杂，用ColorIndex属性，一条语句的事。

墨苏ycycc

386026398 发表于 2023-4-9 08:06
整这么复杂，用ColorIndex属性，一条语句的事。

具体怎么实现呢

墨苏ycycc

dogfire4169 发表于 2023-4-8 23:20
边框红细线，不太影响打印。就一条红细线。也不影响cells标颜色一样时，就会无法判读。有需要我再做教学。 ...

这个可以的

dogfire4169

大家自己看吧！！没时间说明

386026398

墨苏ycycc 发表于 2023-4-9 17:01
具体怎么实现呢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim hs, zdh As Long
  Dim Rng As Range
  On Error Resume Next
  hs = ActiveCell.Row
  If hs > 9 And Cells(6, 11).Value = "聚光" Then
    Range(Cells(10, 1), Cells(1048576, 32)).Interior.ColorIndex = xlNone
    Set Rng = Range(Cells(hs, 1), Cells(hs, 32))
    Rng.Interior.ColorIndex = 34
  End If
  If Cells(6, 11).Value = "取消" Then
    Range(Cells(10, 1), Cells(1048576, 32)).Interior.ColorIndex = xlNone
  End If
End Sub

vistababy

386026398 发表于 2023-4-13 15:16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim hs, zdh As Long
  Dim Rng As  ...

做聚光灯不能影响原有底色，不能影响原打印色，而且必须能在任何excel文件中开启、关闭，而且最好不能影响Ctrl+Z撤销功能。用Interior是所有方式中最不好的一种方式，上面一项都不达标。没有人会用。
这代码开启关闭方式也太那个了。

vistababy

用过wps的阅读模式，各种Excel插件的聚光灯，我还是最喜欢自己做的这个版本，样式、里外颜色随便换，虽然还有一些不完美。

效果如下：

386026398

vistababy 发表于 2023-4-15 11:36
做聚光灯不能影响原有底色，不能影响原打印色，而且必须能在任何excel文件中开启、关闭，而且最好不能影 ...

那是你不会使用而已。当然这只是我看账工具中的。确实你说的不能影响原有底色不能满足，也没做成插件。我也只是用于看账而已。也很少用。程序简单直观，且不受工作表保护的影响。

vistababy

386026398 发表于 2023-4-19 11:13
那是你不会使用而已。当然这只是我看账工具中的。确实你说的不能影响原有底色不能满足，也没做成插件。我 ...

你那程序代码一看就知道了，还有什么会不会使用的问题？？Interior的方法也只能这样了。。基本上没有人会用的。
我的电脑不存在工作表保护的问题，因为我已经做成了打开任何excel文件自动破解保护、自动解除所有隐藏工作表（包括深度隐藏）的方式。