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

菜单:工具-宏-VB编辑器 打开VB编辑器,插入-模块 把下面的代码复制到其中,保存 然后,工具-宏,在弹出的对话框中,选中 宏: 秒表 ,执行! Sub 秒表() ActiveSheet.Range("A1").Value = Time Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True End Sub
Copyright © 2024 妖气游戏网 www.17u1u.com All Rights Reserved