VBA 检查表格数据并提醒: 列AE 为'抵押' 且列X 不为空, 列AD 为空, 则比较列X 日期与当前日期

VBA 检查表格数据并提醒: 列 AE 为'抵押' 且列 X 不为空, 列 AD 为空, 则比较列 X 日期与当前日期

本文提供一个 VBA 代码示例，用于检查表格中指定列的数据，如果满足特定条件，则执行相应的操作。

代码示例：

Sub CheckCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim cell As Range
    
    Set ws = ThisWorkbook.Sheets("您的表格名称") '更改为实际的表格名称
    lastRow = ws.Cells(ws.Rows.Count, "AE").End(xlUp).Row
    currentDate = Date
    
    For Each cell In ws.Range("AE2:AE" & lastRow)
        If cell.Value = "抵押" And cell.Offset(0, 22).Value <> "" And cell.Offset(0, -1).Value = "" Then
            If cell.Offset(0, 22).Value - currentDate < 20 Then
                cell.Offset(0, 22).Select
                MsgBox "日期小于 20 天"
            End If
        End If
    Next cell
End Sub

代码说明：

1. 将代码中的 "您的表格名称" 替换为实际的表格名称。
2. 该代码会遍历表格中列 AE 的每个单元格。
3. 如果当前单元格的值为 '抵押'，且其右侧第 22 列（列 X）的值不为空，且其左侧第 1 列（列 AD）的值为空，则执行下一步操作。
4. 比较列 X 的日期值与当前日期，如果相差小于 20 天，则跳转到列 X 的单元格并显示提示信息。

使用方法：

1. 打开您的 Excel 文件，并按 Alt + F11 打开 VBA 编辑器。
2. 在 VBA 编辑器中，点击 插入 -> 模块，将代码粘贴到模块中。
3. 将代码中的 "您的表格名称" 替换为实际的表格名称。
4. 点击 运行 -> 运行子程序/用户窗体，选择 CheckCells 并运行。

注意：

• 此代码仅针对列 AE、列 X、列 AD 进行检查，请根据实际情况修改代码。
• 请确保列 X 中的日期格式为有效的日期格式。
• 如果需要修改提示信息，请修改 MsgBox 语句中的文字。