（分享）运用VBA在单元格实现文字自动滚动的效果

long826121

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

as9966

多谢楼主分享哈

as9966

多谢楼主分享哈

long826121

为了感谢兄弟姐妹的支持，分享点是自己应做的撒

loan12150114

long826121 发表于 2011-9-5 17:58
为了感谢兄弟姐妹的支持，分享点是自己应做的撒

只使文字滚动怎么做啊大神，我QQ987323160

以下这个过程即可

Dim words As String                                                           '要滚动显示的内容


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

lwen314

有没有制作的教程，下载了 还是不会用 有大神告诉一下吗 ，小白一个