打开检查Sheet1表格中列AE列AD列X。如果列AE为抵押列X为不是空值列AD为空。则检查 列X日期与当前日期比较如小于20天弹窗提示在哪个单元格并跳转到此单元格。用VBA编写

以下是一个用VBA编写的代码示例，可以实现您的要求：

Sub CheckColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentDate As Date
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "AE").End(xlUp).Row
    
    ' 获取当前日期
    currentDate = Date
    
    ' 循环检查每一行
    For i = 2 To lastRow
        If ws.Range("AE" & i).Value = "抵押" And ws.Range("X" & i).Value <> "" And ws.Range("AD" & i).Value = "" Then
            ' 检查日期差是否小于20天
            If ws.Range("X" & i).Value - currentDate < 20 Then
                ' 弹窗提示并跳转到单元格
                MsgBox "需要检查的单元格： " & ws.Range("X" & i).Address
                ws.Range("X" & i).Select
                Exit Sub ' 结束代码
            End If
        End If
    Next i
    
    ' 如果未找到符合条件的单元格，弹窗提示
    MsgBox "未找到符合条件的单元格"
End Sub

请在VBA编辑器中打开您的Excel文档，然后按下Alt + F11，将上述代码粘贴到空白的代码模块中。然后，您可以运行此宏来执行检查操作。

注意：请确保在运行宏之前将工作表名称更改为您实际使用的工作表名称