excel聚光灯怎样不用按f9

‘壹’ 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 如何编写代码,设置自动刷新,不用F9键

Private Sub CommandButton1_Click()
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler 'ESC键终止刷新
While True
Calculate '刷新，相当于按 F9
Wend
handleCancel:
'If Err = 18 Then
' MsgBox "You cancelled"
'End If
End Sub

‘叁’ 如何让在excel中被选中的单元格所在的行和列高亮显示

1、按Ctrl + A选中整张表格，点击【开始】菜单下的【条件格式】，选择【新建规则】。

‘肆’ excel十字定位或聚光灯制作

大家好，我是小西，一个周末还要加班的人。本来以为周末可以放假，可以愉快地去玩耍，结果被老板喊过来加班。Excel表格数据实在是太多了，看得我眼睛都要累死了。对了差点忘了Excel还有聚光灯功能，下面就跟大家分享一下。

2、点击【使用公式确定格式】，接着输入公式：=(CELL("col")=COLUMN())+(CELL("row")=ROW())

受篇幅限制详细内容点击下方链接查看

Excel数据太多，眼睛很累怎么办，教你快速设置聚光灯

‘伍’ 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都可以使用聚光灯啦。

‘陆’ 制作核对数据聚光灯，excel怎么突出显示单元格

方法/步骤

1
我们做这个主要是要实现，在所选的单元格突出显示，然后分别对应行和列。就跟横纵坐标指示一样，这样在大量的工作表数据中就可以方便的进行核对。不然数据量大的看久了容易眼花。
2
我们选中数据内容。如果数据单元格比较大的话，可以直接在开始选项卡功能区的名称框中输入起始行列。比如我们输入A1:F13，按下回车键就会选中该区域的数据。

3
在开始菜单功能区下，点击条件格式，选择新建规则。

4
在新建格式规则对话框中，点击选择“使用公式确定要设置格式的单元格”。
然后在“为符合此公式的值设定格式”中输入公式。
我们输入公式
=CELL("address") =ADDRESS(ROW(),COLUMN())

这个公式是什么意思呢？
=CELL("address")这个是返回最后活动单元格的地址。
=ADDRESS(ROW(),COLUMN())这个是返回公式所在单元格地址。
整个公式就是活动单元格的地址如果等于公式所在单元格地址，那么就返回一个逻辑值是。

公式写好后，为其设置指定格式。点击格式。格式中可以按实际需要设置需要的格式，这里我们为其选定一个填充黄色的底色。

这时预览区就显示了黄色，我们点击确定。
看下效果，我们双击任意一个单元格时，这个单元格就会以黄色突出显示。

下面我们要为其他设置行列跟随突出显示。
同样我们选中数据，开始菜单功能区下点击条件格式，选择新建规则。
在新建格式规则对话框中，点击选择“使用公式确定要设置格式的单元格”。
然后在“为符合此公式的值设定格式”中输入公式：
=OR(AND(CELL("row")=ROW(),CELL("col")>COLUMN()),AND(CELL("col")=COLUMN(),CELL("row")>ROW()))
然后点击格式，选择行列要填充的颜色，我们选择一个蓝色的，然后确定。

这里简单说下=OR(AND(CELL("row")=ROW(),CELL("col")>COLUMN()),AND(CELL("col")=COLUMN(),CELL("row")>ROW()))这个公式的功能。这个有两个条件。
条件一：AND(CELL("row")=ROW(),CELL("col")>COLUMN()) 最后活动单元格的行号等于公式所在单元格的行号，最后活动单元格的列号大于公式所在单元格的列号。
条件二：AND(CELL("col")=COLUMN(),CELL("row")>ROW()) 最后活动单元格的列号等于公式所在单元格的列号，最后活动单元格的行号大于公式所在单元格的行号。
这两个条件满足其一的，返回一个逻辑值 是。

这样一个聚光灯的一个雏形就出来。但是我们发现当双击新的目标单元格时，条件格式并不能实时的跟踪变化，需要按下F9才会刷新变化。这们的话就不够便捷了，为此我们给他写上一个简单的VBA代码，当活动单元格变化时强制立即更新窗口。

按ALT+F11打开VBA窗口，在资源管理器中，双击最下面的那个 ThisWorkbook。

在代码输入
Private Sub workbook_SheetSelectionChange(ByVal Sh As Object, ByVal target As Range)
Application.ScreenUpdating = True
End Sub
然后关闭这个VBA窗口。

现在我们再看看，单击任意一个单元格，聚光灯就立即更新了。这样就完成了，保存即可。
这样的一个聚光灯就可以帮我们在大量的数据中精确显示对应相关的内容，不容易造反对应错误，减少眼睛疲劳

刚才我们用到的函数补充说明：
CELL("address")是返回最后活动单元格的地址。
CELL("row")和CELL("col")分别返回最后一个活动单元格的行号和列号信息。

‘柒’ excel如何设置这个功能

这个叫聚光灯，

WPS内置此功能

OFFICE需要下载方方格子或者易用宝的EXCEL插件使用，也可以编写个VBA代码