最快方式实现WPS的阅读模式

群里小伙伴最近询问最多的就是，Excel能像WPS一样有阅读模式吗？

我回答了无数次没有，要用其他方式才能实现，大部分都要VBA

这里干脆写个教程，来个最简单就能实现的办法，快速无脑直接操作

按照我视频操作，５秒钟实现

不信，跟 * 作一次

先上代码

‘全部放在工作表模块里，执行FormatCondition程序，就实现了阅读模式(聚光灯)’生成条件格式Sub FormatCondition() Dim tj As Object Range(“A2:T300”).Select ‘是聚光灯范围，可以根据情况改，去掉第一行表头了 Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ “=OR(ROW()=CELL(“”row””),COLUMN()=CELL(“”col””))” Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .Color = RGB(226, 239, 218) ‘是显示颜色可以改，这里是浅绿色 End With Selection.FormatConditions(1).StopIfTrue = FalseEnd Sub’重算代码，放到工作表模块里Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub’取消全部条件格式，这个要慎重使用，直接全部取消了Sub QuickCondition() Cells.FormatConditions.DeleteEnd Sub

代码可以直接往右划