Excel VBA程式如何自動高亮顯示當前行和列

用條件格式設定高亮顯示當前行，難的是如何確定當前行。用VBA就很簡單，滑鼠右擊工作表標籤，選擇“檢視程式碼”，將下面的程式碼貼上到VBE視窗中：

  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. ThisWorkbook.Names.Add "XM", Target
  3. 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設定背景色，做法如下：

其中40、36為顏色索引號，不同的數值代表不同的顏色，對應索引如下：

按Alt F11開啟VBE編輯器，在工程管理器中雙擊模組“ThisWorkbook”，將下面的程式碼貼上到游標處：

  1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  2. Dim Rng As Range
  3. Set Rng = Target.Range("a1")
  4. Cells.Interior.ColorIndex = 0 '清除所有背景色
  5. Rng.EntireColumn.Interior.ColorIndex = 40 '設定當前列顏色
  6. Rng.EntireRow.Interior.ColorIndex = 36 '設定當前行顏色
  7. End Sub

如下圖所示：

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

If Application.CutCopyMode Then Exit Sub ’如果處於選取狀態則退出程式

  1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  2. If Application.CutCopyMode Then Exit Sub '如果處於選取狀態則退出程式
  3. Dim Rng As Range
  4. Set Rng = Target.Range("a1")
  5. Cells.Interior.ColorIndex = 0 '清除所有背景色
  6. Rng.EntireColumn.Interior.ColorIndex = 40 '設定當前列顏色
  7. Rng.EntireRow.Interior.ColorIndex = 36 '設定當前行顏色
  8. End Sub