如何让表格在LED大屏幕上滚动

Question

如题所述

Answer 1

Sub 滚动列()
For i = 1 To 5
  ActiveWindow.ScrollColumn = i
  '滚动速度，1秒=1000毫秒
  Delay 500
Next
End Sub

Sub 滚动行()
For i = 1 To 5
  ActiveWindow.ScrollRow = i
    '滚动速度，1秒=1000毫秒
  Delay 500
Next
End Sub


Sub Delay(ByVal Time As Double)
    Dim t As Double
    t = Timer
    Do While Timer - t < Time / 1000
        DoEvents
    Loop
End Sub

这是在电脑上滚动的效果，你把它投射到LED大屏幕上就可以了

有什么问题欢迎继续追问，满意请及时采纳