下面我们就来看看在Excel VBA程序，突出活动单元格（所选单元格）的行和列。这项计划将惊奇和打动你的老板。

现状：

Highlight Active Cell in Excel VBA

每一次我们改变工作表Sheet1上的活动单元格，要执行的宏观需求。您可以通过创建一个工作表selectionChange事件实现这一目标。

1.打开Visual Basic编辑器。

2.双击工作表Sheet1（Sheet1中）在项目资源管理器。

3.从左边的下拉列表中选择工作表。从右侧的下拉列表中选择SelectionChange。

Worksheet SelectionChange Event in Excel VBA

添加以下代码行的工作表SelectionChange事件：

4.我们声明整数类型的四个变量。一位叫rowNumberValue，一个名叫columnNumberValue，一个叫我和一个名为学家

Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer

首先，我们添加它改变了所有单元格的背景色为“无填充”行。

Cells.Interior.ColorIndex = 0

6.我们初始化变量rowNumberValue与活动单元格的行数，并与活动单元格的列数的变量columnNumberValue。

rowNumberValue = ActiveCell.row

columnNumberValue = ActiveCell.column

7.我们强调的列蓝色。那就是：所有与行号小于或等于rowNumberValue和列数等于columnNumberValue细胞

For i = 1 To rowNumberValue

Cells(i, columnNumberValue).Interior.ColorIndex = 37

Next i

说明：本实施例中（见图上文），rowNumberValue等于12和columnNumberValue等于8。对于和下一步之间的行代码将被执行12次。对于i = 1时，Excel VBA颜色的细胞在第1行和列8的交叉点，对于i = 2时，Excel VBA颜色的第2行和第8列，等的交叉点处的细胞

注：代替ColorIndex 37号（蓝色），你可以使用任何ColorIndex数量。

8.以类似的方式，我们突出显示该行的蓝色。那就是：所有与行数的细胞等于rowNumberValue和列数小于或等于columnNumberValue。

For j = 1 To columnNumberValue

Cells(rowNumberValue, j).Interior.ColorIndex = 37

Next j

9.现在是时候来测试程序。下载Excel文件，并了解活动单元格的行和列，每次更改活动单元格时突出显示。