效果图
冷空气来袭，大家注意保暖，这两天本人突发冷空气过敏，浑身出疙瘩，一层又一层，奇痒难忍，脸都肿了，吃了药才好。说来也怪，依稀记得小时候得过一次过敏，没想到隔了这么些年，症状竟如此来势汹汹。虽然不是什么大不了的症状，小病来的时候还是很难受的，所以提醒大家注意身体健康。
言归正传，今天分享的是一段好玩的代码，字符滚动效果的代码。
有人说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
网友评论