excel醒目阅读设置（Excel的十字阅读模式）

Sub 十字阅读模式(c As Range)

Cells.Interior.Color = xlNone '全部单元格为无颜色

c.EntireRow.Interior.Color = vbYellow '横为黄色

c.EntireColumn.Interior.Color = vbRed '列为红色

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'十字阅读模式,这是表格触发事件，必须写在里面

Call 模块1.十字阅读模式(Target)

End Sub