Excel VBA: 检查列AE和AD并比较日期，弹窗提示超期单元格

"Excel VBA: 检查列AE和AD并比较日期，弹窗提示超期单元格"\n"使用VBA代码检查Excel表格Sheet1中列AE和列AD的条件，并比较列X的日期与当前日期是否小于20天，如果是，则弹窗提示在哪个单元格。"\n"以下是用VBA编写的代码，用于检查Sheet1表格中列AE与列AD的条件，并比较列X的日期与当前日期是否小于20天，如果是，则弹窗提示在哪个单元格："\n"vba\nSub CheckDates()\n Dim ws As Worksheet\n Dim lastRow As Long\n Dim currentDate As Date\n Dim cell As Range\n \n ' 设置要检查的工作表\n Set ws = ThisWorkbook.Sheets("Sheet1")\n \n ' 获取最后一行的行号\n lastRow = ws.Cells(ws.Rows.Count, "AE").End(xlUp).Row\n \n ' 获取当前日期\n currentDate = Date\n \n ' 遍历每个单元格进行检查\n For Each cell In ws.Range("AE2:AE" & lastRow)\n ' 检查列AE为\"抵押\"且列AD为空\n If cell.Value = \"抵押\" And cell.Offset(0, -1).Value = \"\" Then\n ' 检查列X的日期与当前日期比较\n If cell.Offset(0, 21).Value < currentDate - 20 Then\n ' 弹窗提示在哪个单元格\n MsgBox \"日期小于20天的单元格：\" & cell.Offset(0, 21).Address\n End If\n End If\n Next cell\nEnd Sub\n\n"请将代码复制粘贴到VBA编辑器中，并在需要的地方调用CheckDates子过程来运行代码。"