EXCEL里的“黑科技”！
来源：微信公众号表妹的EXCEL
最近半年，黑科技这个词突然火了起来，各行各业争相炫耀自己的黑科技产品，就连淘宝商品分类里也硬生生增加了一项“黑科技”选项。虽然表妹不太热衷于追逐潮流，但奈何EXCEL功能实在强大，随便编个VBA就可以惊艳四座，所以今天不得已也来在黑科技里参与一下，给大家展示一个EXCEL的黑科技：字幕滚动！
~~~~~~黑科技的分割线~~~~~~
效果展示
【字幕滚动】
怎么样？意不意外？惊不惊喜？喜欢不喜欢？嘻嘻，下面表妹就把制作方法传授给你，少年接招吧~~
字幕滚动 制作方法
步骤1：构建基础单元格
步骤2：添加控件
步骤3：编写代码
代码如下：
Dim P As Boolean
Sub 滚动()
Dim i As Integer
P = False
Range("A2") = "表妹的EXCEL，棒棒哒！间隔空格"
Do
For i = 1 To3000
DoEvents
Next i
Range("A2") = Right(Range("A2"), 1) & Left(Range("A2"), Len(Range("A2")) - 1)
If P = True Then Exit Sub
Loop
[A2] = "表妹的EXCEL，棒棒哒！"
End Sub
Sub 停止()
P = True
End Sub
代码替换参数解释:
A2：字幕滚动单元格；
表妹的EXCEL，棒棒哒！：滚动文本；
3000：滚动速度，数值越大滚动越慢；
步骤4：保存为“启用宏的工作簿”
补充说明
上例中文字滚动方向为从左向右，如果想要实现从右向左滚动可替换倾斜字体部分代码
代码如下：
Dim P As Boolean
Sub 滚动()
Dim i As Integer
P = False
Range("A2") = "表妹的EXCEL，棒棒哒！间隔空格"
Do
For i = 1 To3000
DoEvents
Next i
Range("A2") =Mid(Range("A2"), 2, Len(Range("A2")) - 1) & Left([A2], 1)
Loop
[A2] = "表妹的EXCEL，棒棒哒！"
End Sub
Sub 停止()
P = True
End Sub
-------------------------------------
黑科技介绍完毕，再见！
关注微信公众号“表妹的EXCEL”，每周一、三、五获取原创分享教程。
加入“表妹的EXCELQQ群（345387282）”，和勤奋好学的小伙伴们一起快乐地学习EXCEL吧！
