打开就检查2023年汇总表格检查列AE列AD列X。如果列AE为抵押列X为不是空值列AD为空。则检查 列X日期与当前日期比较如小于20天则跳转到此单元格并提示。用VBA编写

以下是用VBA编写的代码：

Sub CheckCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim cell As Range
    
    Set ws = ThisWorkbook.Sheets("2023年汇总") '更改为实际的表格名称
    lastRow = ws.Cells(ws.Rows.Count, "AE").End(xlUp).Row
    currentDate = Date
    
    For Each cell In ws.Range("AE2:AE" & lastRow)
        If cell.Value = "抵押" And cell.Offset(0, 22).Value <> "" And cell.Offset(0, -1).Value = "" Then
            If cell.Offset(0, 22).Value - currentDate < 20 Then
                cell.Offset(0, 22).Select
                MsgBox "日期小于20天"
            End If
        End If
    Next cell
End Sub

请将代码中的"2023年汇总"替换为实际的表格名称。代码将遍历列AE中的每个单元格，如果满足条件（列AE为"抵押"，列X不是空值，列AD为空），则比较列X的日期与当前日期，如果小于20天，则跳转到该单元格并显示提示信息