Excel VBA 页面设置 _电脑

对于经常做Excel表格的小伙伴们，经常需要设置Excel的打印页面和字体、页眉页脚等，那么若何利用VBA来完当作反复的操作呢？我们一路进修一下。

文章插图

需要这些哦
电脑
office excel
方式/
1打开新建一个并打开EXCEL工作表

文章插图

2利用Alt+F11组合快捷键进入vbe编纂器或者单击【开辟东西】-VIsual Basic ，并插入一个新的模块。如图所示。

文章插图

文章插图

3【Excel VBA 页面设置】在模块中编写如下代码：
Sub 初始化设置()
Cells.Select
Selection.RowHeight = 16
Selection.ColumnWidth = 9

With ActiveSheet.PageSetup
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.Zoom = 100
With
Sub
这部门代码单元英寸。

文章插图

4若是我们想直接设置厘米单元，我们这一将代码改为如下：
Sub 初始化设置()
ActiveSheet.Cells.RowHeight = 16
ActiveSheet.Cells.ColumnWidth = 9
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin = Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(1.5)
.BottomMargin = Application.CentimetersToPoints(1) '底
.HeaderMargin = Application.CentimetersToPoints(0.5) '页眉
.FooterMargin = Application.CentimetersToPoints(0.5) '页脚
.Zoom = 100
With
Sub