【问题标题】:Loop excel worksheets on a TV在电视上循环 Excel 工作表
【发布时间】: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")。

标签: excel vba


【解决方案1】:

您的两个代码示例不同。看起来您可能会尝试访问可能不存在的名为“GraphData”和/或“SalesData”的工作表。

【讨论】:

  • 干杯,刚刚修改了代码以表示它的实际情况。我一直在搞乱命名,看看我能不能让它工作。
猜你喜欢
  • 1970-01-01
  • 1970-01-01
  • 2020-04-05
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 2014-03-22
  • 1970-01-01
  • 2014-05-25
相关资源
最近更新 更多