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

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

用这个编辑,怎么将变色限定在某一区域内。
展开
 我来答
方括号
2012-03-17 · TA获得超过3.8万个赞
知道大有可为答主
回答量:1.7万
采纳率:55%
帮助的人:1.8亿
展开全部
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
本例未加起始列的判断,需要的话可自行加上。
匿名用户
2012-03-17
展开全部
你选中 航就好了 为什么这么麻烦哪 选中行 就高亮显示啊!

插入你的工作表 变成 工作边 专有 最好……然后你就可以根据不同的工作表使用不同的颜色了 难道你想 每次点击的时候 变换不同的颜色?那样的话 加入一个随机变量 就好了……
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
我理解错了 楼上的答案是对的……我以为使变色的颜色限定范围哪……
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式