Excel VBA多条件单元格着色问题：循环提前终止求助

我来帮你排查这个问题——你的循环逻辑是导致问题的核心原因，我们一步步来解决它。

问题根源 #

你当前使用的Do While循环是先判断条件，只有满足所有三个条件时才会执行循环体并继续循环。当遇到某一行不满足任意一个条件时，循环会直接终止，后面的行完全不会被检查。

比如你的第二行数据（Issue Date: 25/01/2013），虽然Price=88<=98，但Issue Date +14天是10/02/2013，远早于当前日期，不满足第三个条件。此时循环直接退出，导致后面第5行（满足所有条件的行）根本没机会被处理。

解决方案 #

我们需要修改循环逻辑：遍历所有数据行，对每一行单独判断是否满足条件，而不是把条件放在循环的入口判断上。这样即使某一行不满足，循环依然会继续检查后续的行。

下面是修改后的代码，我还添加了一些最佳实践和错误防护：

Sub Button1_Click()
 Dim wb As Workbook
 Dim ws As Worksheet
 Dim count As Integer
 Set wb = ActiveWorkbook
 Set ws = wb.Sheets("Sheet1")
 
 ' 移除不必要的激活/选择操作，直接通过对象操作工作表
 count = 0
 ' 遍历直到Issue Date列为空（假设数据是连续无空行的）
 Do Until ws.Cells(2 + count, 1).Value = ""
    Dim issueDate As Date
    Dim price As Double
    Dim fourteenDaysLater As Date
    Dim todayDate As Date
    
    todayDate = Date ' 用Date代替Now()，只取日期部分，避免时间干扰判断
    
    ' 先检查单元格是否为有效日期，防止报错
    If IsDate(ws.Cells(2 + count, 1).Value) Then
        issueDate = CDate(ws.Cells(2 + count, 1).Value)
        fourteenDaysLater = DateAdd("d", 14, issueDate)
        price = ws.Cells(2 + count, 5).Value
        
        ' 在循环体内单独判断条件，满足则着色
        If issueDate <= todayDate And fourteenDaysLater > todayDate And price <= 98 Then
            ws.Range("D" & 2 + count).Interior.Color = RGB(250, 50, 50)
        Else
            ' 可选：清除不满足条件行的颜色，避免残留之前的着色
            ws.Range("D" & 2 + count).Interior.ColorIndex = xlColorIndexNone
        End If
    End If
    
    count = count + 1
 Loop
End Sub

关键改动说明 #

• 循环逻辑调整：把条件判断从Do While的循环条件移到了循环体内，确保每一行都会被检查，不会中途终止循环。
• 日期处理优化：用Date代替Now()，Date只返回当前日期（年月日），而Now()包含时间部分，可能导致日期判断出现偏差。
• 错误防护：添加IsDate检查，避免单元格内容不是有效日期时抛出运行时错误。
• 移除冗余操作：删除了wb.Activate和ws.Select，直接通过工作表对象操作，这是VBA的最佳实践，能避免激活/选择带来的意外问题。
• 可选的颜色清除：添加了清除不满足条件行颜色的代码，确保表格状态干净。

这样修改后，所有满足条件的行都会被正确着色，包括你提到的第5行。

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