Excel VBA 汇总表格自动检查：列AE、AD、X 数据对比提示

使用 VBA 自动检查汇总表格列 AE、AD、X 数据

本文提供一个使用 VBA 编写的代码示例，用于自动检查 Excel 汇总表格中列 AE、AD、X 的数据，并根据以下条件进行判断：

1. 如果列 AE 为'抵押'，列 X 不为空，列 AD 为空。
2. 则检查列 X '日期' 与当前 '日期' 比较，如小于 20 天则跳转到此单元格，并提示。

代码示例：

Sub 检查汇总表格()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim checkDate As Date
    Dim i As Long
    
    ' 设置当前日期
    currentDate = Date
    
    ' 设置要检查的工作表
    Set ws = ThisWorkbook.Sheets("汇总表格")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "AE").End(xlUp).Row
    
    ' 循环检查每一行
    For i = 2 To lastRow
        ' 检查列AE为'抵押'，列X不为空，列AD为空
        If ws.Range("AE" & i).Value = "抵押" And Not IsEmpty(ws.Range("X" & i).Value) And IsEmpty(ws.Range("AD" & i).Value) Then
            ' 检查列X日期与当前日期比较，如果小于20天则跳转到此单元格，并提示
            checkDate = ws.Range("X" & i).Value
            If checkDate < currentDate - 20 Then
                ws.Range("X" & i).Select
                MsgBox "列X日期小于20天，请检查！"
            End If
        End If
    Next i
End Sub

请根据实际情况将代码中的工作表名称和列标识符（如 AE、AD、X）更改为您实际使用的名称。