UC知道如何自动动行excel中的宏
来源：百度知道 编辑：UC知道 时间：2024/07/02 20:51:21
我想一打开excel就自动运行下面的宏:
Sub 秒表()
ActiveSheet.Range("A1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True
End Sub
Sub 秒表()
ActiveSheet.Range("A1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True
End Sub
打开就自动运行是不可以的，如果你的系统由安全设置，一般你都要设置安全性。
不过你可以为宏设置快捷键。
不知道你用哪个版本的excel? 两个版本的excel安全设置的方法有点不一样。
快捷键的指令在VBA里面是
' Keyboard Shortcut: Ctrl+(自选字母)
将代码放在某个工作表的下面事件中:
Private Sub Worksheet_Activate()
End Sub
Private Sub Workbook_Open()
sheet1.秒表
End Sub
大致是这样的，有问题再讨论。
'thisworkbook代码页
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:1"), "秒表"
End Sub