【原】神奇的VBA系列-023：动态滚动显示单元格区域内容

一段简单的VBA代码，让你自如操作Excel，成为职场达人！

抛砖引玉的场景需求： A1单元格区域中滚动显示“我爱《神奇的VBA》”！下面代码示例中提供了三种场景及代码示例。

场景1： 文本重复滚动显示

在标准模块中加入如下代码即可实现上面的演示功能。

Dim Flag As Boolean
Sub 开始滚动()
Dim str As String
 Flag = True
 str = "我爱《神奇的VBA》"
 n = Len(str)
xxx:
 If Flag = True Then
 For i = 1 To n
 txt = Mid(str, 1, i)
 For x = 1 To 100
 [A1] = txt
 DoEvents
 Next
 Next
 GoTo xxx
 End If
End Sub
Sub 停止滚动()
 Flag = False
End Sub

场景2：文本水平收尾相连循环滚定显示

在标准模块中加入如下代码即可实现上面的演示功能。

Dim Flag As Boolean
Sub 开始滚动()
Dim str As String
 Flag = True
 str = "我爱《神奇的VBA》"
xxx:
 If Flag = True Then
 [A1] = str
 For x = 1 To 5000
 DoEvents
 Next
 str = Mid(str, 2) & Left(str, 1)
 GoTo xxx
 End If
End Sub
Sub 停止滚动()
 Flag = False
End Sub

场景3：文本单字动态循环显示

在标准模块中加入如下代码即可实现上面的演示功能。

Dim Flag As Boolean
Sub 开始滚动()
Dim str As String
 Flag = True
 str = "我爱《神奇的VBA》"
Do
 For n = 1 To Len(str)
 [A1] = Mid(str, n, 1)
 For x = 1 To 1000
 DoEvents
 Next
 Next
Loop Until Flag = False
End Sub
Sub 停止滚动()
 Flag = False
End Sub

动手试一试，屏幕前的你， 复制代码运行下吧~~！

更多Excel VBA编程知识（职场牛人必备秘技），可下载安装使用职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。

插件下载地址戳链接：《神奇的VBA》-职场牛人都在使用的Excel插件

《神奇的VBA》选项卡样式