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

以下是使用VBA编写的代码，可以实现你描述的功能：

Sub CheckColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim cell As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("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, 30).Value = "" Then
            ' 检查日期差
            If cell.Offset(0, 22).Value - currentDate < 20 Then
                ' 跳转到单元格并提示
                cell.Offset(0, 22).Select
                MsgBox "该单元格日期小于20天！"
                Exit Sub ' 如果只需要检查第一个符合条件的单元格，可以注释掉这行
            End If
        End If
    Next cell
    
    ' 如果没有符合条件的单元格
    MsgBox "没有符合条件的单元格！"
End Sub

将上述代码复制到VBA编辑器（Alt + F11）的模块中，并执行该宏（Alt + F8），即可实现你的需求。请确保将代码中的工作表名称（"2023年汇总表"）与你实际的工作表名称一致