【发布时间】:2014-10-24 11:05:49
【问题描述】:
我们有一个显示在电视屏幕上的电子表格,它过去只是一个工作表,但现在已将销售数据添加到其他工作表中。
电子表格设置如下: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
我已经上传了图片并显示了所有内容的命名方式,只是想知道是否有人可以提供帮助。
谢谢,
【问题讨论】:
-
这个问题现在解决了,需要参考图表而不是工作表。
-
很高兴它解决了。为了将来参考,您仍然可以参考工作表,但如果图表在图表工作表上,则必须使用 Sheets("GraphData") 而不是 Worksheet("GraphData")。