Excel行列十字交叉高亮顯示(共3頁)

1、Excel行列十字交叉高亮顯示 Excel行列十字交叉高亮顯示！Excel中數(shù)據(jù)量比較大時(shí)，有時(shí)候容易看花錢，行號(hào)列號(hào)看錯(cuò)，這個(gè)時(shí)候，可以使用簡(jiǎn)單的VBA語句對(duì)選中單元格的行列進(jìn)行高亮顯示，效果如下所示：本節(jié)介紹兩種思路進(jìn)行VBA編程方法，可以直接復(fù)制粘貼使用！都是按ALT F11，在Thisworkbook中粘貼代碼（1設(shè)置條件格式方法一的原理是通過對(duì)點(diǎn)擊的單元格對(duì)應(yīng)的行、列進(jìn)行設(shè)置條件格式的方法。適用工作表：原工作表中沒有設(shè)置任何的條件格式，因?yàn)闃?biāo)紅的那條代碼會(huì)將工作表中的所有條件格式進(jìn)行刪除！方法一VBA代碼Private Sub Workbook_SheetSelectionChang

2、e(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.Color

3、Index = 36 End WithEnd Sub代碼解釋：FormatConditions表示條件格式Target表示選擇區(qū)域entirecolumn表示整列entirerow表示整行首先將工作表中的條件格式進(jìn)行刪除然后將所選區(qū)域的整列設(shè)置條件格式，公式為=true，同時(shí)顏色設(shè)置為36，如同Excel操作中的這一步：然后將所選單元格的整行也設(shè)置成一樣，便得到了十字交叉高亮效果2設(shè)置單元格底色方法二的原理是通過對(duì)點(diǎn)擊的單元格對(duì)應(yīng)的行、列進(jìn)行設(shè)置單元格的底色。適用工作表：原工作表中的單元格沒有設(shè)置任何的顏色，因?yàn)闃?biāo)紅的那條代碼會(huì)將工作表中的原來所有帶顏色的單元格自動(dòng)清空！方法二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表示單元格顏色首先將所選單元格顏