EXCEl选中变色..docVIP

[EXCEL]加亮显示选中单元格的所在行与列 我们经常会遇到这种情况，当某条记录有较多字段时，我们选中了这一行或这一行的某个单元格，要查看该记录的其它内容时，常常会感到眼睛比较累，有时还会看走眼，看到其它的记录行去了。如果能让选中的这一行突出显示出来，以区别于其它记录行，就不会出现这种情况了。这样，在工作表中进行选择时，也会感到较为轻松。 为了能够突出显示被选单元格所在行，我们就需要知道该单元格所在的行号，再依此改变该行部分或全部单元格的填充颜色即可。要实现这一功能，就要借助于VBA和单元格的条件格式功能了。 右击工作表标签，从弹出的快捷菜单中选择：“查看代码”，或者按下Alt+F11组合键，进入VBA代码窗口，键入如下代码：（代码有以下几种，可根据用户的需要进行选择，不够都有个缺点就是不能在本工作表内无法进行复制粘贴操作，若有哪位知道的话，请留言告诉我下，学习学习！） 一、行列都变色,可填充,不能复制,可多行多列变色、可不断变化各种色彩（推荐使用） Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete iColor = Int(50 * Rnd() + 2) With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , TRUE .Item(1).Interior.ColorIndex = iColor End With With Target.EntireColumn.FormatConditions .Delete .Add xlExpression, , TRUE .Item(1).Interior.ColorIndex = iColor End With End Sub 二、行变色,可填充,不能复制,可多行变色、可不断变化各种色彩（推荐使用） Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , TRUE .Item(1).Interior.ColorIndex = Int(50 * Rnd() + 2) End With End Sub 三、列变色,可填充,不能复制,可多列变色、可不断变化各种色彩（推荐使用） Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireColumn.FormatConditions .Delete .Add xlExpression, , TRUE .Item(1).Interior.ColorIndex = Int(50 * Rnd() + 2) End With End Sub 四、单元格变色,可填充,不能复制,可多格变色、可不断变化各种色彩（推荐使用） Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.FormatConditions .Delete .Add xlExpression, , TRUE .Item(1).Interior.ColorIndex = Int(50 * Rnd() + 2) End With End Sub 五、行变色,可填充,不能复制,可多行变色 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) O