室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

excel选中行变色完整代码和动画效果

[日期:2012-03-06]   来源:IT部落窝  作者:IT部落窝   阅读:2086[字体: ]
内容提要:文章介绍excel选中行变色的效果以及实现选中行变色的VBA代码。

  在excel中如果行数过多,经常核对数据的准确性,容易错行跳行,所以才有本文的小技巧:excel选中行变色。

  当我们在excel工作表中,鼠标随便选择某一行的某一个单元格,那么选中行变色。

  下面是excel选中行变色的动画效果展示:

excel选中行变色

  excel选中行变色的操作步骤如下:

  在工作表名称上单击右键,比如"Sheet1"工作表,选择“查看代码”,复制下面的代码,然后关闭VBE编辑器,回到excel工作表测试效果,任意单击一个单元格,相应的选中行将变色。

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 = 7
End With
End Sub

  上面这段代码严谨之处在于,如果单元格本身填充了颜色,以前的颜色不会消去。

  下面这段代码依然可以实现选中行变色,但是如果单元格自身填充了颜色,当鼠标选择整行后,以前的填充色将会被自动消去。而且不支持多选,比如选择几行,变色的仍然只有一行。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Rows.Interior.ColorIndex = xlNone
    Rows(Target.Row).Interior.ColorIndex = 7
End Sub

  另外一种excel自动变色效果,是当符号某一条件,那么整行变色。这种效果可以使用条件格式完成。请参考文章:excel条件格式整行变色的详细方法www.ittribalwo.com/article/1518.html

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程