返回列表 上一主題 發帖

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

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-5-24 19:14 | 只看該作者

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

本帖最後由 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

20230524.191052.jpg (71.52 KB)

20230524.191052.jpg

收藏 分享

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題