动态变换折线图求助，特别难，请路过大侠指点！！！

xiaofan1999

动态变换折线图求助，特别难，请路过大侠指点！！！
要求：1.每5秒自动切换下3行数据并显示折线图。
          2.折线图大小位置不变。

IVYQQQQQ

给你写了个程序，你测试一下吧！

liulang0808

1. Dim tm, x
   
2. Sub 时间()
   
3.     If x = 0 Then
   
4.         x = 5
   
5.     Else
   
6.         If x + 3 < Cells(Rows.Count, 1).End(3).Row Then
   
7.             x = x + 3
   
8.         Else
   
9.             x = 2
   
10.         End If
    
11.     End If
    
12. 
    
13.     Call tu
    
14.     tm = Now() + TimeValue("00:00:05")
    
15.     Application.OnTime tm, "时间"
    
16. End Sub
    
17. Sub 终止()
    
18.     Application.OnTime tm, "时间", , False
    
19. End Sub
    
20. Sub tu()
    
21. 
    
22.     ActiveSheet.ChartObjects("图表 1").Activate
    
23.     For i = 0 To 2
    
24.     ActiveChart.SeriesCollection(i + 1).Name = "=Sheet1!$A$" & x + i
    
25.     ActiveChart.SeriesCollection(i + 1).Values = "=Sheet1!$B$" & x + i & ":$O$" & x + i
    
26.     Next i
    
27. End Sub
    

复制代码

liulang0808

这个附件有代码，运行时间那个，间隔是5秒，具体时间楼主自己设置，供参考。

xiaofan1999

IVYQQQQQ 发表于 2019-9-11 12:38
给你写了个程序，你测试一下吧！

谢谢大侠，小弟十分感激！！！祝大哥中秋节快乐！！！

xiaofan1999

liulang0808 发表于 2019-9-11 13:45
这个附件有代码，运行时间那个，间隔是5秒，具体时间楼主自己设置，供参考。

谢谢大侠！！！感谢您经常指点小弟，我在excelhome里能认识您们是我的福气，祝您中秋节快乐！！！