打开检查Sheet1表格中列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 i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 设置要检查的表格
    
    lastRow = ws.Cells(ws.Rows.Count, "AE").End(xlUp).Row ' 获取AE列的最后一行
    currentDate = Date ' 获取当前日期
    
    For i = 2 To lastRow ' 从第2行开始，因为第1行是表头
        If ws.Cells(i, "AE").Value = "抵押" And ws.Cells(i, "X").Value <> "" And ws.Cells(i, "AD").Value = "" Then
            If ws.Cells(i, "X").Value - currentDate < 20 Then ' 检查X列的日期与当前日期比较
                ws.Cells(i, "X").Select ' 跳转到此单元格
                MsgBox "日期小于20天" ' 提示信息
            End If
        End If
    Next i
End Sub

请将上述代码复制到VBA编辑器中的模块中，然后运行CheckColumns宏即可。此代码将在Sheet1表格中检查列AE、列AD和列X的条件，并根据条件进行跳转和提示