求助帮忙写个数据轮动的代码，先拜谢老师们了！！

Eawer

如图所示，由于车间日报表的生产线数据很多，想设计一个轮动显示各条线的生产情况。

请老师们抽空帮忙！！


生产数据BI.zip (132.43 KB, 下载次数: 13)

2024-9-23 08:30 上传

点击文件名下载附件

哈喽哈哈1

每台明白你的意思的是通过滚动条进行对各个区域的数据进行变化是吗？

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1566548&fromguid=hot&extra=&mobile=&_dsign=4f011fd1

Eawer

zpy2 发表于 2024-9-23 11:18
https://club.excelhome.net/forum.php?mod=viewthread&tid=1566548&fromguid=hot&extra=&mobile=&_dsign=4 ...

感谢老班！
可惜ListView我还没学会，我这是64位的，初步想是全部显示行，然后通过显隐，太蠢的办法。

Eawer

哈喽哈哈1 发表于 2024-9-23 10:22
每台明白你的意思的是通过滚动条进行对各个区域的数据进行变化是吗？

就是显示区域只有10行数据，可要显示的有60+条以上，那么就让他们滚动起来，就像火车站的列车时刻表那样，可以一行一行的滚，或者一页一页的翻，都行。

fenghuaxue

Excel vba里有定时器的功能，可以通过这个动态控制加载的数据。

MOY838840554

OnTime定时刷新数据就行了

micch

1. Const rowsCnt As Integer = 10
   
2. Const timeCnt As Integer = 1
   
3. Sub Reset()
   
4.     Sheet1.Range("A1").Value = False
   
5.     Sheet1.Range("B3").Value = 1
   
6. End Sub
   
7. Sub cStop()
   
8.     Sheet1.Range("A1").Value = False
   
9. End Sub
   
10. Sub cStart()
    
11.     Sheet1.Range("A1").Value = True
    
12.     Call ScrollData
    
13. End Sub
    
14. Sub ScrollData()
    
15.     With Sheet1
    
16.         '更新数据,代码根据实际情况处理
    
17.         r = .Range("B3").Value + rowsCnt
    
18.         If r > Sheet2.UsedRange.Rows.Count Then
    
19.             .Range("B3").Value = 1
    
20.         Else
    
21.             .Range("B3").Value = r
    
22.         End If
    
23.         '定时执行下一次滚动
    
24.         If .Range("A1").Value Then
    
25.             Application.OnTime Now + VBA.TimeSerial(0, 0, timeCnt), "ScrollData"
    
26.         End If
    
27.     End With
    
28. End Sub
    

复制代码

扇扇扇

练习一波，，

扇扇扇

附件里的按扭忘记指定宏