运用VBA在单元格实现文字自动滚动的效果

作者：绿色风分类：时间：2022-08-18 浏览：446

楼主 xmyjk	Q:如何在单元格区域实现下图的文字自动滚动的效果。 A:代码如下： Dim dd As Boolean Sub test1() dd = True [E6] = Format(Now(), "aaaa") [E8] = Format(Now() + 1, "aaaa") [E10] = Format(Now() + 2, "aaaa") test2 End Sub Sub test2() Dim t As Single t = Timer Do Until Timer > t + 0.2 DoEvents Loop If dd Then Range("a2") = Right(Range("a2"), 1) & Left(Range("a2"), Len(Range("a2")) - 1): test1 End Sub Sub test3() dd = False End Sub 文字自动滚动.rar
2楼猴子	版主能解释一下代码就好了，有一句看不懂。
3楼 fxgg72	谢谢老师贡献！标题从右往左，从下而上，标题不动但背景和标题是闪烁的.....，怎么做？谢谢！
4楼传递	以前不敢看VBA ,觉得太难，如今发现是宝贝啊

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表