|
Excel行列十字交叉高亮顯示！  本節(jié)介紹兩種思路進(jìn)行VBA編程方法，可以直接復(fù)制粘貼使用！ 都是按ALT F11，在Thisworkbook中粘貼代碼 （ 方法一的原理是通過對(duì)點(diǎn)擊的單元格對(duì)應(yīng)的行、列進(jìn)行設(shè)置條件格式的方法。 適用工作表：原工作表中沒有設(shè)置任何的條件格式，因?yàn)闃?biāo)紅的那條代碼會(huì)將工作表中的所有條件格式進(jìn)行刪除！ 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表示選擇區(qū)域 entirecolumn表示整列 entirerow表示整行 首先將工作表中的條件格式進(jìn)行刪除 然后將所選區(qū)域的整列設(shè)置條件格式，公式為=true，同時(shí)顏色設(shè)置為36，如同Excel操作中的這一步： 然后將所選單元格的整行也設(shè)置成一樣，便得到了十字交叉高亮效果 方法二的原理是通過對(duì)點(diǎn)擊的單元格對(duì)應(yīng)的行、列進(jìn)行設(shè)置單元格的底色。 適用工作表：原工作表中的單元格沒有設(shè)置任何的顏色，因?yàn)闃?biāo)紅的那條代碼會(huì)將工作表中的原來所有帶顏色的單元格自動(dòng)清空！ 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 下次需要十字交叉高亮的時(shí)直接將代碼復(fù)制就可以實(shí)現(xiàn)了。 |
|
|
