用條件格式設(shè)置高亮顯示當(dāng)前行,，難的是如何確定當(dāng)前行,。用VBA就很簡單,，鼠標(biāo)右擊工作表標(biāo)簽,，選擇“查看代碼”,，將下面的代碼粘貼到VBE窗口中
代碼:
復(fù)制代碼 代碼如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Names.Add "XM", Target
End Sub

這幾行代碼的作用是,，當(dāng)選擇新的單元格時，將這個單元格(或者區(qū)域)定義為名稱“XM”,，在條件格式設(shè)置中可以引用這個名稱,。
如下面的附件，將代碼粘貼完成后,，返回工作表中,，選擇A4:I15，點擊菜單“格式—條件格式”,，設(shè)置：
公式1：=(A4<>"")*(A4=XM)
(如果A4不為空,，并且A4等于XM)
公式2：=ROW()=ROW(XM)
(如果當(dāng)前的行號等于XM的行號)
用代碼定義名稱，我們需要它的即時更新,，鼠標(biāo)點到什么,，這個名稱“XM”就更新什么。
例如,，當(dāng)鼠標(biāo)點擊F7單元格,，XM便等于F7，ROW(XM)=7,，設(shè)置條件格式的區(qū)域中,，凡是Row()等于7(說白了就是第7行)的單元格便顯示背景色。
用手工定義也可得到相同的效果,，可以試試。然后比較一下,，用代碼的好處是什么,。
當(dāng)選中B6單元格時有不一樣的情況出現(xiàn)，是因為區(qū)域中設(shè)置了兩個條件格式,，它符合第一個條件便顯示第一種格式,，符合第二個條件便顯示第二個格式。
點擊菜單“格式—條件格式”可看清楚。
初學(xué)有一個問題,？能否把 高亮顯示單元格 做成 自動起動的宏,，讓用戶的鼠標(biāo)單擊工作表的某一個單元格后，相應(yīng)的行和列都顯示一種 或者 兩種背景色,！
直接用VBA設(shè)置背景色,，做法如下：
鼠標(biāo)右鍵點擊工作表標(biāo)簽，選擇“查看代碼”,，將下面代碼粘貼到光標(biāo)處：
代碼:
復(fù)制代碼 代碼如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub

其中40,、36為顏色索引號，不同的數(shù)值代表不同的顏色,，對應(yīng)索引如下：
如果工作簿中的每張工作表都有相同效果,，應(yīng)該怎么做？
按Alt+F11打開VBE編輯器,，在工程管理器中雙擊模塊“ThisWorkbook”,，將下面的代碼粘貼到光標(biāo)處：
代碼:
復(fù)制代碼 代碼如下:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub

使用了這個代碼后，表中的“復(fù)制”和“拷貝”功能就被禁止了,，不知有無辦法可以解決,？
可在代碼第二行(清除顏色之前就行)插入一行代碼：
If Application.CutCopyMode Then Exit Sub '如果處于選取狀態(tài)則退出程序
代碼:
復(fù)制代碼 代碼如下:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub '如果處于選取狀態(tài)則退出程序
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '設(shè)置當(dāng)前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設(shè)置當(dāng)前行顏色
End Sub