[已解决]求求各位大佬，连续n个数值后单元格变色

ydg881203

想法：
应用范围D7：AH7向下直至D36：AH36或D7：AH36
① 当一个人连续排班为七天（含）时，这一行第七个单元格变成红色（如实例 ①）
② 当一个人连续排班大于七天时，第七天的单元格变成红色（如实例 ②）
详见附件，请根据附件帮忙对策。谢谢啦。

另外除了条件格式外，能不能用代码实现。
不然在复制黏贴的时候会破坏掉。
谢谢！！！
或使用代码实现简单一点的功能，

最佳答案

月排行榜 / 总排行榜

yyy423827

2021-5-29 11:07

做到Change 事件中了 。也就是说 当单元格的值发生变化的时候会自动标记。见附件

跳转到最佳答案楼层

yyy423827

做到Change 事件中了 。也就是说 当单元格的值发生变化的时候会自动标记。见附件

ydg881203

yyy423827 发表于 2021-5-29 11:07
做到Change 事件中了 。也就是说 当单元格的值发生变化的时候会自动标记。见附件

膜拜了，谢谢！！！

cutecpu

yyy423827 发表于 2021-5-29 11:07
做到Change 事件中了 。也就是说 当单元格的值发生变化的时候会自动标记。见附件

Rows(m).Range("d1:ah1")  ← 學習了！

藍色部份應該不用，不然連續 14 筆(7的倍數)時，第14筆也會變紅喔！
If n = 7 Then
    n = 0
    Rng.Interior.ColorIndex = 3
End If

祝順心，南無阿彌陀佛！

yyy423827

cutecpu 发表于 2021-5-30 12:48
Rows(m).Range("d1:ah1")  ← 學習了！

藍色部份應該不用，不然連續 14 筆(7的倍數)時，第14 ...

If n = 7 Then
                n = 0
                Rng.Interior.ColorIndex = 3
确实不应该有红色这句，是我理解错楼主的意思了。多谢指点！另外 If Target.Row > 7 Then 这个应改为 If Target.Row > 6 Then

ydg881203

cutecpu 发表于 2021-5-30 12:48
Rows(m).Range("d1:ah1")  ← 學習了！

藍色部份應該不用，不然連續 14 筆(7的倍數)時，第14 ...

我什么时候能达到您们这样高的水平。