Excel VBA: 比较日期差并跳转到指定单元格

本篇文章将介绍使用VBA代码实现一个功能：自动检查Sheet1表格中的列AE、列AD、列X，并比较列X中的日期与当前日期，如果日期差小于20天，则跳转到该单元格并显示提示。

代码示例

以下是使用VBA编写的代码：

Sub CompareDates()
    Dim ws As Worksheet
    Dim lastRow As Integer
    Dim currentDate As Date
    Dim dateDiff As Integer
    Dim cellAE As Range, cellAD As Range, cellX As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets('Sheet1')
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 获取当前日期
    currentDate = Date
    
    ' 循环检查每一行
    For i = 2 To lastRow
        Set cellAE = ws.Range('AE' & i) ' 列AE
        Set cellAD = ws.Range('AD' & i) ' 列AD
        Set cellX = ws.Range('X' & i) ' 列X
        
        ' 检查条件
        If cellAE.Value = '抵押' And cellX.Value <> '' And cellAD.Value = '' Then
            ' 计算日期差
            dateDiff = DateDiff('d', cellX.Value, currentDate)
            
            ' 比较日期差是否小于20天
            If dateDiff < 20 Then
                ' 跳转到此单元格
                cellX.Select
                
                ' 提示
                MsgBox '日期差小于20天'
            End If
        End If
    Next i
End Sub

使用方法

打开你的Excel表格，并确保Sheet1已命名为所需的工作表名称。
按 Alt + F11 打开VBA编辑器。
在VBA编辑器中，点击插入 > 模块。
将上面的代码复制粘贴到模块中。
点击运行 > 运行子程序/宏 或按 F5 运行宏。

功能说明

代码首先设置工作表和获取最后一行。
循环检查每一行，并检查以下条件：
- 列AE的值是否为'抵押'。
- 列X的值是否不为空。
- 列AD的值是否为空。
如果满足所有条件，则计算列X中的日期与当前日期的差值。
如果日期差小于20天，则跳转到该单元格并显示提示信息。

注意事项

请确保列X中存储的是有效的日期格式。
你可以根据需要修改代码中的条件和提示信息。

通过以上方法，你可以使用VBA代码实现自动检查日期差并跳转到指定单元格，提高工作效率。