第2章 实用VBA代码实例.pdf

人民邮电出版社《Excel 公式与函数大辞典》配套光盘附赠电子书——Excel 2013 VBA 篇 第2章 简单而实用的 VBA 代码 本章将针对上一章介绍的几个重要对象，给出与它们相关的一些简单而实用的 VBA 代 码，这样既可以复习这几个重要对象的知识，又能了解它们在 Excel VBA 中的具体用法， 还可以掌握一些简单的代码实例。 2.1 控制窗口  这里说的控制窗口，是指通过 VBA 程序控制 Excel 窗口的各种状态，如调整窗口大小、 设置窗口标题、控制窗口界面显示状态、改变窗口显示比例等。 2.1.1 最大化 Excel 程序窗口 要让 Excel 程序窗口最大化，可以使用下面的代码： Sub 最大化 Excel 程序窗口 () Application.WindowState = xlMaximized End Sub WindowState 属性有以下 3 个常量： xlMaximized ：最大化窗口。 xlMinimized ：最小化窗口。 xlNormal ：恢复正常窗口。 2.1.2 设置工作簿窗口大小 下面的代码将当前 Excel 工作簿窗口的高度和宽度各缩小为原来的四分之一： Sub 设置工作簿窗口大小 () Dim h As Long, w As Long ActiveWindow.WindowState = xlNormal h = ActiveWindow.Height w = ActiveWindow.Width ActiveWindow.Height = h / 4 ActiveWindow.Width = w / 4 End Sub 2.1.3 设置工作簿窗口标题栏的显示内容 如果想要人工控制工作簿窗口标题栏的显示内容，那么可以使用下面的代码： 16 人民邮电出版社《Excel 公式与函数大辞典》配套光盘附赠电子书——Excel 2013 VBA 篇 Sub 设置工作簿窗口标题栏的显示内容 () Application.Caption = 使用程序设置 Excel 工作簿的标题 End Sub 运行上面的代码后，将显示如图 2-1所示的结果。 图2-1 通过程序改变 Excel 窗口标题栏的显示内容 2.1.4 设置显示比例 要设置工作簿窗口内的显示比例，可以使用下面的代码： Sub 设置显示比例 () ActiveWindow.Zoom = True ActiveWindow.Zoom = 200 End Sub 2.1.5 控制 Excel 界面的显示 Excel 程序窗口中的公式栏、滚动条和状态栏的显示状态，由下面 3 个属性控制： DisplayFormulaBar 属性：控制是否显示公式栏。 DisplayScrollBars 属性：控制是否显示滚动条。 DisplayStatusBar 属性：控制是否显示状态栏。 因此，可以使用下面的代码来控制公式栏、滚动条和状态栏都不显示： Sub 控制 Excel 界面的显示 () With Application .DisplayFormulaBar = False .DisplayScrollBars = False .DisplayStatusBar = False End With End Sub 运行上面的代码后，Excel 工作簿窗口将显示如图 2-2所示的结果，隐藏了公式栏、滚 动条和状态栏。 17 人民邮电出版社《Excel 公式与函数大辞典》配套光盘附赠电子书——Excel 2013 VBA 篇