在任意一个单元格中键入“＝today()”(显示当天信息),按回车。点击控制栏里的“停止录制”。如果选择了“个人宏工作簿”，点击“窗口”－“取消隐藏”，“工具”－“宏”－“宏”，出现下面的对话框。

点击“编辑”。

将图中的代码

    ActiveCell.FormulaR1C1 = "=TODAY()"

Range("E12").Select

用下面代码替换掉，保存关闭。

dim s as string

s=date

ActiveCell.FormulaR1C1 = s

在任意的单元格中按一下你设置的快捷键组，如“Ctrl+b”，就会出现当天日期，而且不会随着时间改变而改变。