excel十字交叉高亮顯示

資料選中後，如何十字交叉高亮顯示

一、開啟Excel表格，按以下步驟依次操作開啟VB工程檔案（開發工具——Visual Basic——ThisWorkbook），如下所示：

   

開啟VB工程檔案

   

進入VB編輯器

二、將以下程式碼複製新增到新建的ThisWorkbook工作表中

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Sh.Cells.Interior.ColorIndex = xlNnone

Target.EntireColumn.Interior.ColorIndex = 40

Target.EntireRow.Interior.ColorIndex = 50

End Sub

以上程式碼中數字(40和50)代表顏色值，可以自由切換，切換取值表如下所示：

   

顏色取值表

   

在ThisWorkbook檔案中新增程式碼

三、儲存（Ctrl S）好以上程式碼檔案後，切換到Excel表格頁面，此時隨便選中一個單元格會有十字交叉高亮顯示。

   

十字交叉高亮顯示效果

注意：因為程式碼編寫思路是將所有的單元格背景色去掉，再新增上設定好的深綠色背景色，如果在此之前表格中存在不同的背景色，會被清除。

四、要想在不影響原來設定背景色的情況下，使用十字交叉高亮，需要更換程式碼，如下所示：

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 = 50

End With

With Target.EntireRow

.FormatConditions.Add xlExpression, , "=true"

.FormatConditions(2).Interior.ColorIndex = 50

End With

End Sub

   

在ThisWorkbook檔案中新增新程式碼

   

不影響原來設定背景色的十字交叉高亮顯示效果