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吧！