Question

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

如何在excel中设置，选定某个单元格那一行自动变颜色？
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 3
End Sub

用这个编辑，怎么将变色限定在某一区域内。

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

追问

那么列呢？

追答

再加列的判断。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = 0
If Target.Row > 5 And Target.Row < 25 And Target.Column < 10 Then
Range("A" & Target.Row & ":I" & Target.Row).Interior.ColorIndex = 3
End If
End Sub
本例未加起始列的判断，需要的话可自行加上。

Answer 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
我理解错了 楼上的答案是对的……我以为使变色的颜色限定范围哪……