EXCEL 相同日期所在的不同单元格使用相同颜色

1 问题来源

        在一个EXCEL工作簿中，我有两张工作表，一张“日记”，一张“周记”。

        如图，现在我已经对“周记”里的内容进行上色了，同一个大时间轴用一种背景色，而当天如果放假，字体为红色，如果上课则设为黑色。

        现在另一张“日记”表也有相同的内容，见下图

        这里日期这一列，我想设成跟“周记”中相同的背景色和字体色。

2 问题解决代码

Sub 根据颜色源上色()
    Dim 字体色(30000 To 50000), 背景色(30000 To 50000) '定义域：1982年2月28日 至 2036年11月21日
    Dim 表名, 范围, i, 下标, m