Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = 0
If Target.Row > 5 And Target.Row < 25 Then
Target.EntireRow.Interior.ColorIndex = 3
End If
End Sub
如果选择行在5到25行,则变色,否则不变色。
你选中 航就好了 为什么这么麻烦哪 选中行 就高亮显示啊!
插入你的工作表 变成 工作边 专有 最好……然后你就可以根据不同的工作表使用不同的颜色了 难道你想 每次点击的时候 变换不同的颜色?那样的话 加入一个随机变量 就好了……
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
i = Rnd() * 25 + 3
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = i
End Sub
我理解错了 楼上的答案是对的……我以为使变色的颜色限定范围哪……