- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
本帖最後由 PJChen 於 2023-5-27 11:06 編輯
大家好,
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 |
|
發表於 2023-5-24 19:14
| 
