Excel行列十字交叉高亮显示(20200802234943).pdf

精品文档 Excel 行列十字交叉高亮显示 Excel 行列十字交叉高亮显示！ Excel 中数据量比较大 时，有时候容易看花钱，行号列号看错，这个时候，可以使 用简单的 VBA语句对选中单元格的行列进行高亮显示，效果 如下所示：本节介绍两种思路进行 VBA编程方法，可以直接 复制粘贴使用！ 都是按 ALT F11 ，在 Thisworkbook 中粘贴代码 （1 设置条件格式 方法一的原理是通过对点击的单元格对应的行、列进行设置 条件格式的方法。 适用工作表：原工作表中没有设置任何的条件格式，因为标 红的那条代码会将工作表中的所有条件格式进行删除！ 方法一 VBA代码 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.FormatConditions.Delete With Target.EntireColumn .FormatConditions.Add xlExpression, , '=true' .FormatConditions(1).Interior.Color Index = 36 End With With Target.EntireRow .FormatConditions.Add 。 1欢迎下载 精品文档 xlExpression, , '=true' .FormatConditions(2).Interior.Color Index = 36 End WithEnd Sub 代码解释： FormatConditions 表示条件格式 Target 表示选 择区域 entirecolumn 表示整列 entirerow 表示整行首先将 工作表中的条件格式进行删除然后将所选区域的整列设置 条件格式，公式为 =true ，同时颜色设置为 36 ，如同 Excel 操作中的这一步：然后将所选单元格的整行也设置成一样， 便得到了十字交叉高亮效果 2 设置单元格底色 方法二的原理是通过对点击的单元格对应的行、列进行设置 单元格的底色。 适用工作表：原工作表中的单元格没有设置任何的颜色，因 为标红的那条代码会将工作表中的原来所有带颜色的单元 格自动清空！方法二 VBA代码 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sh.Cells.Interior.ColorIndex = xlNone Target.EntireColumn.Interior.ColorIndex = 36 Target.EntireRow.Interior.ColorIndex = 36End Sub 代码解释 interior 表示单元格颜色首先将所选单元格颜色 清空，然后将选择的单元格的所有行和所有列的颜色填充为 。 2欢迎下载 精品文档 颜色代码 36 下次需要十字交叉高亮的时直接将代码复制就 可以实现了。