在电视上循环excel工作表

时间:2014-10-24 11:05:50

标签: excel vba

我们在电视屏幕上显示工作电子表格,它过去只是一张工作表,但销售数据现已添加到其他工作表中。

电子表格如下: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 

enter image description here

我已经上传并且图片也显示了所有内容的名称,只是想知道是否有人可以提供帮助。

谢谢,

1 个答案:

答案 0 :(得分:0)

您的两个代码示例不同。看起来您可能正在尝试访问名为" GraphData"和/或" SalesData"可能不存在。