代碼:

代碼如下:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ThisWorkbook.Names.Add "XM", Target

End Sub

這幾行代碼的作用是，當(dāng)選擇新的單元格時(shí)，將這個(gè)單元格(或者區(qū)域)定義為名稱“XM”，在條件格式設(shè)置中可以引用這個(gè)名稱。

如下面的附件，將代碼粘貼完成后，返回工作表中，選擇A4:I15，點(diǎn)擊菜單“格式—條件格式”，設(shè)置：

公式1：=(A4<>"")*(A4=XM)

(如果A4不為空，并且A4等于XM)

公式2：=ROW()=ROW(XM)

(如果當(dāng)前的行號(hào)等于XM的行號(hào))

用代碼定義名稱，我們需要它的即時(shí)更新，鼠標(biāo)點(diǎn)到什么，這個(gè)名稱“XM”就更新什么。

例如，當(dāng)鼠標(biāo)點(diǎn)擊F7單元格，XM便等于F7，ROW(XM)=7，設(shè)置條件格式的區(qū)域中，凡是Row()等于7(說白了就是第7行)的單元格便顯示背景色。

用手工定義也可得到相同的效果，可以試試。然后比較一下，用代碼的好處是什么。

當(dāng)選中B6單元格時(shí)有不一樣的情況出現(xiàn)，是因?yàn)閰^(qū)域中設(shè)置了兩個(gè)條件格式，它符合第一個(gè)條件便顯示第一種格式，符合第二個(gè)條件便顯示第二個(gè)格式。

點(diǎn)擊菜單“格式—條件格式”可看清楚。

初學(xué)有一個(gè)問題？能否把 高亮顯示單元格 做成 自動(dòng)起動(dòng)的宏，讓用戶的鼠標(biāo)單擊工作表的某一個(gè)單元格后，相應(yīng)的行和列都顯示一種 或者 兩種背景色！

直接用VBA設(shè)置背景色，做法如下：

鼠標(biāo)右鍵點(diǎn)擊工作表標(biāo)簽，選擇“查看代碼”，將下面代碼粘貼到光標(biāo)處：

代碼:

代碼如下:

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為顏色索引號(hào)，不同的數(shù)值代表不同的顏色，對(duì)應(yīng)索引如下：

如果工作簿中的每張工作表都有相同效果，應(yīng)該怎么做？

按Alt+F11打開VBE編輯器，在工程管理器中雙擊模塊“ThisWorkbook”，將下面的代碼粘貼到光標(biāo)處：

代碼:

代碼如下:

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

使用了這個(gè)代碼后，表中的“復(fù)制”和“拷貝”功能就被禁止了，不知有無辦法可以解決？

可在代碼第二行(清除顏色之前就行)插入一行代碼：

If Application.CutCopyMode Then Exit Sub '如果處于選取狀態(tài)則退出程序

代碼:

代碼如下:

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

更多信息請(qǐng)查看IT技術(shù)專欄