在Excel状态栏中设置滚动字幕

Excel的状态栏可以显示不同的信息：

如果我们做的报告，或者Excel应用可以在状态栏中设置滚动字幕，一定可以有不一般的效果😀，就像下面的效果：

01

实现方式

这个实现需要使用VBA代码。不过放心，很简单😀，还有模板文件，文末有获得模板文件的方式。

打开你的Excel文件，按Alt+F11打开VBA编辑器，并添加一个模块：

添加模块的方式如下：在VBAProject上点击鼠标右键，然后点击插入，模块：

点击模块，在右侧输入一下代码：

Sub ScrollingMarquee() Dim i As Integer, j As Integer Dim Marquee As String Marquee = "E学会，Excel一学就会" i = 1 step = 1 Application.DisplayStatusBar = True '显示状态栏 Application.StatusBar = Marquee Do For j = 1 To 1500 '字幕移动速度 DoEvents Next i = i + step If i > 100 Then step = -1 If i < 1 Then step = 1 Application.StatusBar = Space(i) & Marquee Loop Until Date > #12/31/9999#End Sub

和

Sub RestStatusbar() Application.StatusBar = ""End Sub


第一段代码就是用来执行字幕滚动的：

如果想停止字幕滚动，可以先停止执行该程序：

然后执行第二段代码，复原滚动条：

如果希望开机就有滚动屏幕效果，可以在VBA编辑器左侧工程窗口双击ThisWorkbook，

在右侧将下面的代码粘贴进去：

Private Sub Workbook_BeforeClose(Cancel As Boolean) M1.RestStatusbarEnd Sub
Private Sub Workbook_Open() M1.ScrollingMarqueeEnd Sub


这样，文件一打开，滚动条就自动显示滚动字幕。文件关闭时，会复原滚动条。这样不影响其他文件滚动条的使用。

好了，今天就分享到这里了！

学习更多VBA编程知识，加入E学会