Excel VBA查找A列指定文本后对D列日期执行条件填充问题

原有代码核心问题 #

• 偏移列数计算错误：A列偏移0行3列才对应D列，原有代码Offset(0,4)实际定位到E列
• 逻辑绑定缺失：日期判断没有和A列匹配"Yes"的逻辑绑定，不管A列有没有匹配到都会执行判断，极易出现定位错误
• 引用对象错误：日期判断时错误引用了A列单元格的值做比较，填充颜色也默认填到了A列单元格，而非目标D列单元格
• 冗余操作影响稳定性：使用Activate/ActiveCell的选择类操作容易出现单元格定位错位，直接引用单元格对象稳定性更高
• 日期边界不符合需求：原有代码判断条件为大于当前日期+1天，与需求中「介于当前日期与两年后之间」的要求不一致

修正后代码 #

Sub Test_Text()
    Dim cell As Range
    Dim targetDateCell As Range
    Dim startDate As Date, endDate As Date
    ' 预先定义日期区间，避免循环中重复计算
    startDate = Now
    endDate = DateAdd("d", 730, startDate)
    
    For Each cell In Range("A1:A6")
        ' 不区分大小写匹配包含Yes的单元格，vbTextCompare参数可兼容不同大小写写法
        If InStr(1, cell.Value, "YES", vbTextCompare) > 0 Then
            ' 定位对应行D列单元格，如需定位E列改成Offset(0,4)即可
            Set targetDateCell = cell.Offset(0, 3)
            ' 判断日期是否在区间内，需要包含边界的话把>改成>=、<改成<=即可
            If targetDateCell.Value > startDate And targetDateCell.Value < endDate Then
                ' 给D列目标单元格填充颜色，要给A列填充的话改成cell.Interior即可
                targetDateCell.Interior.Color = RGB(0, 176, 80)
            End If
        End If
    Next cell
End Sub

内容的提问来源于stack exchange，提问作者TrailMix