[分享] 凍結表格語法(已解決)

PJChen

大家好,
1:17列不要在視窗看到
也就是說可視範圍是A18開始
凍結指定之視窗格C21

Dim oWindow As Window
Set oWindow = xS.Application.ActiveWindow
With oWindow
    .FreezePanes = False '先取消,後凍結
    .SplitColumn = 0 '分割欄數取消
    .SplitRow = 0 '分割列數取消
    Application.SendKeys "^{home}" '按ctrl+home
    ActiveWindow.ScrollRow = 18 '螢幕上可視,從第18列開始
    ActiveWindow.ScrollColumn = 1 '螢幕上可視,從第1欄開始
    .SplitRow = 3    '分割列數,從螢幕上可視第18列開始,往下3列凍結
    .SplitColumn = 2 '分割欄數,從螢幕上可視第1欄開始,右2欄凍結
    .FreezePanes = True '後凍結
End With