Excel 比较日器

Private Sub CheckDate_Click()

Dim i As Integer, r As Integer, num As Integer
Dim T1, T2 As Date
Dim lie As Integer

lie = 15 '列号15 即 O 列
num = 0 '统计次校日期到期数量

r = Range("o65536").End(xlUp).Row '统计o列有数据的单元格个数有多少

T2 = Now() - 30 '当前日期往前30天

'T1 = VBA.DateSerial(2022, 6, 26)'日期转换
'T1 = Range("A1").Value'获取单元格的值

'循环单元格数据
For i = 1 To r
T1 = Cells(i, lie)

If (IsEmpty(T1)) Then
    Cells(i, lie).Interior.Pattern = xlNone '清除背景色
ElseIf (T1 < T2) Then
    'MsgBox ("仪器校验日期过期了")
    Cells(i, lie).Interior.Color = 255 '填充红色
    num = num + 1
Else
    Cells(i, lie).Interior.Pattern = xlNone '清除背景色
End If

Next

If (num > 0) Then
    Dim result
    result = MsgBox("总共有" + Str(num) + "个设备到期，需安排校正！", vbExclamation)
End If


End Sub