在A1输入
=NOW()
设置单元格格式，定义为你要的格式。
同时按Alt和F11进入宏界面，双击左上窗口的ThisWorkbook，在右边输入
Private Sub Workbook_Open()
abc
End Sub
再点菜单的插入，模块，粘贴如下代码：
Sub abc()
Application.OnTime Now + 1 / 24 / 3600, "abc"
Sheets("Sheet1").Range("A1").Calculate
End Sub
存盘退出（如果是2007版以上得另存为可以启动宏的工作簿），再打开就可以了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024