Dim dd As Boolean
Sub test1()
dd = True
[E6] = Format(Now(), "aaaa")
[E8] = Format(Now() + 1, "aaaa")
[E10] = Format(Now() + 2, "aaaa")
test2
End Sub
Sub test2()
Dim t As Single
t = Timer
Do Until Timer > t + 0.2
DoEvents
Loop
If dd Then Range("a2") = Right(Range("a2"), 1) & Left(Range("a2"), Len(Range("a2")) - 1): test1
End Sub
Sub test3()
dd = False
End Sub
Public Sub Display()
[a1] = words
words = Right(words, Len(words) - 1) & Left(words, 1)
Application.OnTime Now() + TimeValue("00:00:01"), "Display"
End Sub
Public Sub StopDisplay(words As String) '终止滚动显示显示
Application.OnTime Now() + TimeValue("00:00:01"), "Display", , False
End Sub