请excel高手们帮忙解答一下这个问题的。谢谢!

2024-11-17 10:43:18
推荐回答(2个)
回答1:

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行,则变色,否则不变色。

回答2:

你选中 航就好了 为什么这么麻烦哪 选中行 就高亮显示啊!

插入你的工作表 变成 工作边 专有 最好……然后你就可以根据不同的工作表使用不同的颜色了 难道你想 每次点击的时候 变换不同的颜色?那样的话 加入一个随机变量 就好了……
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
我理解错了 楼上的答案是对的……我以为使变色的颜色限定范围哪……