標題: [發問] 開活頁簿，自動開另一個，兩個垂直並排顯示 [打印本頁]

---

作者: av8d    時間: 2023-11-4 23:11     標題: 開活頁簿，自動開另一個，兩個垂直並排顯示

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

[attach]36962[/attach]

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

112/11/4 23:27 已解答(代碼如下)

1. Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled

複製代碼

---

作者: singo1232001    時間: 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

---

作者: av8d    時間: 2023-12-6 21:19

回復 2# singo1232001

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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)