VBA 语言 控制 Excel 的视图显示模式

阿木博主一句话概括：VBA^【1】在Excel^【2】视图显示模式^【3】控制中的应用与实现

阿木博主为你简单介绍：
VBA（Visual Basic for Applications）是Microsoft Office系列软件中的一种编程语言，它允许用户通过编写代码来自动化日常的Excel操作。本文将探讨如何使用VBA来控制Excel的视图显示模式，包括工作表^【4】的缩放^【5】、分页显示^【6】、网格线显示等，以提高工作效率和用户体验。

一、

Excel作为一款强大的数据处理工具，其视图显示模式对于用户来说至关重要。通过调整视图显示模式，用户可以更清晰地查看和分析数据。VBA提供了丰富的功能，可以帮助用户通过编程方式控制Excel的视图显示。本文将详细介绍如何使用VBA实现这一功能。

二、VBA基础

在开始编写VBA代码之前，我们需要了解一些VBA的基础知识。

1. VBA编辑器^【7】：打开Excel，按Alt + F11键，即可打开VBA编辑器。

2. 模块^【8】：VBA代码存储在模块中，每个工作簿可以包含多个模块。

3. 对象^【9】：Excel中的每个元素，如工作表、单元格等，都可以视为一个对象。

4. 属性^【10】：对象的属性用于描述其特征，如工作表的名称、单元格的值等。

5. 方法^【11】：对象的方法用于执行特定操作，如工作表的打印、单元格的格式设置等。

三、控制Excel视图显示模式

1. 设置工作表缩放

要设置工作表的缩放比例，可以使用`Zoom`属性。以下代码将工作表的缩放设置为100%：

vba
Sub SetZoomTo100()
With ActiveSheet
.Zoom = 100
End With
End Sub


2. 分页显示

要设置工作表的分页显示，可以使用`PageSetup<sup>【12】</sup>`方法。以下代码将工作表设置为分页显示：

```vba
Sub SetPageBreaks()
With ActiveSheet
.PageSetup.PrintArea<sup>【13】</sup> = ""
.PageSetup.LeftMargin<sup>【14】</sup> = 0.5
.PageSetup.RightMargin<sup>【15】</sup> = 0.5
.PageSetup.TopMargin<sup>【16】</sup> = 0.5
.PageSetup.BottomMargin<sup>【17】</sup> = 0.5
.PageSetup.PrintHeadings<sup>【18】</sup> = False
.PageSetup.PrintGridlines<sup>【19】</sup> = True
.PageSetup.PrintQuality<sup>【20】</sup> = xlPrintQualityHigh
.PageSetup.PrintActiveSheet<sup>【21】</sup> = True
.PageSetup.PrintOrder<sup>【22】</sup> = xlLandscape
.PageSetup.BlackAndWhite<sup>【23】</sup> = False
.PageSetup.PaperSize<sup>【24】</sup> = xlPaperA4
.PageSetup.Orientation<sup>【25】</sup> = xlPortrait
.PageSetup.FitToPagesWide<sup>【26】</sup> = 1
.PageSetup.FitToPagesTall<sup>【27】</sup> = 1
.PageSetup.PrintTitleRows<sup>【28】</sup> = False
.PageSetup.PrintTitleColumns<sup>【29】</sup> = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors<sup>【30】</sup> = xlPrintErrorsNone
.PageSetup.PrintComments<sup>【31】</sup> = xlPrintNoComments
.PageSetup.PrintWhat<sup>【32】</sup> = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.PrintWhat = xlPrintSelection
.PageSetup.PrintArea = ""
.PageSetup.PrintRange = ""
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = True
.PageSetup.PrintErrors = xlPrintErrorsNone
.PageSetup.PrintComments