標題: [分享] 凍結表格語法(已解決) [打印本頁]

---

作者: PJChen    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)