如何在A1/A2单元格日期变更时自动触发VBA循环重新运行

解决方案 #

你需要使用Excel VBA的Worksheet_Change工作表变更事件实现自动触发，操作步骤如下：

1. 右键你需要实现该功能的工作表底部标签，点击「查看代码」，进入对应工作表的代码编辑页。
2. 在编辑页中粘贴如下事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的是A1或A2单元格时触发后续逻辑
    If Target.Column <> 1 Or (Target.Row <> 1 And Target.Row <> 2) Then Exit Sub
    
    ' 开启错误处理，避免异常导致事件永久关闭
    On Error GoTo ErrHandler
    ' 临时关闭事件触发，避免后续修改单元格时反复触发本事件
    Application.EnableEvents = False
    
    ' 校验A1、A2都为合法日期且起始日期小于结束日期
    If IsDate(Range("A1")) And IsDate(Range("A2")) Then
        If Range("A1").Value < Range("A2").Value Then
            ' 调用你原有生成日期的过程
            Call p
        End If
    End If
    
ErrHandler:
    ' 无论是否报错都恢复事件触发
    Application.EnableEvents = True
End Sub

3. 保存文件时选择「Excel 启用宏的工作簿(*.xlsm)」格式，后续只要修改A1或A2单元格的内容，满足日期校验条件就会自动运行你原有的生成逻辑。

可选优化（避免原代码死循环） #

你原有的p过程如果遇到起始日期大于等于结束日期的情况会进入死循环，建议调整为如下版本：

Sub p()
    Dim FirstDate As Date
    Dim LastDate As Date
    Dim r As Long
    
    FirstDate = Range("A1").Value
    LastDate = Range("A2").Value
    r = 1
    
    ' 清空之前生成的旧日期数据，避免残留
    Range("A:A").ClearContents
    Range("A1") = FirstDate
    Range("A2") = LastDate
    
    Do
        FirstDate = FirstDate + 1
        Cells(r, 1) = FirstDate
        r = r + 1
    Loop Until FirstDate = LastDate
    
    Call Macro3
End Sub

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