[开_43] 在同一活頁簿中顯示 2 個視窗 ★★ (已總結)

rylane · 发表于 2005-6-24 09:03

BIzmVXev.rar (15.89 KB, 下载次数: 54)

做了一些改进，重定义后生成的工作薄的路径。现在无论先关哪个工作表，另一个都会自动最大化。

怪事，前一个程序在EXCEL2000里运行，能保存在同一个路径下，在EXCEL2002里，后生成的工作薄却保存在我的文档里。

是一活頁薄中顯示 2 視窗，不是 2 活頁薄 - Emily

[此贴子已经被Emily于2005-6-24 21:16:48编辑过]

Samsea · 发表于 2005-6-25 15:56

我的窗口规格是：1024 X 768.

aYshK5oU.zip (8.56 KB, 下载次数: 48)

你一開始就有 3 個可見的 Window，再運行 Workbook_Open 就有 5 個可見的 - Emily

[此贴子已经被Emily于2005-6-25 21:40:41编辑过]

清风_ll · 发表于 2005-6-25 19:49

可以不限定 Window 的多小嗎？i.e. If ThisWorkbook.Windows.Count > 1 Then Exit Sub - Emily

一样的道理啊，不过视窗大小和距离这两个条件就不加入了（显示到屏幕以外了啊）

iYh5c13r.rar (8.92 KB, 下载次数: 48)

Emily · 发表于 2005-6-25 21:46

其實運行多次是沒有特別意思，可見的應是重疊的 2 個視窗，但應不須要限制只有2 個視窗

Samsea · 发表于 2005-6-26 10:02

你一開始就有 3 個可見的 Window，再運行 Workbook_Open 就有 5 個可見的 - Emily

已改进，并可根据窗口规格自动调整视窗大小：

irv4Pi97.zip (8.91 KB, 下载次数: 51)

2 個 Windows 相距 50 啊 - Emily

[此贴子已经被Emily于2005-6-26 15:07:33编辑过]

清风_ll · 发表于 2005-6-26 12:42

QlSe6USj.rar (9.51 KB, 下载次数: 35)

Before close 要有 xlMaximized 啊 - Emily

我这里有最大化啊[em06]一定要在Beforeclose事件啊？

[此贴子已经被作者于2005-6-26 15:03:40编辑过]

Samsea · 发表于 2005-6-26 17:43

2 個 Windows 相距 50 啊 - Emily

已改进，并可根据窗口规格自动调整视窗宽度，高度。

xp0vHC9S.zip (9.68 KB, 下载次数: 43)

好像越來越複雜 - Emily

[此贴子已经被Emily于2005-6-26 23:50:50编辑过]

apolloh · 发表于 2005-6-26 19:31

偶也来试一个，还请Emily多多指教：）

ifavZLDB.rar (7.2 KB, 下载次数: 40)

apolloh · 发表于 2005-6-26 20:47

再看了一遍题目，Emily还要求关闭工作簿前关闭所有窗口，并且活动窗口最大化。

再做一个

OjEmYCtA.rar (7.56 KB, 下载次数: 45)

為什麼要還原窗口最大化呢，因要重新開啟 Excel 時不受影響。但你做的不可以，你的 width = 332 (我用1280 x 1024)，height = 329。基本上不需要 ThisWorkbook.Save

還有一很特別的，你的檔案要按 2 次關閉 - Emily

[此贴子已经被Emily于2005-6-26 23:53:43编辑过]

apolloh · 发表于 2005-6-27 07:11

我的分辨率是1024*768，我是让窗口在打开时根据应用程序的窗口大小自动调整尺寸了两次关闭是怎么回事？我这里是点一次全部关闭的。按你400*400的要求（之前没看清）再做一次，当然这样更简单了：）

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Win As Window '关闭触发器，关闭所有窗口，并最大化应用程序窗口 Application.EnableEvents = False Application.ScreenUpdating = False For Each Win In ThisWorkbook.Windows Win.Close Next ActiveWindow.WindowState = xlMaximized End Sub

Private Sub Workbook_Open() Dim Win As Window Application.ScreenUpdating = False '每次打开工作簿，新增加一个窗口,垂直并排窗口 ActiveWindow.NewWindow Windows.Arrange ArrangeStyle:=xlVertical '循环工作簿内的所有窗口，按其窗口的编号奇偶性分别放置在两个位置 For Each Win In ThisWorkbook.Windows With Win .Top = 50 .Left = 50 + (.WindowNumber Mod 2) * 450 .Width = 400 .Height = 400 End With Next End Sub

E6VR1Lng.rar (7.22 KB, 下载次数: 54)

[此贴子已经被作者于2005-6-27 7:14:22编辑过]

		自动登录	找回密码
密码			免费注册

[Excel 程序开发] [开_43] 在同一活頁簿中顯示 2 個視窗 ★★ (已總結)

回复：（Emily）[VBA2] 在同一活頁簿中顯示 2 個視窗 ...