小编Smi*_*h78的帖子

您好,并提前感谢您的帮助.

我有一些代码,我承认从一个网站借来的.它每隔X秒更改一次显示的工作表.在我的情况下3秒.当我运行它时,它将一次更改为下一个工作表,然后在3秒后错误输出.

我收到的错误是"无法运行宏"C:\ users\BenjaminSmith\Desktop\Book1.xlsm'!displaysheets'.宏可能在此工作簿中不可用,或者可能禁用所有宏."

这是我的宏的代码

Sub displaysheets()

ShtNum = ActiveSheet.Index

ShtNum = ShtNum + 1
If ShtNum > Sheets.Count Then
ShtNum = 1
End If
Sheets(ShtNum).Activate
Application.OnTime Now + TimeValue("00:00:03"), "displaysheets"


End Sub

如果我删除该行

Application.OnTime Now + TimeValue("00:00:03"), "displaysheets"

我可以一遍又一遍地运行宏,没有问题.除了它不能继续自己的事实...

电子表格是XLSM.MS VBA是7.0.Excel是2010年.

我想也许问题是因为代码是递归的？

谢谢你的建议.