帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-9-30 14:11 | 只看該作者

[發問] 視窗-凍結視窗問題請教

DEAR ALL 大大
1.使用 EXCEL 視窗-凍結視窗功能會自動凍結 A1-G11.
請問我只想凍結第一列(A1-ZZ1) . 該如何下指令.
2.煩不吝賜教 THANKS*10000

樓主熱帖

羅

蝕光迴狼

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-9-30 16:02 | 只看該作者

Sub 蝕光迴狼()
ActiveWindow.FreezePanes = False '取消凍結視窗
Rows("2:2").Select: ActiveWindow.FreezePanes = True '凍結視窗(列)
'Range("H:H").Select: ActiveWindow.FreezePanes = True '凍結視窗(欄)
End Sub

複製代碼

不知道這是不是你要的效果耶~
因為你敘述的不是很清楚，
也沒有圖片可以讓我確認你要的效果......

我很笨,所以我很用心
　我學藝不精,但我渴求知識

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2014-10-1 08:55 | 只看該作者

DEAR SIR
Rows("2:2").Select: ActiveWindow.FreezePanes = True '凍結視窗(列)
100%符合需求. 感謝您之指導. THANKS*10000

羅

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-12-26

4^#

發表於 2020-2-8 21:37 | 只看該作者

如何可以 凍結視窗 於不同的工作表
如下  這樣該如何作業感謝~~~

  Sheets("工作表1").Rows("12:12").Select: ActiveWindow.FreezePanes = True
  Sheets("工作表3").Rows("10:10").Select: ActiveWindow.FreezePanes = True
  Sheets("工作表4").Rows("12:12").Select: ActiveWindow.FreezePanes = True

50 字節以內
不支持自定義 Discuz! 代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2842
主題: 10
精華: 0
積分: 2898
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-4-28

5^#

發表於 2020-2-9 11:28 | 只看該作者

本帖最後由准提部林於 2020-2-9 11:42 編輯

回復 4# 7777

Application.Goto Sheets("工作表1").Rows("12:12"): ActiveWindow.FreezePanes = True
Application.Goto Sheets("工作表3").Rows("10:10"): ActiveWindow.FreezePanes = True
Application.Goto Sheets("工作表4").Rows("12:12"): ActiveWindow.FreezePanes = True

或:
Dim AR, i%
AR = Array(1, "12", 3, "10", 4, "12")
For i = 0 To UBound(AR) Step 2
Sheets("工作表" & AR(i)).Select
Rows(AR(i + 1)).Select
ActiveWindow.FreezePanes = True
Next i

TOP