我们在电视屏幕上显示工作电子表格,它过去只是一张工作表,但销售数据现已添加到其他工作表中。
电子表格如下:DisplayData(Worksheet1) - SalesPerson(Worksheet2) - TeamChart(Worksheet3)
我一直在使用的代码是:
Sub changesheet()
intRun = 1
Do While intRun = 1
Worksheets("DisplayData").Select
Application.Wait (Now + TimeValue("0:00:10"))
Worksheets("SalesData").Select
Application.Wait (Now + TimeValue("0:00:15"))
Worksheets("GraphData").Select
Application.Wait (Now + TimeValue("0:00:15"))
Loop
如果工作表上有文本,则代码可以工作,但如果包含任何数据透视表,则代码无效。我收到错误:
Run-time error'9' Subscript out of range
我已经上传并且图片也显示了所有内容的名称,只是想知道是否有人可以提供帮助。
谢谢,
答案 0 :(得分:0)
您的两个代码示例不同。看起来您可能正在尝试访问名为" GraphData"和/或" SalesData"可能不存在。