[已解决]求解：多条件颜色填充

anntony

问题：例如上班有二种，有种按四个时间段的，有种是两个时间段的。我想在一行上不管输入哪种上下班时间时后面的时间段会自动填上颜色。请高手帮忙。谢谢啦！
我试了用条件求和，但达不到理想效果。

6:00

7:00

8:00

9:00

10:00

11:00

12:00

13:00

14:00

15:00

16:00

17:00

18:00

19:00

20:00

21:00

22:00

类别

上班

下班

上班

下班

主管

06:30

12:00

15:00

21:50

06:30

06:30

最佳答案

月排行榜 / 总排行榜

lyf7276

2013-6-2 21:54

你也不回个话？这下呢？

跳转到最佳答案楼层

lyf7276

你看这是你想要效果吗？因为你的那个领班时间不连续，程序会出错，你把那时间处理下吧。要是还有要改地方，再说吧。

anntony

lyf7276 发表于 2013-6-2 19:45
你看这是你想要效果吗？因为你的那个领班时间不连续，程序会出错，你把那时间处理下吧。要是还有要改地方， ...

谢谢你的回答。我所有人员的排班是有二种，
一种是：早上上班，晚上下班，有二个时间点。
另一种：早上上班，中午下班，下午上班，晚上下班，有四个时间点。
要求是：不管人员是输入二个时间点还是四个时间点，颜色都能对应的显示出来。

我上面的（上班，下班，上班，下班四个时间点）是对应：早上上班，中午下班，下午上班，晚上下班。
还请多多指教！

lyf7276

早上上班晚上下班的意思是中间没有休息？

lyf7276

你那个上班也是6：30，下班也是6：30，你希望那个时间段的颜色填充到哪个时间？

lyf7276

你也不回个话？这下呢？

anntony

lyf7276 发表于 2013-6-2 21:54
你也不回个话？这下呢？

不好意思啊，昨天太晚了，没回复。

anntony

lyf7276 发表于 2013-6-2 21:03
早上上班晚上下班的意思是中间没有休息？

这两个时间段的是中午没休息。当超人一样使唤着。

lyf7276

是不是你想要的结果？记得来个最佳。

anntony

lyf7276 发表于 2013-6-3 08:41
是不是你想要的结果？记得来个最佳。

我把你最终的代码贴上来秀下：
Sub kl()
Range("a2:df11").Interior.Color = Range("a2000").Interior.Color
mm = Minute(Range("h2"))
mc = DateDiff("n", Range("h2"), Range("df2"))
For i = mm To mc / 10
Cells(3, 8 + i).Interior.Color = 30000
Next
For t = 4 To 11
m1 = DateDiff("n", Range("h2"), Range("d" & t))
If Range("e" & t) = "" Then
m2 = 1020
m3 = 1020
Else
m2 = DateDiff("n", Range("h2"), Range("e" & t))
m3 = DateDiff("n", Range("h2"), Range("f" & t))
m4 = DateDiff("n", Range("h2"), Range("g" & t))
End If
For i = (m1 - mm) / 10 To (m2 - mm) / 10
Cells(t, 8 + i).Interior.Color = 50000
Next
For i = (m3 - mm) / 10 To (m4 - mm) / 10
Cells(t, 8 + i).Interior.Color = 50000
Next
Next
End Sub

谢谢你的帮助！