对于财务人员核对数据是个眼里活，满屏幕的数据，很容易看错行，如果当你选中数据后，行和列自动使用不同的格式着重体现，将是一个不错的选择。本经验从头至尾教你制作一个属于自己的聚光灯加载宏。
工具/原料
Excel、VBE
方法/步骤
1、先看效果图，本聚光灯的效果是修改的单元格的背景样式，不会改变原有的底色和边框。
2、注意，由于水平有限，制作出来的聚光灯有一个缺陷，使用后会将未使用的单元格添加白色背痔辏哔刂景，如果您的数据使用了边框和底色，将不会受到影掌哆谜牌响，从下图可以看出，没有使用到的单元格的网格线看不到了。如果对这个有介意的，可以忽略本方法，网络上有成熟的插件，使用起来效果会更好。
3、第一步：新建一个Excel，名称自己喜欢就好。右击标签页-查看代码，打开代码编辑窗口
4、第二步：在左侧工程界面右击-添加-类模块
5、第三步：双击打开类模块编辑窗口，复制如下代码到类模块PublicWithEventsa圬桦孰礅ppAsExcel.Applicat足毂忍珩ionPrivateSubapp_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)Cells.Interior.Pattern=xlPatternAutomaticSelection.EntireRow.Interior.Pattern=xlPatternGray8Selection.EntireRow.Interior.PatternColor=BSelection.EntireColumn.Interior.Pattern=xlPatternGray8Selection.EntireColumn.Interior.PatternColor=BSelection.Interior.Pattern=xlPatternAutomatic'上面是修改背景样式，一般很少使用这种格式，所以几乎不存在勿修改的情况EndSubPrivateSubapp_WorkbookOpen(ByValWbAsWorkbook)Setxlapp.app=NothingEndSub
6、第四步：在左侧工程窗口，右击-添加-模块
7、第五步：双击模块，复制如下代码到模块中PubliclampcolorAsVarian隋茚粟胫tPublicBAsVariantPubl足毂忍珩icxlappAsNew类1Subauto_open()Setxlapp.app=ApplicationEndSubSubauto_close()Setxlapp.app=Nothing'Cells.Interior.ColorIndex=xlNoneCells.Interior.Pattern=xlPatternAutomaticEndSubSubcolorselection()OnErrorGoTo10A=ActiveWorkbook.Colors(1)Application.Dialogs(xlDialogEditColor).Show(1)B=ActiveWorkbook.Colors(1)ActiveWorkbook.Colors(1)=A10ActiveWorkbook.ResetColorsEndSub
8、第六步：Excel文件-另存为-加载宏文件地址就为默认地址就好，默认地址是一个隐藏文件夹，放在这里安全一些
9、第七步：显示开发工具标签页，文件-选项-自定义功能区，右侧勾选开发工具
10、第八步：开发工具-加载项-浏览，找到刚刚另存为的加载宏，确认！
11、第九步：新建一个Excel，文件-选项-自定义功能区，从图中4的位置下拉选择宏；在图中5位置新建一个选项卡（可以在9位置重命名），新建一个组（也可以重命名），然后在图中7的位置依次将三个宏添加到新建的组中。
12、第十步：发现Excel工具栏中多了一个标签页，点击open就可以使用了，点击close就关闭，点击colorselection就可以选择颜色。每当打开一个Excel文件时，默认都是关闭的，防止误修改。搞定！以后每打开一个Excel都可以使用聚光灯啦。
