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