Excel VBA: 检查列 AE、AD 和 X 并根据条件弹窗提示并跳转

以下是一个用 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，将上述代码粘贴到空白的代码模块中。然后，您可以运行此宏来执行检查操作。

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