如下图1所示，活动单元格显示一种颜色，其所在的行和列显示另一种颜色。
图1
这是怎么实现的呢？公式 条件格式 VBA。
首先，单击工作表左上角的交叉区域，选中工作表所有单元格。然后，单击功能区“开始”选项卡的“条件格式—新建规则”，在弹出的“新建格式规则”对话框的“选择规则类型”中选择“使用公式确定要设置格式的单元格”，在“为符合此公式的值设置格式”中输入公式：
=CELL("row")=ROW()
单击该对话框中的“格式”按钮，在“设置单元格格式”对话框中选择“填充”选项卡，选择一种颜色后，单击“确定”按钮回到“新建格式规则”对话框，如图2所示，单击“确定”按钮。
图2
按Alt F11键，打开VBE编辑器，在工作表代码模块中，输入下列事件代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub
回到工作表中，此时的效果如下图3所示，在活动单元格所在的行会高亮显示。
图3
如前所述，单击工作表左上角的交叉区域，选中工作表所有单元格。按上述操作，设置条件格式，如下图4所示。
图4
此时的效果如下图5所示，活动单元格所在的行列都高亮显示。
图5
我们接着来设置条件格式。仍然选中工作表的所有单元格，设置条件格式如下图6所示。
图6
使用的公式为：
=AND(CELL(“col”)=COLUMN(),CELL(“row”)=ROW())
设置完成后，效果如下图7所示。
图7
注意，上述最后一个公式设置必须“条件格式规则管理器”中的第1个公式，否则其格式设置将会被覆盖，如下图8所示。
