Question

我有一个专用的电脑和电视屏幕，它们都只是为了显示整个业务的销售数据。

我有一个包含3个可见工作表的电子表格＆＃34;当天的销售额＆＃34;，＆＃34;当月的销售额＆＃34;和＆＃34;年度销售＆＃34;。这些工作表链接到同一工作簿中的隐藏数据透视表。

有人可以设计一个在30秒间隔后循环工作表的宏。现在棘手的部分是工作簿中的数据透视表应该每30分钟刷新一次。

刷新应该在更改工作表循环时进行短暂休息，但在刷新完成后，循环应该继续恢复原样。

请您的帮助将受到高度赞赏，我将向您发送一张主要作品的图片。

我的循环代码如下......

Sub Test()
  Dim i As Long, t As Single

  On Error GoTo exit_
  Application.EnableCancelKey = xlErrorHandler
  Do
    i = i + 1
    If i > 3 Then i = 1
    If i = 1 Then
    Sheets("Sales for the day").Select
    ElseIf i = 1 Then
    Sheets("Sales for yesterday").Select
    ElseIf i = 2 Then
    Sheets("Sales for the month").Select
    ElseIf i = 3 Then
    Sheets("Sales for the year").Select
    End If
    t = Timer + 1
    Application.Wait Now + TimeSerial(0, 0, 30)
    If Timer < t Then Exit Do
  Loop
exit_:

End Sub

循环显示可见工作表并刷新所有隐藏的数据透视表

0 个答案: