返回目录：excel表格制作
一段简单的VBA代码，让你自如操作Excel，成为职场达人！
抛砖引玉的场景需求： A1单元格区域中滚动显示“我爱《神奇的VBA》”！下面代码示例中提供了三种场景及代码示例。
场景1： 文本重复滚动显示
在标准模块中加入如下代码即可实现上面的演示功能。
Dim Flag As BooleanSub 开始滚动()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 IfEnd SubSub 停止滚动() Flag = FalseEnd Sub场景2：文本水平收尾相连循环滚定显示
在标准模块中加入如下代码即可实现上面的演示功能。
Dim Flag As BooleanSub 开始滚动()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 IfEnd SubSub 停止滚动() Flag = FalseEnd Sub场景3：文本单字动态循环显示
在标准模块中加入如下代码即可实现上面的演示功能。
Dim Flag As BooleanSub 开始滚动()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 NextLoop Until Flag = FalseEnd SubSub 停止滚动() Flag = FalseEnd Sub
动手试一试，屏幕前的你， 复制代码运行下吧~~！
更多Excel VBA编程知识（职场牛人必备秘技），可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。
插件下载地址戳下面链接：
《神奇的VBA》选项卡样式
神奇的VBA使用演示图