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

Emily · 发表于 2005-6-28 10:15

以下是引用清风_ll在2005-6-27 15:39:33的发言：
我想我在8楼的答案应该就可以满足题目要求了,16楼的贴子编辑后好象附件不能下载了,版主的题目总是让人难以理解其全部意思[em06]

请写明所谓的关闭后视窗为最大化的确切意思,这么个问题纠缠不清......

要求只有 4 行簡短的文字，真不明白為什麼不明白。

很多朋友寫編碼時會改變 Excel 的設定(每人的設定喜好不定) ，但沒有還原，這對原作者有用，其他人就受苦。

說回你的編碼，看附圖

清风_ll · 发表于 2005-6-28 21:21

在你的 WorkBook open事件中加入最大化只對你的 WorkBook 有用，運行你的編碼後重新開啟 Excel 依然像上圖 - Emily

经过多次测试,还是必须在beforeclose 和window deactivate 两个事件中都加入最大化代码

请测试

MeVXXoVn.rar (8.69 KB, 下载次数: 67)

可以了，賞 1 分以示鼓勵 - Emily

[此贴子已经被Emily于2005-6-30 11:51:33编辑过]

Emily · 发表于 2005-6-30 11:55

本題應不難吧？我想帶出一點:

很多朋友寫編碼時會改變 Excel 的設定(每人的設定喜好不定) ，但沒有還原，這對原作者有用，其他人就受苦。

我的編碼如下:

Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWindow.WindowState = xlMaximized For x = Windows.Count To 2 Step -1 Windows(x).Close Next ThisWorkbook.Saved = True End Sub

Sub Test() 'Workbook_Open() With ActiveWindow .WindowState = xlNormal .Top = 50 .Left = 50 .Width = 400 .Height = 400 End With

ActiveWindow.NewWindow With ActiveWindow .WindowState = xlNormal .Top = 50 .Left = 500 .Width = 400 .Height = 400 End With End Sub

清风_ll · 发表于 2005-6-30 21:01

呵呵,题目不难,只是版主在出题的时候没把所有条件写出来或者说大家对题意没完全搞清楚

我就错误理解了,请看结果区别

版主的

我的

Emily · 发表于 2005-7-1 00:37

4. 當關閉活頁簿時需要編碼關閉所有視窗及視窗設定 xlMaximized

以上是要求，是關閉活頁簿時需要編碼關閉所有視窗，不是單獨關閉視窗！

兩地文化差那麼遠?

[此贴子已经被apolloh于2005-7-1 7:50:55编辑过]

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

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

簡單總結