如何用Excel VBA每日1点自动更新A1、A2的日期时间值？

当然可以实现这个需求！结合VBA宏和Windows任务计划程序就能完美解决，下面是具体的分步方案：

核心思路 #

Excel本身没有内置的定时自动执行功能，所以我们需要用VBA宏处理日期更新逻辑，再配合Windows任务计划程序定时触发宏的执行，实现每日凌晨1点自动更新。

步骤1：编写VBA更新宏 #

1. 打开你的Excel工作簿，按下Alt + F11打开VBA编辑器。
2. 在左侧"工程资源管理器"中右键点击你的工作簿，选择「插入」→「模块」。
3. 在新建的模块中粘贴以下代码（如果你的工作表不是Sheet1，记得修改代码中的表名）：

Sub UpdateDateRange()
    ' 指定目标工作表
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取当前A2的日期值
    Dim oldA2Date As Date
    oldA2Date = targetSheet.Range("A2").Value
    
    ' 更新A1为A2的次日零点
    Dim newA1Date As Date
    newA1Date = DateAdd("d", 1, Int(oldA2Date)) ' Int()提取日期部分，加1天得到次日00:00:00
    targetSheet.Range("A1").Value = newA1Date
    
    ' 更新A2为新A1加7天后的23:59:59（加7天是次日零点，减1秒得到当日最后一秒）
    Dim newA2Date As Date
    newA2Date = DateAdd("s", -1, DateAdd("d", 7, newA1Date))
    targetSheet.Range("A2").Value = newA2Date
    
    ' 自动保存工作簿，确保修改生效
    ThisWorkbook.Save
End Sub

4. 保存工作簿为启用宏的工作簿（.xlsm格式），普通.xlsx格式会丢失宏代码。

步骤2：创建批处理文件触发宏 #

为了让任务计划程序能直接调用宏，我们需要写一个批处理文件：

1. 新建一个文本文档，粘贴以下内容（替换成你的工作簿绝对路径）：

@echo off
start excel.exe "C:\你的文件路径\日期更新工作簿.xlsm" /e"UpdateDateRange"

• /e"UpdateDateRange" 参数的作用是让Excel打开工作簿后自动执行名为UpdateDateRange的宏。

2. 将文本文档重命名为UpdateExcelDates.bat（确保扩展名是.bat，不是.txt）。

步骤3：设置Windows任务计划程序定时执行 #

1. 打开「Windows任务计划程序」（可以通过开始菜单搜索找到）。
2. 点击右侧「创建基本任务」：
   • 名称：输入比如「Excel日期自动更新」，点击下一步。
   • 触发器：选择「每天」，设置开始时间为凌晨1点，点击下一步。
   • 操作：选择「启动程序」，点击下一步。
   • 程序或脚本：选择刚才创建的UpdateExcelDates.bat文件，点击下一步。
   • 勾选「当单击完成时，打开此任务的属性对话框」，点击完成。
3. 在任务属性中，建议勾选「不管用户是否登录都要运行」（需要管理员权限），并在「设置」选项卡中勾选「如果任务错过计划开始时间，则立即运行任务」，避免关机导致更新遗漏。

注意事项 #

• 宏安全设置：打开工作簿时如果弹出宏禁用提示，需要在「文件→选项→信任中心→信任中心设置→宏设置」中选择「启用所有宏」（或更安全的「启用签署的宏」，给你的宏添加数字签名），否则宏无法执行。
• 路径准确性：批处理文件中的工作簿路径必须是绝对路径，确保任务计划程序能找到文件。
• 后台运行：执行任务时Excel会短暂打开并运行宏，完成后会自动关闭，不会干扰日常使用。

如果你不想用VBA，也可以尝试用Microsoft Power Automate创建定时流：设置每日凌晨1点触发，打开指定Excel文件，修改A1和A2的数值，最后保存文件。不过这个方法需要你有Power Automate的许可，步骤相对繁琐一些。

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