我用VBA做的钟表，想让它动起来，以下的代码出现问题，请高人帮修改一下

显示全部楼层 · 2011-7-11 13:33:39

Sub min()
Application.OnTime Now + TimeValue("00:00:01"), "startime"
End Sub
Sub startime()
ActiveSheet.Shapes("秒针").Rotation = Second(Now) * 6 '秒
ActiveSheet.Shapes("分针").Rotation = Minute(Now) * 6
ActiveSheet.Shapes("时针").Rotation = Hour(Now) * 30
End Sub

千问 · 2011-7-11 13:33:39

未找到宏是因为你的宏放在sheet中，移到模块就可以了，或Application.OnTime Now + TimeValue("00:00:05"), "Sheet1.startime"‘指定在那个sheet，区分大小写...

千问 · 2011-7-11 13:33:39

Sub min()
startimeEnd SubSub startime()Application.OnTime Now + TimeValue("00:00:01"), "startime"ActiveSheet.Shapes("秒针").Rotation = Second(Now) * 6 '秒ActiveSheet....