如何输入值后单元格自动变颜色

lb_bn · 发表于 2010-2-25 12:29

录制宏可得到改变字体的代码。

chuzhiyun · 发表于 2010-3-1 18:36

原帖由 dsmch 于 2010-2-25 11:18 发表
请验证
670251

这样的话工作薄中的工作表都会有效，如何做到只让Sheet1有效？谢谢！

chuzhiyun · 发表于 2010-3-2 06:54

这样的话工作薄中的工作表都会有效，如何做到只让Sheet1有效？谢谢！

dsmch · 发表于 2010-3-2 08:02

原帖由 chuzhiyun 于 2010-3-2 06:54 发表
这样的话工作薄中的工作表都会有效，如何做到只让Sheet1有效？谢谢！

change事件的效果就是这样，等高手帮你看看有没有解决的办法，帮你顶下。

lb_bn · 发表于 2010-3-2 08:08

代码放sheet1里。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 9 And Target.Row > 5 And Target.Row < 16 Then
If Target = "张" Then
Target.Interior.ColorIndex = 6
ElseIf Target = "王" Then
Target.Interior.ColorIndex = 4
ElseIf Target = "李" Then
Target.Interior.ColorIndex = 54
ElseIf Target = "赵" Then
Target.Interior.ColorIndex = 1
ElseIf Target = "孙" Then
Target.Interior.ColorIndex = 38
ElseIf Target = "邓" Then
Target.Interior.ColorIndex = 35
ElseIf Target = "董" Then
Target.Interior.ColorIndex = 5
ElseIf Target = "黄" Then
Target.Interior.ColorIndex = 48
End If
End If
End Sub
借用楼上老师的代码。

[ 本帖最后由 lb_bn 于 2010-3-2 09:59 编辑 ]

dsmch · 发表于 2010-3-2 08:22

可以达到效果了，多谢lb_bn 兄，顺便学了一招。

chuzhiyun · 发表于 2010-3-2 08:25

谢谢！！！！！

chuzhiyun · 发表于 2010-3-4 07:23

您的代码很好用，但我又有一个问题，一个一个输是可以的，如果从别的表中复制一组就不行了，怎么解决啊？谢谢！！！

chuzhiyun · 发表于 2010-3-4 08:25

看来有点难

lb_bn · 发表于 2010-3-4 08:59

Private Sub Worksheet_Change(ByVal Target As Range)

For Each tg In Target
      If tg.Column < 9 And tg.Row > 5 And tg.Row < 16 Then
         If tg = "张" Then
            tg.Interior.ColorIndex = 6
         ElseIf tg = "王" Then
            tg.Interior.ColorIndex = 4
         ElseIf tg = "李" Then
            tg.Interior.ColorIndex = 54
         ElseIf tg = "赵" Then
            tg.Interior.ColorIndex = 1
         ElseIf tg = "孙" Then
            tg.Interior.ColorIndex = 38
         ElseIf tg = "邓" Then
            tg.Interior.ColorIndex = 35
         ElseIf tg = "董" Then
            tg.Interior.ColorIndex = 5
         ElseIf tg = "黄" Then
            tg.Interior.ColorIndex = 48
         End If
      End If
Next

End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何输入值后单元格自动变颜色

回复 10楼 chuzhiyun 的帖子

回复 9楼 dsmch 的帖子

回复 13楼 chuzhiyun 的帖子

回复 15楼 lb_bn 的帖子