[已解决]把重复的用颜色表示出来

grz319 · 发表于 2012-11-28 14:02

如果值班表与轮休表人员在同一天相重复，请在值班表中表示出来

最佳答案

月排行榜 / 总排行榜

业余爱好者

2012-11-28 14:28

值班顺序工作表.zip (4.24 KB, 下载次数: 35)

ssgon77 · 发表于 2012-11-28 14:15

你的表跟你说的根本对不起来。

grz319 · 发表于 2012-11-28 14:22

ssgon77 发表于 2012-11-28 14:15
你的表跟你说的根本对不起来。

也许我表达不清楚，也就是星期五轮休的人员，如果在值班表上星期五出现，就用颜色表示出来，其他如星期六、日一样。

业余爱好者 · 发表于 2012-11-28 14:28

值班顺序工作表.zip (4.24 KB, 下载次数: 35)

zyouong · 发表于 2012-11-28 14:39

值班顺序工作表.rar (3.73 KB, 下载次数: 14)

hhl1984 · 发表于 2012-11-28 14:51

Sub 标示()
Dim x, y, t As Integer
Dim mrg As Range
Range("g4:g34").Interior.ColorIndex = xlNone
For x = 1 To 3
Set va = Sheets("轮休表").Cells(2, x)
m = va.Column
tva = va.Value
i = Application.CountIf(Range("b:b"), tva)
Set mrg = Range("b4")
For y = 1 To i
      Set mrg = Range("b:b").Find(tva, mrg)
         For t = 3 To 16
            If mrg.Offset(0, 5) = Sheets("轮休表").Cells(t, m).Value And mrg.Offset(0, 5) <> "" Then
                  mrg.Offset(0, 5).Interior.ColorIndex = 3
            End If
         Next t
Next y
Next x
End Sub

值班顺序工作表.zip (10.53 KB, 下载次数: 5)

grz319 · 发表于 2012-11-28 15:06

zyouong 发表于 2012-11-28 14:39

谢谢你！！但姓名不能变化

grz319 · 发表于 2012-11-28 15:07

hhl1984 发表于 2012-11-28 14:51
Sub 标示()
Dim x, y, t As Integer
Dim mrg As Range

谢谢老师的解答！不能同时评两个最佳。感谢！

grz319 · 发表于 2012-11-28 20:05

小妖的解答也很好，我正在使用。现在把附件上传上去，供大家学习！

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