单元格内容文字滚动特效示例

kristzhang

先收下，谢谢！

kristzhang

提示语句错误！
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Now() + TimeValue("00:00:01"), "scroll", , False
End Sub

Private Sub Workbook_Open()
scroll
End Sub

aoe1981

学习了，贴一下楼主的代码：

1. Dim BBB As Byte
   
2. Sub 按钮1_单击()
   
3. BBB = 1
   
4. Range("C6") = "我爱中文Excel俱乐部！                        "
   
5. Do
   
6.       For j = 1 To 800
   
7.           DoEvents
   
8.       Next j
   
9.       Range("C6") = Right(Range("C6"), 1) & Left(Range("C6"), Len(Range("C6")) - 1)
   
10.     Loop Until BBB = 0
    
11. End Sub
    
12. Sub 按钮2_单击()
    
13. BBB = 0
    
14. End Sub
    

复制代码

真是没想到，如此简洁、巧妙的代码！
核心语句：
Range("C6") = Right(Range("C6"), 1) & Left(Range("C6"), Len(Range("C6")) - 1)

aoe1981

那要是想上下滚动，该怎么办呢？呵呵，算是胡说八道吧……

aoe1981

改了一个内存数组版的：

1. Sub 按钮1_单击()
   
2. BBB = 1
   
3. Dim i%, j%, s$, n%, m&, sarr()
   
4. s = "我爱中文Excel俱乐部！                        "
   
5. Range("C6").Value = s
   
6. n = Len(s)
   
7. ReDim sarr(1 To n)
   
8. m = -1
   
9. For i = 1 To n
   
10.     sarr(i) = Right(s, i) & Left(s, n - i)
    
11. Next i
    
12. Do
    
13.       For j = 1 To 8000
    
14.           DoEvents
    
15.       Next j
    
16.       m = m + 1
    
17.       i = m Mod n + 1
    
18.       Range("C6") = sarr(i)
    
19.     Loop Until BBB = 0
    
20. End Sub

复制代码

从效果上来看，没多大改变……
如此举动完全是被楼主的巧妙思路所吸引！

aoe1981

不过，程序执行中可以点击按钮，还是让我开了眼界，在测试时，我就进入了死循环，改过的代码第一次连保存都没有来得及，只好写了第二次……唉

kang2431

怎么现在没有兰版主的帖子