运行代码前检查指定单元格范围的条件设置需求

嘿，我完全懂你现在的心情——刚注册账号就卡在这个格式逻辑上，肯定急得不行。咱们直接来搞定这个需求，我给你写一段精准适配的VBA代码，再掰扯清楚每部分的作用，保证你能用上。

这段代码会自动检查每一行的L列（截止日期）和M列（完成日期），只有当M列对应单元格为空，且**L列日期距离当前不足14天（且未过期）**时，才会给L列单元格加上高亮和加粗格式；如果M列填了内容，或者日期不满足条件，就会自动清除格式。

Sub HighlightUpcomingDeadlines()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentDate As Date
    
    ' 这里可以改成你的目标工作表名称，比如Set ws = ThisWorkbook.Sheets("项目跟踪")
    Set ws = ThisWorkbook.ActiveSheet
    currentDate = Date
    
    ' 获取L列最后一行有数据的行号，避免遍历空白行浪费资源
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
    
    ' 从第2行开始遍历（假设第1行是表头，如果你没有表头就改成i=1）
    For i = 2 To lastRow
        ' 先判断两个基础条件：M列为空，且L列是有效日期
        If IsEmpty(ws.Cells(i, "M").Value) And IsDate(ws.Cells(i, "L").Value) Then
            ' 再判断日期是否在未来14天内（如果需要包含已过期的，就去掉后面的 And ... >= currentDate）
            If ws.Cells(i, "L").Value - currentDate < 14 And ws.Cells(i, "L").Value >= currentDate Then
                ' 设置高亮（这里用的是黄色，你可以换成其他RGB值）+ 加粗
                ws.Cells(i, "L").Interior.Color = RGB(255, 255, 0)
                ws.Cells(i, "L").Font.Bold = True
            Else
                ' 不满足日期条件，清除格式
                ws.Cells(i, "L").Interior.Color = xlNone
                ws.Cells(i, "L").Font.Bold = False
            End If
        Else
            ' M列有内容或者L列不是有效日期，直接清除格式
            ws.Cells(i, "L").Interior.Color = xlNone
            ws.Cells(i, "L").Font.Bold = False
        End If
    Next i
End Sub

• 工作表定位：开头的Set ws可以指定具体工作表，避免在错误的表上操作；
• 高效遍历：用lastRow获取L列最后一行数据，不会遍历空白行；
• 双重条件判断：先确保M列是空的，L列是有效日期，再检查日期是否符合“距当前不足14天”的要求；
• 格式自动重置：如果后续M列填了完成日期，或者日期过了14天，格式会自动清除，不用手动调整。

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器；
2. 在左侧的项目窗口里，右键点击你的工作簿→选择「插入」→「模块」；
3. 把上面的代码粘贴到新模块的代码窗口里；
4. 回到Excel，按下Alt + F8，选择HighlightUpcomingDeadlines这个宏，点击「执行」就可以运行了。

如果你想要代码自动运行（比如每次打开文件或者工作表内容变化时自动检查格式），可以随时说，我再给你调整代码~

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