小编致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看小编经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，成为和小编一样的经验达人。excel中教大家使用vba去控制窗体大小，这里，让小编给大家介绍一下。工具/原料moreexcel2016此经验本人原创首发，未经本人许可请勿转载。方法/步骤1/8分步阅读

首先我们打开一个工作样表作为例子。

2/8

使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub SheetGradualGrow()

Dim x As Integer

With ActiveWindow

.WindowState = xlNormal

.Top = 1

.Left = 1

.Height = 50

.Width = 50

For x = 50 To Application.UsableHeight

.Height = x

Next x

For x = 50 To Application.UsableWidth

.Width = x

Next x

.WindowState = xlMaximized

End With

End Sub

3/8

因为所有额对象都是激活当前的窗口，所以我们在这里首先使用with函数来标准化代码，格式是在with空格后写下对象名称，以下的对象属性或方法皆以.开始输入。

4/8

现在设置excel工作薄的工作窗口为正常模式，即不为最大化，也不为最小小化。然后设置窗口的坐标为top=1，left=1，即为屏幕最左上方（1,1）的位置。

5/8

将窗口大小设置为高height=50，宽width=50，大概窗体的大小是这样的。

6/8

接着我们使用循环语句将高宽累加，并在excel中进行显示更新，其终止值为UsableHeight和UsableWidth，即为普通窗口能够达到的最大尺寸。

7/8

最后我们直接将窗体的大小以属性.WindowState = xlMaximized，将窗体最后设置为最大化，当运行这个过程时，excel工作窗口会逐渐变大，最终以最大化后结束过程。

8/8

先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。

注意事项

个人经验，仅供参考。

EXCEL表格工作窗口