Excel行列十字交叉高亮显示! 本节介绍两种思路进行VBA编程方法,可以直接复制粘贴使用! 都是按ALT F11,在Thisworkbook中粘贴代码 ( 方法一的原理是通过对点击的单元格对应的行、列进行设置条件格式的方法。 适用工作表:原工作表中没有设置任何的条件格式,因为标红的那条代码会将工作表中的所有条件格式进行删除! 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.ColorIndex = 36 End With With Target.EntireRow .FormatConditions.Add xlExpression, , '=true' .FormatConditions(2).Interior.ColorIndex = 36 End With End Sub 代码解释: FormatConditions表示条件格式 Target表示选择区域 entirecolumn表示整列 entirerow表示整行 首先将工作表中的条件格式进行删除 然后将所选区域的整列设置条件格式,公式为=true,同时颜色设置为36,如同Excel操作中的这一步: 然后将所选单元格的整行也设置成一样,便得到了十字交叉高亮效果 方法二的原理是通过对点击的单元格对应的行、列进行设置单元格的底色。 适用工作表:原工作表中的单元格没有设置任何的颜色,因为标红的那条代码会将工作表中的原来所有带颜色的单元格自动清空! 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 = 36 End Sub 代码解释interior表示单元格颜色 首先将所选单元格颜色清空, 然后将选择的单元格的所有行和 所有列的颜色填充为颜色代码36 下次需要十字交叉高亮的时直接将代码复制就可以实现了。 |
|