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

放放放手 2023-03-20 01:29:16

写入模块

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

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

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

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

End Sub

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

写入表格的私自代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

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

End Sub

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

免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。文章投诉邮箱：anhduc.ph@yahoo.com