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

[¤À¨É] ­áµ²ªí®æ»yªk(¤w¸Ñ¨M)

[¤À¨É] ­áµ²ªí®æ»yªk(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ PJChen ©ó 2023-5-27 11:06 ½s¿è

¤j®a¦n,
1:17¦C¤£­n¦bµøµ¡¬Ý¨ì
¤]´N¬O»¡¥iµø½d³ò¬OA18¶}©l
­áµ²«ü©w¤§µøµ¡®æC21

Dim oWindow As Window
Set oWindow = xS.Application.ActiveWindow
With oWindow
    .FreezePanes = False '¥ý¨ú®ø,«á­áµ²
    .SplitColumn = 0 '¤À³ÎÄæ¼Æ¨ú®ø
    .SplitRow = 0 '¤À³Î¦C¼Æ¨ú®ø
    Application.SendKeys "^{home}" '«öctrl+home
    ActiveWindow.ScrollRow = 18 '¿Ã¹õ¤W¥iµø,±q²Ä18¦C¶}©l
    ActiveWindow.ScrollColumn = 1 '¿Ã¹õ¤W¥iµø,±q²Ä1Äæ¶}©l
    .SplitRow = 3    '¤À³Î¦C¼Æ,±q¿Ã¹õ¤W¥iµø²Ä18¦C¶}©l,©¹¤U3¦C­áµ²
    .SplitColumn = 2 '¤À³ÎÄæ¼Æ,±q¿Ã¹õ¤W¥iµø²Ä1Äæ¶}©l,¥k2Äæ­áµ²
    .FreezePanes = True '«á­áµ²
End With

20230524.191052.jpg (71.52 KB)

20230524.191052.jpg

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD