Excel VBA: 检查列 AE, AD 和 X 并弹窗提示日期差小于 20 天的单元格

{/'title/':/'Excel VBA: 检查列 AE, AD 和 X 并弹窗提示日期差小于 20 天的单元格/',/'description/':/'本教程演示如何使用 VBA 代码在 Excel 中检查 Sheet1 表格中的列 AE，列 AD 和列 X。如果列 AE 为“抵押”，列 X 不为空，列 AD 为空，并且列 X 的日期与当前日期的差小于 20 天，则弹窗提示在哪个单元格并跳转到此单元格。/',/'keywords/':/'Excel VBA, 检查单元格, 日期比较, 弹窗提示, VBA 代码, 单元格跳转/',/'content/':/'以下是用 VBA 编写的代码来实现所描述的操作：//n//nvba//nSub CheckColumns()//n Dim ws As Worksheet//n Dim lastRow As Long//n Dim currentDate As Date//n Dim cell As Range//n //n ' 设置工作表为 Sheet1//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 为“抵押”，列 X 不为空，列 AD 为空//n If cell.Value = /'抵押/' And cell.Offset(0, 23).Value <> /'/' And cell.Offset(0, -1).Value = /'/' Then//n ' 检查日期差是否小于 20 天//n If DateDiff(/'d/', cell.Offset(0, 23).Value, currentDate) < 20 Then//n ' 弹窗提示并跳转到单元格//n MsgBox /'日期差小于 20 天的单元格： /' & cell.Offset(0, 23).Address//n cell.Offset(0, 23).Select//n Exit Sub ' 结束代码//n End If//n End If//n Next cell//n //n ' 如果没有符合条件的单元格，则弹窗提示//n MsgBox /'没有符合条件的单元格。/'//nEnd Sub//n//n//n请将上述代码粘贴到 VBA 编辑器中（按下Alt+F11打开 VBA 编辑器），然后运行CheckColumns子过程即可。该代码将按照所描述的条件检查 Sheet1 表格中的数据，并在满足条件的单元格上弹出提示框。/