返回列表 上一主題 發帖

[發問] 開活頁簿，自動開另一個，兩個垂直並排顯示

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-11-4 23:11 | 只看該作者

[發問] 開活頁簿，自動開另一個，兩個垂直並排顯示

本帖最後由 av8d 於 2023-11-4 23:27 編輯

垂直並排顯示.rar (16.33 KB)

開啟活頁簿1時，會自動開啟活頁簿2，並將兩個活頁簿垂直並排顯示。
但是垂直並排顯示並沒有成功。(預計希望活頁簿1在左邊，活頁簿2在右邊)
不知道有沒有前輩嘗試過？

112/11/4 23:27 已解答(代碼如下)
  1. Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled
複製代碼
收藏 分享

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2023-12-4 01:40 | 只看該作者
本帖最後由 singo1232001 於 2023-12-4 01:41 編輯

回復 1# av8d


    Sub 巨集1()

Left1 = 0
Top1 = 0
width1 = 575 ' (請自行調整寬度)
height1 = 617 ' (請自行調整高度)

For Each Z In Windows
If Z.Caption Like "活頁簿1.xlsm" Then
If Z.WindowState <> xlNormal Then Z.WindowState = xlNormal
If Z.WindowState <> xlNormal Then Z.WindowState = xlNormal
    Z.Left = Left1
    Z.Top = Top1
    Z.Width = width1
    Z.Height = height1
ElseIf Z.Caption Like "活頁簿2.xlsm" Then
If Z.WindowState <> xlNormal Then Z.WindowState = xlNormal
If Z.WindowState <> xlNormal Then Z.WindowState = xlNormal
    Z.Left = Left1 + width1
    Z.Top = Top1
    Z.Width = width1
    Z.Height = height1
End If
Next
End Sub

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 2023-12-6 21:19 | 只看該作者
回復 2# singo1232001

謝謝前輩，目前有個更棘手的問題需要解決，不知道您有沒有遇到過，不同版本不相容的問題。

https://forum.twbts.com/viewthre ... mp;extra=#pid122250

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題