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

以下是一个使用VBA编写的代码示例，根据您的需求进行检查：

Sub 检查汇总表格()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim checkDate As Date
    Dim i As Long
    
    ' 设置当前日期
    currentDate = Date
    
    ' 设置要检查的工作表
    Set ws = ThisWorkbook.Sheets("汇总表格")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "AE").End(xlUp).Row
    
    ' 循环检查每一行
    For i = 2 To lastRow
        ' 检查列AE为“抵押”，列X不为空，列AD为空
        If ws.Range("AE" & i).Value = "抵押" And Not IsEmpty(ws.Range("X" & i).Value) And IsEmpty(ws.Range("AD" & i).Value) Then
            ' 检查列X日期与当前日期比较，如果小于20天则跳转到此单元格，并提示
            checkDate = ws.Range("X" & i).Value
            If checkDate < currentDate - 20 Then
                ws.Range("X" & i).Select
                MsgBox "列X日期小于20天，请检查！"
            End If
        End If
    Next i
End Sub

请根据实际情况将代码中的工作表名称和列标识符（如AE、AD、X）更改为您实际使用的名称