如何突出显示鼠标选定单元格所在的整行整列

如何突出显示鼠标选定单元格所在的整行整列
今天，以前一同事问我这个问题，我帮忙解决后，她大声叫牛。

嘿，赶快记下来，这个小程序时间久了就会忘记的呢。

这个需要用到代码，方法如下：
1.打开需要应用的excel。

2.按ALT+F11，会弹出代码编辑框。

3.在左边会显示出上下两个类别框里，名字分别是Project-VBAProject和Properties-sheet1（这个sheet几是你当前编辑的表单）
(注意：如果什么也新出来的窗口什么也不显示的话，就->视图->工程资源管理器就会出来了，此时你可以在Project-VBAProject和Properties-sheet1上直接右键查看代码，在里面直接粘贴第六条的代码即可）
4.在上面的框边有三个小图标，view code（查看代码）,view project（查看项目），togglefolder（打开或折叠文件夹）。

5.选择view code，会弹出一个编辑框。

6.在编辑框里黏贴下面的语言：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
'清除工作表单元格的背景色
.Parent.Cells.Interior.ColorIndex = xlNone
'设置选中区域所在行的背景色
.EntireRow.Interior.Color = vbGreen
'设置选中区域
所在列的背景色
.EntireColumn.Interior.Color = vbGreen
End With
End Sub
7. 贴完之后，关闭对话框。

关闭编辑框，返回到excel。

8.这时候你再点击任意单元格，就会自动出现你要的效果了。

备注:上面语言中的汉语不用删除，汉语可以可以帮助你了解该行的意思，同时也不会影响编辑效果。

如果对行或列的色彩不满意，可以参考下面的色彩代码，自行修改。

vbBlack 黑
vbRed 红
vbGreen 绿
vbYellow 黄
vbBlue 蓝
vbMagenta 洋红
vbCyan 青
vbWhite 白
上面的办法对已经有填充色的表格是个灾难，它会清楚原有颜色。

需要说明一下，这个只是对行中的sheet进行了设制，有多个sheet的话，需要逐一选中,复制公式的哟。