代码中日期范围的判断存在问题，请高手帮忙修改，感谢！

longyi999 · 发表于 2024-11-12 11:43

目的是在sheet2的代码中增加对O列单元格日期的判断，如果手动填入的日期不在当前年份内则显示为红色加粗。请大神一助，谢谢啦！

limonet · 发表于 2024-11-12 11:58

目测用条件格式就可以，没下载。

ykcbf1100 · 发表于 2024-11-12 12:14

本帖最后由 ykcbf1100 于 2024-11-12 14:17 编辑

附件供参考。。。

ykcbf1100 · 发表于 2024-11-12 12:15

本帖最后由 ykcbf1100 于 2024-11-12 14:18 编辑

参与一下。。。

Sub ykcbf() '//2024.11.12
With Sheets("个人工作量登记")
r = .Cells(Rows.Count, "o").End(3).row
For i = 7 To r
Set Rng = .Cells(i, "o")
Rng.Interior.ColorIndex = 0
Rng.Font.Bold = False
rq = CDate(Rng.Value)
If Year(rq) <> Year(Date) Then
Rng.Interior.ColorIndex = 3
Rng.Font.Bold = True
End If
Next
End With
End Sub

复制代码

rym9401 · 发表于 2024-11-12 12:53

本帖最后由 rym9401 于 2024-11-12 22:49 编辑

=IFERROR(VDB(,,DATE(YEAR(TODAY()),12,31),DATE(YEAR(TODAY()),1,1),$O7),1)

复制代码

已更正

longyi999 · 发表于 2024-11-12 16:13

ykcbf1100 发表于 2024-11-12 12:15
参与一下。。。

十分感谢！

longyi999 · 发表于 2024-11-12 16:14

本帖最后由 longyi999 于 2024-11-12 16:58 编辑

rym9401 发表于 2024-11-12 12:53

十分感谢！老师,刚测试了下，条件公式对2024-1-1到2024-1-30无效，怎么修改呢

rym9401 · 发表于 2024-11-12 22:51

longyi999 发表于 2024-11-12 16:14
十分感谢！老师,刚测试了下，条件公式对2024-1-1到2024-1-30无效，怎么修改呢

原楼层已更正。

longyi999 · 发表于 2024-11-13 11:06

rym9401 发表于 2024-11-12 22:51
原楼层已更正。

解决了，谢谢大师！祝您心想事成，财源滚滚！

翁知江安 · 发表于 2024-11-13 21:23

Sub panduan()
Dim i, k, m, irow
Dim arr
irow = Sheets("个人工作量登记").[d65536].End(xlUp).row
arr = Sheets("个人工作量登记").Range("a1:o" & irow)
For i = 7 To irow
k = Val(Format(Now(), "yyyy"))
m = Year(arr(i, 15))
If m <> k Then
   With Sheets("个人工作量登记").Range("o" & i).Font
      .Bold = True
      .Color = vbRed
End With
End If
Next
End Sub

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

代码中日期范围的判断存在问题，请高手帮忙修改，感谢！

评分