Excel VBS 宏时间到期变色

最新推荐文章于 2026-01-15 19:30:00 发布

原创

最新推荐文章于 2026-01-15 19:30:00 发布 · 1.2k 阅读

本文介绍了如何使用Excel VBA宏检查日期并根据日期与当前时间的差距改变单元格颜色。通过VBA代码实现不同时间差对应不同颜色，如过期、即将过期等状态。步骤包括插入模块、编写代码、调整日期列号以及运行宏查看效果。此外，还提到了颜色索引的自定义以满足个性化需求。

1.进入Excel VBA 。按住 alt+F11

2.右键左边的VBAProject →插入→模块

3.在右边的编辑区域内复制以下代码

Sub CheckDateMethod() Dim currDate As Date '申明当期日期变量' Dim cha '申明日期之间的天数差' Dim count '申明工作表中的总行数' count = ActiveSheet.UsedRange.Rows.count '获取工作表中的总行数' currDate = Now '获取当前日期' Debug.Print ("总共有" & count & "行数据") 'Debug.Print (currDate) For i = 1 To count Step 1 '获取单元的结束时间' '-------Debug.Print (Cells(i, "D")); '定义异常处理' On Error GoTo Label1 cha = VBA.DateDiff("d", currDate, Cells(i, "D")) '获取时间差' '-------Debug.Print (cha); '判断时间差，并给出提示 cha<0:已经过期 cha=0今天过期 0<cha<15 即将过期 cha>15正常' If cha < 0 Then 'Cells(i, 4).Font.Color = "red" ActiveSheet.UsedRange.Rows(i).Interior.ColorIndex = 6 ElseIf cha = 0 Then ActiveSheet.UsedRange.Rows(i).Interior.ColorIndex = 3 ElseIf cha < 15 Then ActiveSheet.UsedRange.Rows(i).Interior.ColorIndex = 7 Else ActiveSheet.UsedRange.Rows(i).Interior.ColorIndex = 2 End If 'Debug.Print (Days360(Cells(i, 4), format(currDate,"yyyy-mm-dd")) Label1: '发生错误到这里，继续循环' Next i End Sub

4.修改上面代码 cha = VBA.DateDiff("d", currDate, Cells(i, "D")) 中的D(注意是后面一个大写的D) 改成你当前的时间的具体列号，也可以天数字，例 4：表示第四列

5.单击上面菜单运行→运行子过程/用户窗体 (F5)

即可看到效果，效果图如下