VBA让你的字动起来

效果图

冷空气来袭，大家注意保暖，这两天本人突发冷空气过敏，浑身出疙瘩，一层又一层，奇痒难忍，脸都肿了，吃了药才好。说来也怪，依稀记得小时候得过一次过敏，没想到隔了这么些年，症状竟如此来势汹汹。虽然不是什么大不了的症状，小病来的时候还是很难受的，所以提醒大家注意身体健康。

言归正传，今天分享的是一段好玩的代码，字符滚动效果的代码。

有人说VBA没什么用，花同样的时间，可以学C语言、java等，在上世纪90年代或许还行，但作为非计算机专业，对编程毫无基础的人来说VBA也有一些优势。

第一，上手容易。电脑在现今时代已经普及，在日常工作中，可能接触不到c，java，c#等语言，但excel，word，ppt几乎是办公必备技能，稍微深一点可能接触到access，cad等软件，这些软件中，vba是通用的，学习一点vba，能让工作轻松不少。

第二，就是与工作相关的选择问题，从个人角度而言，学c在工作中可能用不到，而学vb很快就能运用，在工作中学，学了又运用，达到互相促进，事半功倍的效果。所以学习进度其实是跟实际需求挂钩的。

第三，听说高手的境界不在于用什么，落叶飞花皆可杀人，我是新手，所以止于想象。技术不在于会用什么，在于能用到什么程度。

第四，工具即使功能再强大，也是工具了，没谁规定一定要学这个，或者那个，学东西就像练内功，不能本末倒置，以致走火入魔，只需循序渐进，量产产生质变，一朝顿悟，终能突飞猛进。

代码如下:

Option Explicit

Dim ting As Byte

Sub 字符滚动()

Dim j As Integer

ting = 1

[a1] = "有人说，时间是把杀猪刀"

Do

For j = 1 To 10000

DoEvents

Next j

[a1] = Mid([a1], 2, Len([a1]) - 1) & Left([a1], 1)

Loop Until ting = 0

[a1] = ""

End Sub

Sub 停止滚动()

ting = 0

End Sub