按日期条件设置相应的单元格颜色

shenyeke · 发表于 2017-2-28 21:28

各位老师们，帮忙看看这个怎么做。

假设J5日期为2017/1/21
K5日期为2017/2/10
如何写VBA代码，使得右侧日期表格中对应的单元格区域颜色标记为黄色？
如下图所示。
捕获.JPG

Schedule-2017.rar (24.17 KB, 下载次数: 6)

另外一个问题是设置一个时间，比如今天，可以让Excel显示窗口直接显示右侧日历区域的内容，便于查看那一天是否有空闲或任务。
拜谢！

凌空一羽 · 发表于 2017-2-28 22:09

Sub 凌空一羽()
For i = 5 To 7
l = CDbl(Range("j" & i)) - 42736
r = CDbl(Range("k" & i)) - CDbl(Range("j" & i))
Range(Cells(i, 14 + l), Cells(i, l + 14 + r)).Interior.ColorIndex = 6
Next

zax010 · 发表于 2017-2-28 22:19

Sub zz()
For i = 5 To [a65536].End(3).Row
      a = Rows(1).Find(Month(Cells(i, 10))).MergeArea.Address(0, 0)
      a1 = Range(Replace(a, "1", "3")).Find(Day(Cells(i, 10))).Column
      b = Rows(1).Find(Month(Cells(i, 11))).MergeArea.Address(0, 0)
      b1 = Range(Replace(b, "1", "3")).Find(Day(Cells(i, 11))).Column
      Range(Cells(i, a1), Cells(i, b1)).Interior.ColorIndex = 6
Next
End Sub

zax010 · 发表于 2017-2-28 22:24

Schedule-2017.rar (25.2 KB, 下载次数: 6)

shenyeke · 发表于 2017-3-1 11:14

凌空一羽发表于 2017-2-28 22:09
Sub 凌空一羽()
For i = 5 To 7
l = CDbl(Range("j" & i)) - 42736

非常感谢！

CDbl(Range("j" & i)) - 42736
42736是什么意思？

shenyeke · 发表于 2017-3-1 11:19

谢谢帮忙！
我的日期格式还有问题，如附件，E7单元格的日期格式如何自动更改为F7的？
为什么鼠标点击进去后就可以自动更改了？

shenyeke · 发表于 2017-3-1 16:59

zax010 发表于 2017-2-28 22:19
Sub zz()
For i = 5 To [a65536].End(3).Row
a = Rows(1).Find(Month(Cells(i, 10))).MergeA ...

非常感谢，能解释一下代码的意思吗？
a = Rows(1).Find(Month(Cells(i, 10))).MergeArea.Address(0, 0)
a1 = Range(Replace(a, "1", "3")).Find(Day(Cells(i, 10))).Column
发现起始日期为3月1日时颜色设置不正确。

zax010 · 发表于 2017-3-1 19:03

shenyeke 发表于 2017-3-1 16:59
非常感谢，能解释一下代码的意思吗？
a = Rows(1).Find(Month(Cells(i, 10))).MergeArea.Addres ...

增加一个搜索参数：

Sub zz()
For i = 5 To [a65536].End(3).Row
      a = Rows(1).Find(Month(Cells(i, 10))).MergeArea.Address(0, 0)
      a1 = Range(Replace(a, "1", "3")).Find(Day(Cells(i, 10)), LookAt:=xlWhole).Column
      b = Rows(1).Find(Month(Cells(i, 11))).MergeArea.Address(0, 0)
      b1 = Range(Replace(b, "1", "3")).Find(Day(Cells(i, 11)), LookAt:=xlWhole).Column
      Range(Cells(i, a1), Cells(i, b1)).Interior.ColorIndex = 6
Next
End Sub

zax010 · 发表于 2017-3-1 19:13

shenyeke 发表于 2017-3-1 16:59
非常感谢，能解释一下代码的意思吗？
a = Rows(1).Find(Month(Cells(i, 10))).MergeArea.Addres ...

a 是在第一行查找 J列月份所在合并单元格的地址；
a1 是在第三行查找 J列日所在单元格的列数。

b,b1 是 K列的相关数据。

Schedule-2017.rar (26.13 KB, 下载次数: 5)

shenyeke · 发表于 2017-3-1 20:45

zax010 发表于 2017-3-1 19:13
a 是在第一行查找 J列月份所在合并单元格的地址；
a1 是在第三行查找 J列日所在单元格的列数。

非常感谢，明白了。

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

[求助] 按日期条件设置相应的单元格颜色

最新热点 /1