凍結表格語法(已解決)
[i=s] 本帖最後由 PJChen 於 2023-5-27 11:06 編輯 [/i]大家好,
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
頁:
[1]