VBA案例精选 创建多个新窗口且并排显示

代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()

Dim i As Integer

Dim wd As Window

Set wd = ActiveWindow

'创建3个新窗口

wd.NewWindow

wd.NewWindow

wd.NewWindow

Windows.Arrange Arrangestyle:=xlArrangeStyleTiled     '平铺窗口

MsgBox "已经创建了3个新窗口。下面将关闭这3个新窗口,并恢复原窗口。"

For i = 1 To Windows.Count - 1

Windows(Windows.Count - 1).Close

Next i

ActiveWindow.WindowState = xlMaximized

End Sub

注释：

For i = 1 To Windows.Count - 1，此处运用for循环，for循环需注意，结束时要跟着next成对出现。

【你们百度三天  不过我随口一句】
郑广学老师独家逐行手写沉浸式案例教学法 知其然更知其所以然
全套教程包含 VBA175例+函数操作408例+代码助手VIP
+100期直播回放
【268元进1000人高手VBA永久答疑群+880网站VIP】
买课咨询请加微信EXCEL880B

点击进入 郑广学老师Excel教程免费学7天 !

---

扫描二维码