2. 双击项目工程Excel对象下的Sheet1，注意在代码框中顶部的两个选项。3. 在第一个选项框中选择Worksheet，也就是当前活跃的工作表Sheet1。4. 在第二个选项框中，选择SelectionChange，也就是选区变化事件。
5. 选择好了之后在代码框中会自动写入一个过程，就是当前活动工作表选区改变的过程。Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub
6. 将已经写好的填充颜色的代码放入上面的过程中；关于如何通过VBA代码设置单元格颜色，请参考下面的文章。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.Pattern = xlNoneSelection.EntireRow.Interior.Color = 65535End Sub
7. 回到Excel的Sheet1工作表中，当点击任一单元格时，该单元格所在的整行都会填充颜色。以上的过程可以帮助我们在查看大量数据时可以突出显示所选的数据所在行。
以上案例仅用于演示，更多实际应用请根据自己的需要进行相关的细节设计。已下架