excel中教大家使用vba去控制窗体大小

小编致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看小编经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，成为和小编一样的经验达人。excel中教大家使用vba去控制窗体大小，这里，让小编给大家介绍一下。

工具/原料

excel2016
此经验本人原创首发，未经本人许可请勿转载。

方法/步骤

1
首先我们打开一个工作样表作为例子。
2
使用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
因为所有额对象都是激活当前的窗口，所以我们在这里首先使用with函数来标准化代码，格式是在with空格后写下对象名称，以下的对象属性或方法皆以.开始输入。
4
现在设置excel工作薄的工作窗口为正常模式，即不为最大化，也不为最小小化。然后设置窗口的坐标为top=1，left=1，即为屏幕最左上方（1,1）的位置。
5
将窗口大小设置为高height=50，宽width=50，大概窗体的大小是这样的。
6
接着我们使用循环语句将高宽累加，并在excel中进行显示更新，其终止值为UsableHeight和UsableWidth，即为普通窗口能够达到的最大尺寸。
7
最后我们直接将窗体的大小以属性.WindowState = xlMaximized，将窗体最后设置为最大化，当运行这个过程时，excel工作窗口会逐渐变大，最终以最大化后结束过程。
8
先写到这里了，谢谢大家的观看。
祝大家生活愉快。
小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。
看不清楚图片的可以点击放大再看哦。