本篇文章给大家谈谈excel筛选聚光灯，以及excel聚光效果对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。
本文目录：
为什么excel聚光灯输入vba后实现不了自动跟踪自动
excel聚光灯输入vba后可以实现自动跟踪。
1、excel中的聚光灯功能，当我们选择行跟列的时候交叉部分的颜色会深一点，这就是聚焦效果。
2、然后我们进行点击打开工作簿按ctrl+q进行打开点击就可以出现效果。
3、接下来我们新建工作簿进行实现打开关闭，ctrl+q打开，ctrl+w关闭。
4、我们进行打开VBA进行编辑代码如图所示。
5、然后我们看一下mycls进行编辑如图所示。
Excel 数据随机分组，看完这篇，不再烧脑细胞了
给定一定数量的数据，要求随机分成 n 组，这种问题实际中经常会遇到。例如，老师将学生随机分组讨论课本，部门将员工随机分组参加活动等等。
关于「随机」数，Excel 提供 RAND 和 RANDBETWEEN 函数，帮助我们产生随机数。关于分组的问题，我们用 RAND 函数，给大家介绍一个通用的方法。你学会后，再多的数据也不到 1 分钟就能分组完成。
RAND 函数可以产生一个介于 0 和 1 之间的小数，并且每个随机数均不相同，可以作为目标数据对应的唯一值。公式如下：
上一步产生的数字，因此可以对其排序。并且每个随机数都不相同，排序后，将得到连续唯一的排序值。公式如下：
上一步之后，我们将得到从 1 到总数的连续值。这一步，将排序值除以要求的组数量，提取余数，代表对应的组号。求余数，Excel 提供了 MOD 函数。为了便于理解，余数统一加 1，并且连接“组”字。通用公式如下：
至此就完成了随机分组。RAND 函数在工作簿变化时，都会重新计算一次，因此可使用 F9 键，刷新分组结果。
1.如果总数量不被组数整除，第一组开始将缺少一个数据，需要注意。
2.为了不让随机数据更新，可以将工作表设置成手动计算，然后用 F9 键手动刷新结果。
3.通过筛选或公式，可以将分组效果展开二维展示，便于查看。
其他 Excel 的实际应用
Excel 如何确定任意年任意月的天数？
小白也能学会的 Excel 聚光灯效果设置教程
996 工作制 2018 年多上几天班？ | 函数应用
Excel 中快速对比两列数据的 3 种方法 -
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筛选聚光灯和excel聚光效果的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。