菜单:工具-宏-VB编辑器打开VB编辑器,插入-模块把下面的代码复制到其中,保存然后,工具-宏,在弹出的对话框中,选中 宏: 秒表 ,执行!Sub 秒表()ActiveSheet.Range("A1").Value = TimeApplication.OnTime Time + TimeSerial(0, 0, 1), "秒表", , TrueEnd Sub
