代码实现滚动(一小段Excel VBA代码023：动态滚动显示单元格区域内容)

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

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

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

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》选项卡样式

神奇的VBA使用演示图