execel数据行显示颜色

来源：百度知道 编辑：UC知道 时间：2024/05/27 23:46:00
因为数据多怕出错，所以想将数据行以颜色显示，想法如下：
鼠标点击一行，则该行以某种颜色显示（绿色），可以对该行数据进行编辑而颜色不消失。
只是对单行显示颜色，其他行不需要
鼠标点击的一行显示颜色，其他行不显示

Dim yuanlaihang
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim xianzaihang
xianzaihang = Target.Row
If xianzaihang Mod 2 <> 0 Then Rows(xianzaihang).Interior.ColorIndex = 35
'以下2行代码是将原来的行变成无色，如果不需要可以删除。
If yuanlaihang <> xianzaihang Then Rows(yuanlaihang).Interior.ColorIndex = xlNone
yuanlaihang = xianzaihang
'程序结束
End Sub

把上面代码全部copy就可以了。

想法很好,可能要编程了.

可以呀,在该行填充颜色就OK了