1、单击Office按钮，然后选择“Excel选项”：
2、勾选“在功能区显示‘开发工具’选项卡”后，单击“确定”：
3、单击“开发工具”选项卡，然后单击“Visual Basic”：
4、右击Sheet1表，然后选择“插入，模块”：
5、粘贴入以下代码：Sub 电子表()ActiveSheet.Range("A1").Value = TimeApplication.OnTime Time + TimeSerial(0, 0, 1), "电子表"End Sub
6、依次点击“视图，宏，查看宏”，或者直接按Alt+F8快捷键：
7、选择“电子表”后，单击“执行”（直接双击电子表也行）：
8、显示效果如下
