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