本文目录一览：

excel聚光灯设置的vba实现

您好，方法

1

先看效果图，本聚光灯的效果是修改的单元格的背景样式，不会改变原有的底色和边框。

2

注意，由于水平有限，制作出来的聚光灯有一个缺陷，使用后会将未使用的单元格添加白色背景，如果您的数据使用了边框和底色，将不会受到影响，从下图可以看出，没有使用到的单元格的网格线看不到了。如果对这个有介意的，可以忽略本方法，网络上有成熟的插件，使用起来效果会更好。

第一步：新建一个Excel，名称自己喜欢就好。右击标签页-查看代码，打开代码编辑窗口。

第二步：在左侧工程界面右击-添加-类模块

Excel聚光灯加载宏【VBA】

第三步：双击打开类模块编辑窗口，复制如下代码到类模块

Public WithEvents app As Excel.Application

Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Cells.Interior.Pattern = xlPatternAutomatic

Selection.EntireRow.Interior.Pattern = xlPatternGray8

Selection.EntireRow.Interior.PatternColor = B

Selection.EntireColumn.Interior.Pattern = xlPatternGray8

Selection.EntireColumn.Interior.PatternColor = B

Selection.Interior.Pattern = xlPatternAutomatic'上面是修改背景样式，一般很少使用这种格式，所以几乎不存在勿修改的情况

End Sub

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)

Set xlapp.app = Nothing

End Sub

第四步：在左侧工程窗口，右击-添加-模块。

第五步：双击模块，复制如下代码到模块中

Public lampcolor As VariantPublic B As Variant

Public xlapp As New 类1

Sub auto_open()

Set xlapp.app = Application

End Sub

Sub auto_close()

Set xlapp.app = Nothing

' Cells.Interior.ColorIndex = xlNone

Cells.Interior.Pattern = xlPatternAutomatic

End Sub

Sub colorselection()

On Error GoTo 10

A = ActiveWorkbook.Colors(1)

Application.Dialogs(xlDialogEditColor).Show (1)

B = ActiveWorkbook.Colors(1)

ActiveWorkbook.Colors(1) = A

10 ActiveWorkbook.ResetColors

End Sub

第六步：Excel 文件-另存为-加载宏文件

地址就为默认地址就好，默认地址是一个隐藏文件夹，放在这里安全一些

Excel聚光灯加载宏【VBA】

第七步：显示开发工具标签页，文件-选项-自定义功能区，右侧勾选开发工具。

第八步：开发工具-加载项-浏览，找到刚刚另存为的加载宏，确认！

第九步：新建一个Excel，文件-选项-自定义功能区，从图中4的位置下拉选择宏；在图中5位置新建一个选项卡（可以在9位置重命名），新建一个组（也可以重命名），然后在图中7的位置依次将三个宏添加到新建的组中。

第十步：发现Excel工具栏中多了一个标签页，点击open就可以使用了，点击close就关闭，点击colorselection就可以选择颜色。

每当打开一个Excel文件时，默认都是关闭的，防止误修改。

搞定！

以后每打开一个Excel都可以使用聚光灯啦。

wps聚光灯怎么打开

WPS表格软件里面有一项让EXCEL用户比较羡慕的功能，就是阅读模式聚光灯效果。

WPS里面集成了此功能，用户只需要鼠标点击某一单元格时，该单元格所在的行列会自动显亮，在查看、核对数据较多时特别有用。

下面的动画就是WPS聚光灯效果演示：

一起来看看WPS聚光灯功能的使用方法。

第一，WPS聚光灯在哪

关于wps怎么设置聚光灯，非常简单。在“视图”选项卡里面有几个选项：普通、分页预览、全屏显示、阅读模式。其中的“阅读模式”就可以实现聚光灯效果。

第二，wps怎么设置聚光灯

鼠标单击一下“阅读模式”即可开启。选择阅读模式后面倒三角按钮，里面会出现多种颜色，根据自己的工作场景选择一种颜色即可。

选择不同的颜色，会呈现不同的效果，这样我们在查看数据的时候就不容易发生串行串列的现象。

第三，表格取消阅读模式

开启阅读模式，查看数据确实更加方便。不过查看完数据，WPS表格如何取消阅读模式呢？查看完数据，再次单击“阅读模式”按钮，就可以退出阅读模式。

除了上面介绍的方法开启和取消阅读模式，我们还可以在WPS表格界面右下角的状态栏中点“阅读模式”按钮进行切换和控制。

excel也可以实现这个功能，只是方式不同。前面已经分享了的！

excel聚光灯怎么取消

通过设置一个按钮来控制聚光灯功能的随时关闭和开启。效果为：



实现过程：

1、开发工具——插入——ActiveX控件复选框——在设计模式下右键复选框——查看代码，打开代码输入界面，粘贴下面的代码：

Private Sub CheckBox1_Click() If CheckBox1.Value = False Then CheckBox1.Caption = "关" ActiveSheet.Cells.Interior.ColorIndex = xlNone Else CheckBox1.Caption = "开" End IfEnd Sub

2、在表单Worksheet_SelectionChange代码编辑区，修改代码：

Private Sub Worksheet_SelectionChange(ByVal target As Range)If CheckBox1.Caption = "开" Then Call 聚光灯(target)End SubSub 聚光灯(rg As Range)If Application.CutCopyMode = False ThenWith rg.Parent.Cells.Interior.ColorIndex = xlNone.EntireRow.Interior.Color = vbGreen.EntireColumn.Interior.Color = vbCyan.Interior.Color = vbRedEnd WithEnd IfEnd Sub

excel聚光灯设置 如果移动到其他没有的话要怎么做

1、首先ctrl+A全选单元格区域，然后打开开始选项卡中的条件格式——新建规则，

2、然后在新建格式规则对话框中，规则类型选择使用公式确定要设置格式的单元格，在下面公式框中复制公式=OR(CELL(row)=ROW(),CELL(col)=COLUMN())，再打开下面的格式——填充——红色——确定——确定，就可以看到表中有了聚光灯的效果了，但是怎么移动到其他单元格就没有聚光灯效果了？此时按下F9键就可以了。

3、对于函数=OR(CELL(row)=ROW(),CELL(col)=COLUMN())，逻辑函数or有两个参数，表示满足其中一个条件返回true，两个条件都不满足返回false。

4、CELL(row)=ROW()中的cell函数有两个参数，第一个参数表示用于指定所需的单元格的信息类型，这个参数包括address（地址）、row（行数）、filename（工作表名称）等十几种，在单元格中输入函数cell时会自动提示第一个参数。第二个参数表示了解信息的单元格，可以省略，这个函数实际应用比较复杂后续会专门进行介绍。

5、row表示行，col、cloumn表示列。cell（“row”）或者cell（“col”）表示指定单元格的信息类型为行数或者列数，即返回当前活动行或者列，而row（）函数和column（）函数表示当前所在单元格的行或者列。如果返回的活动行或者列满足等于当前单元格所在的行数或者列数其中一个条件，则返回true，否则返回false。运用在条件格式中表示满足条件，返回红色填充。

6、至于F9键，表示手动刷新公式，在excel中利用函数实现一些动态显示效果会用到这个键，比如制作随机抽奖程序等。