ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ av8d ©ó 2023-11-4 23:27 ½s¿è

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

¶}±Ò¬¡­¶Ã¯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

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2023-12-4 01:41 ½s¿è

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD