语言祝新年快乐的代码_携excel祝大家新年快乐！

最新推荐文章于 2023-12-17 21:18:35 发布

炒锅电解氯化钠

最新推荐文章于 2023-12-17 21:18:35 发布

阅读量1.9k

点赞数

文章标签：语言祝新年快乐的代码

本文链接：https://blog.csdn.net/weixin_32023091/article/details/112692980

版权

岁月不居，时节如流，2020年即将过去。今天是2020年最后一天，凡是过往，皆为序章，愿2021年所有的美好如期而至，祝大家新年快乐。 今天，咱们就用一种特别的方式向大家表达此时此刻的心情，在excel展示 移动字幕。 2020“鼠”实不易 2021“牛”转乾坤 ！

动态图形如下：

实现上述效果需要用到VBA程序，右键单击工作表标签，查看代码，将下列的代码放置在工作表插入模块中(代码看不全，左右滑动哦)：

'定义滚动的内容Public Const mystr As String = "2020“鼠”实不易 2021“牛”转乾坤！"Public rng As Range'作者：Excel R语言统计社区--乔恩红'滚动字幕-新年快乐Sub 开始()    Set rng = Range("B4")    If rng = "" Then rng = mystr    rng = Right(rng, Len(rng) - 1) & Left(rng, 1)    DoEvents    Debug.Print (TimeValue("00:00:01")) * 0.55    Debug.Print (TimeValue("00:00:01")) * 0.5    Application.OnTime Now + (TimeValue("00:00:01")) * 0.51, procedure:="开始"End SubSub 停止()    On Error Resume Next    Application.OnTime Now + (TimeValue("00:00:01")) * 0.51, "开始", , False    rng = mystrEnd Sub