[µo°Ý] ¶}¬¡­¶Ã¯¡A¦Û°Ê¶}¥t¤@­Ó¡A¨â­Ó««ª½¨Ã±ÆÅã¥Ü

av8d

««ª½¨Ã±ÆÅã¥Ü.rar (16.33 KB)

¤U¸ü¦¸¼Æ: 4

2023-11-4 23:10

¶}±Ò¬¡­¶Ã¯1®É¡A·|¦Û°Ê¶}±Ò¬¡­¶Ã¯2¡A¨Ã±N¨â­Ó¬¡­¶Ã¯««ª½¨Ã±ÆÅã¥Ü¡C
¦ý¬O««ª½¨Ã±ÆÅã¥Ü¨Ã¨S¦³¦¨¥\¡C(¹w­p§Æ±æ¬¡­¶Ã¯1¦b¥ªÃä¡A¬¡­¶Ã¯2¦b¥kÃä)
¤£ª¾¹D¦³¨S¦³«e½ú¹Á¸Õ¹L¡H

112/11/4 23:27 ¤w¸Ñµª(¥N½X¦p¤U)

1. Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled

½Æ»s¥N½X

singo1232001

¦^´_ 1# av8d


    Sub ¥¨¶°1()

Left1 = 0
Top1 = 0
width1 = 575 ' (½Ð¦Û¦æ½Õ¾ã¼e«×)
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

¦^´_ 2# singo1232001

ÁÂÁ«e½ú¡A¥Ø«e¦³­Ó§ó´Æ¤âªº°ÝÃD»Ý­n¸Ñ¨M¡A¤£ª¾¹D±z¦³¨S¦³¹J¨ì¹L¡A¤£¦Pª©¥»¤£¬Û®eªº°ÝÃD¡C

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