Excel选择某单元格整行变色方法.docVIP

Excel选择某单元格整行、整列就变色的方法 ??? 在使用Excel处理数据的时候，数据的输入是最关键的部分。 　　如果您在输入数据的时候，尤其是数据量比较大的情况，往往会因为无法直观的判断单元格所在的行，导致输入的数据输入到其它的行！ 　　那么，有没有一种办法，能让我们实现，一旦选择了哪个单元格，该单元格的所在的行的颜色会发生改变，这样，我们就能直观的看出，数据应该输入到哪行了。 　　根据目前的情况，要实现这样的效果，只能使用VBA来实现，下面是方法，请君过目。 　　如下图，这是正常情况下的效果，当我们选择一个单元格后，只有这个单元格边框颜色有所变化，该行的其它单元格，都未发生任何变化。 　　现在，我们要做的就是，如下图一样，一旦选择了某个单元格，那么，该单元格所在的行，颜色发生改变，以方便我们录入数据。 　　实现的方法是，在工作表名称(如：Sheet1)上点击右键，在弹出的快捷菜单中选择“查看代码”，如下图！ 　　接下来，会弹出VBA代码编写窗口，如下图！ 　　上图中，在Sheet1上点击右键，选择“查看代码”，弹出代码编写窗口。 　　现在，我们要做的就是输入VBA功能代码了，代码如上图！记住，先选择好Worksheet对象名称和SelectionChange事件名称，然后在窗口中输入如上图右边的那些代码。 　　为方便大家学习，下面粘贴出源代码： 　　Private Sub Worksheet_SelectionChange(ByVal Target As Range) 　　Rows().Interior.ColorIndex = 0 　　x = ActiveCell.Row 　　Rows(x).Interior.ColorIndex = 28 　　End Sub 　　部分代码解释：Rows(x).Interior.ColorIndex = 28，其中的28，指的是颜色的代码，您可以从1到几百中选择一个颜色的值，此处可修改。至于其它地方，如果您不懂，千万别修改。 excel某一单元格，怎么实现让整行整列都变色，离开后单元格颜色恢复为原来。 代码如下： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Rows(Target.Row).Interior.ColorIndex = 20 Columns(Target.Column).Interior.ColorIndex = 20 End Sub 附excel颜色代码表：