excel vba 高亮顯示當前行代碼

代碼: 複製代碼 代碼如下:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Names.Add "XM", Target
End Sub

這幾行代碼的作用是，當選擇新的儲存格時，將這個儲存格(或者地區)定義為名稱“XM”，在條件式格式設定設定中可以引用這個名稱。
如下面的附件，將代碼粘貼完成後，返回工作表中，選擇A4:I15，點擊菜單“格式—條件式格式設定”，設定：
公式1：=(A4<>"")*(A4=XM)
(如果A4不為空白，並且A4等於XM)
公式2：=ROW()=ROW(XM)
(如果當前的行號等於XM的行號)
用代碼定義名稱，我們需要它的即時更新，滑鼠點到什麼，這個名稱“XM”就更新什麼。
例如，當滑鼠點擊F7儲存格，XM便等於F7，ROW(XM)=7，設定條件式格式設定的地區中，凡是Row()等於7(說白了就是第7行)的儲存格便顯示背景色。
用手工定義也可得到相同的效果，可以試試。然後比較一下，用代碼的好處是什麼。
當選中B6儲存格時有不一樣的情況出現，是因為地區中設定了兩個條件式格式設定，它符合第一個條件便顯示第一種格式，符合第二個條件便顯示第二個格式。
點擊菜單“格式—條件式格式設定”可看清楚。
初學有一個問題？能否把 高亮顯示儲存格 做成 自動起動的宏，讓使用者的按一下滑鼠工作表的某一個儲存格後，相應的行和列都顯示一種 或者 兩種背景色！
直接用VBA設定背景色，做法如下：
滑鼠右鍵點擊工作表標籤，選擇“查看代碼”，將下面代碼粘貼到游標處：
代碼: 複製代碼 代碼如下: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 '設定當前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設定當前行顏色
End Sub

其中40、36為色彩索引號，不同的數值代表不同的顏色，對應索引如下：
如果活頁簿中的每張工作表都有相同效果，應該怎麼做？
按Alt+F11開啟VBE編輯器，在工程管理器中雙擊模組“ThisWorkbook”，將下面的代碼粘貼到游標處：
代碼: 複製代碼 代碼如下: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 '設定當前列顏色
Rng.EntireRow.Interior.ColorIndex = 36 '設定當前行顏色
End Sub

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