EXCEL妙用：选取单元格时改变整行的背景色

打开EXCEL---ALT+F11打开编辑器---CTRL+R打开工程资源管理器---双击左边选择Sheet---输入下面的代码---文件---保存---关闭编辑器回到EXCEL界面即可。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
 Cells.Interior.ColorIndex = xlNone
 Target.EntireRow.Interior.ColorIndex = 34  
End Sub

效果如下：

你也可以设置一列的颜色：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
 Cells.Interior.ColorIndex = xlNone 
 Target.EntireColumn.Interior.ColorIndex = 34   
End Sub