作者：小北童鞋
来源：芒种学院(ID：lazy_info)
N久之前我们分享过利用VBA+条件格式实现「聚光灯」的效果，近期一位小伙伴给Boss使用上了，收到了如下反馈信息：
“老板觉得聚光灯很好用，但是使用聚光灯的时候，字体能不能单独放大一些”
其原因是数据一多，看电脑上的字体就密密麻麻地特别小，果真天下老板的需求都是各式各样，非常奇葩。
当然作为一个合格的职场人，Boss的需求怎么能不满足呢？
小北特意对「聚光灯」功能进行了升级，实现了如下效果：
①点击非「标题行」单元格时，该行字体自动放大、背景色聚光：
②点击「J1」单元格时，会自动切换激活开关：
都说红配绿赛狗屁，这回眯着眼也能看清数据了，终于可以下班了！
是不是非常帅！那么这个功能是如何实现的呢？快来和小北一起学习下吧~
首先打开需要操作的Excel文档，右击需要操作的「Sheet表」，找到「查看代码」，如下：
然后将这一段代码全部粘贴到VBA编辑器中，代码如下：
DimxrowAsLong,xcolorAsByte,bgcolorAsByte,xsizeAsBytePrivateSubWorksheet_SelectionChange(ByValTargetAsRange)OnErrorResumeNext单点击j1单元格时，修改j1单元格数据IfInStr("J1",Target.Address)0ThenTarget.Value=IIf(Target.Value=1,0,1)EndIfj1单元格不能与，且当前激活行号为1时，则恢复以前激活单元格的样式，然后中断程序If[j1]1OrTarget.Row=1ThenRows(xrow).Font.Size=xsizeRows(xrow).Font.ColorIndex=xcolorRows(xrow).Interior.ColorIndex=bgcolorExitSubEndIf行号大于1时，修改上次激活的单元格样式并继续执行程序Ifxrow1ThenRows(xrow).Font.Size=xsizeRows(xrow).Font.ColorIndex=xcolorRows(xrow).Interior.ColorIndex=bgcolorEndIf记录上次激活的行号，文字大小，颜色xrow=Target.Rowxsize=Target.Font.Sizexcolor=Target.Font.ColorIndexbgcolor=Target.Interior.ColorIndex更改本次激活的字体大小，颜色Rows(xrow).Font.Size=24Rows(xrow).Font.ColorIndex=3Rows(xrow).Interior.ColorIndex=4EndSub
▲左右滑动即可查看完整代码
接下来将文档另存为「.xlsm」格式，如下：
现在就可以潇洒地实现这个升级版的聚光灯功能啦，是不是非常简单~
来简单解释下这段代码的编写流程：
利用4个变量分别统计本次激活单元格的位置/文字大小/颜色/背景色；
然后在修改本次激活单元格的样式；
下次激活其他单元格时，复原上次单元格样式；
当点击J1单元格时，变更其数值，使状态更改；
当然啦，至于颜色选不选择“绿配红”，就要看你自己啦，在代码中同样可以修改颜色，使用RGB或者颜色索引的方式。
你学会了么？不会的话，也没关系，上面那段代码直接复制就OK啦~
另外代码只兼容Excel，使用WPS的小伙伴，暂时不能使用这个功能。
好了，那么关于「放大字体版的聚光灯」制作技巧分享到这里了，如果你还有其他关于Excel/职场办公的使用技巧，可以在文章下进行留言哦~