VBA编程，实现窗体排列的方法，就这一个方法

原标题：VBA编程，实现窗体排列的方法，就这一个方法

在Excel工作表中，窗口排列是一个简单功能，简单到几乎不知道有这个功能。

实际上在应用过程当中，并不会刻意对窗口进行一个排列，一个原因是当打开的工作表不是很多的时候，并没有要排列的必要，另一个原因就是不知道在什么地方操作。

实际上在菜单栏"视图"中有一个窗口功能项，里面包含了对窗口的一些操作。

本文将解释一下使用VBA代码如何实现同样的功能。

排列如下图：

很显然，左边一个窗口，右边一个，一共打开两个Excel文件。

实现方法：

Windows.Arrange

就是Windows下的一个方法。

具体参数可以查看下图介绍。

其中，最重要的一个属性设置就是Arrangestyle。

它给出了四个枚举项，直接选择相应的值，就可以实现相应的排序方法。

如：水平排列使用如下代码

Windows.Arrange Arrangestyle:=xlArrangeStyleHorizontal

XlArrangeStyle 枚举 (Excel)

名称

值

说明

xlArrangeStyleCascade

7

层叠窗口。

xlArrangeStyleHorizontal

-4128

水平排列窗口。

xlArrangeStyleTiled

1

默认值，平铺窗口。

xlArrangeStyleVertical

-4166

垂直排列窗口。

代码：

'层叠窗口

Private Sub CommandButton1_Click()

Windows.Arrange xlArrangeStyleCascade

End Sub

'水平排列

Private Sub CommandButton2_Click()

Windows.Arrange Arrangestyle:=xlArrangeStyleHorizontal

End Sub

'平铺窗口

Private Sub CommandButton3_Click()

Windows.Arrange xlArrangeStyleTiled

End Sub

'垂直排列

Private Sub CommandButton4_Click()

Windows.Arrange xlArrangeStyleVertical

End Sub

一个小功能，使用当中可能不会用到，但还是要记住有这个实现的方法。

欢迎关注、收藏

---END---返回搜狐，查看更多

责任编辑：