[已解决]根据不同选择，单元格所在行变不同的颜色。

xinqinglhj

我的要求是这样的：
有一列单元，是序列形式，【A,B,C,D】
比如我选择 A 时，这一行（ A-----F列 ）变红色，
选B时，这一行（ A-----F列 ）变灰色，


已上传附件。

最佳答案

月排行榜 / 总排行榜

易安1

2014-7-29 15:56

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Column = 3 Then
   
4. If Target.Value = "完成" Then
   
5.     Range("B" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 46
   
6. ElseIf Target.Value = "对应中" Then
   
7.     Range("B" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 19
   
8. ElseIf Target.Value = "再现" Then
   
9.     Range("B" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 6
   
10. End If
    
11. End If
    
12. End Sub
    

复制代码

替换即可，需要更多颜色自行添加elseif 即可

跳转到最佳答案楼层

易安1

上测试附件 写清楚 给你写一段

tgydslr

上附件吧，看图对照你说的是没看懂你要干什么

xinqinglhj

自己顶起来。

xinqinglhj

易安1 发表于 2014-7-29 12:07
上测试附件 写清楚 给你写一段

已添加附件。

易安1

xinqinglhj 发表于 2014-7-29 13:44
已添加附件。

ABCD 序号在哪里 A_F列 还是B-G列？？？{:031:}

xinqinglhj

易安1 发表于 2014-7-29 14:09
ABCD 序号在哪里 A_F列 还是B-G列？？？

excel 附件 是 B-G 列，这里只是举个例子。

按照 B-G 列吧。

xinqinglhj

易安1 发表于 2014-7-29 14:09
ABCD 序号在哪里 A_F列 还是B-G列？？？

是不是 通过 条件格式就可以完成此功能？

易安1

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)‘粘贴到对应工作表下
   
2. With Cells.Interior
   
3.         .Pattern = xlNone
   
4.         .TintAndShade = 0
   
5.         .PatternTintAndShade = 0
   
6.     End With
   
7. If Target.Column >= 1 And Target.Column <= 5 Then
   
8.     If Target.Column = 2 Then
   
9.         Range("B" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 6
   
10.     End If
    
11.     If Target.Column = 3 Then
    
12.         Range("B" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 7
    
13.     End If
    
14.     If Target.Column = 4 Then
    
15.         Range("B" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 8
    
16.     End If
    
17.     If Target.Column = 5 Then
    
18.         Range("B" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 9
    
19.     End If
    
20. End If
    
21. End Sub
    

复制代码

xinqinglhj

易安1 发表于 2014-7-29 14:53

不对啊。

我把代码放到 sheet 里，
选择【对应中】这一个行是变色了。不过用鼠标在其他地方一点，
这一行的颜色，又跑到其他行上去了。

不是我附件中的样子啊。
难道是我弄错了？