excel 工作表里多个sheet如何自动运行各自的宏

比如我的宏在sheet2标题为(各自2)中,我想在标题为(各自2)的单元格L5里执行指定的宏,而不在其它的sheet1.sheet3里执行.而且设为一打开工作簿就自动运行此宏.
我现在的宏是:
Sub 秒表()
ActiveSheet.Range("L5").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True
End Sub
问题己解决:
第一步:
Sub 秒表()
End Sub
Sub time()
Sheet2.[L5] = Now()
time_update
End Sub
Sub time_update()
Application.OnTime Now + TimeValue("00:00:01"), "time"
End Sub
下一歩:双击左边的thisworkbook,录入:
Private Sub Workbook_Open()
time_update
End Sub
多谢回答的朋友

你的思路可以是这样,在this workbook中加入open宏,(此为打开文件就运行的宏)代码中ActiveSheet,改为指定的sheet

Private Sub Workbook_Open()
Sheet1.Range("L5").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True
End Sub
双击thisworkbook,在代码窗口中加入以上代码。其中的sheet1,可以改为你要执行代码的sheet
又想了一下,你代码的第二句似乎没用呀
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-09-27
把这个宏放到表对象里,而不是放在工作簿对象里。
相似回答