excel用VB实现自动首尾循环滚动播放，且能按键控制停止开始

Question

例如这个第二页信息录入，实现让他循环播放，到底没有文字了就自动回滚，设置两个按键来控制开始和停止，求大神！

Answer 1

给个小例子给你

譬如A列是数据,运行Roll过程会在B列滚动,其他自己完善修改

Dim NextTime    As DateDim DataArrDim m           As IntegerDim TestArr(1 To 5, 1 To 1)  Sub TimeOnTime()    NextTime = Now + TimeValue("0:0:2")    m = m + 1    m = (m - 1) Mod 15 + 1    For k = m To m + 4        n = n + 1        TestArr(n, 1) = DataArr((k - 1) Mod 15 + 1, 1)    Next    Range("b1:b5") = TestArr    Application.OnTime NextTime, "TimeOnTime"End Sub Sub Roll()    DataArr = Range("a1:a15")    TimeOnTimeEnd Sub

Answer 2

发文件来我看看，应该可以实现