閱： 1496 | 回： 2
等級:初學(xué)者
-
積分:0
-
財富值:2.00
-
身份:普通用戶
Sub 凍結(jié)首行()
Dim selectedRange As Range
If TypeName(Selection) <> "Range" Then
MsgBox "請選中單元格區(qū)域！", vbExclamation
Exit Sub
End If
' 獲取選中的區(qū)域
Set selectedRange = Selection
' 記錄地址（如 "A1:B10"）
Rows("1:1").Select ' 選中首行，不然會只凍結(jié)當(dāng)前展示的第一行。
With ActiveWindow
.FreezePanes = False ' 先取消現(xiàn)有凍結(jié)
.SplitRow = 1 ' 設(shè)置拆分位置在第1行下方
.FreezePanes = True ' 啟用凍結(jié)
End With
'回到之前的位置
Range(rangeAddress).Select
Dim selectedRange As Range
Dim rangeAddress As String
' 檢查是否選中了單元格（避免錯誤）If TypeName(Selection) <> "Range" Then
MsgBox "請選中單元格區(qū)域！", vbExclamation
Exit Sub
End If
' 獲取選中的區(qū)域
Set selectedRange = Selection
' 記錄地址（如 "A1:B10"）
rangeAddress = selectedRange.Address
'開始凍結(jié)
Rows("1:1").Select ' 選中首行，不然會只凍結(jié)當(dāng)前展示的第一行。
With ActiveWindow
.FreezePanes = False ' 先取消現(xiàn)有凍結(jié)
.SplitRow = 1 ' 設(shè)置拆分位置在第1行下方
.FreezePanes = True ' 啟用凍結(jié)
End With
'回到之前的位置
Range(rangeAddress).Select
End Sub
' 取消凍結(jié)這里沒記錄選中行，需要的可以按上面DIY一下
Sub 取消凍結(jié)()
With ActiveWindow
.FreezePanes = False ' 取消凍結(jié)
.Split = False ' 徹底移除拆分（必要，不然會留著拆分窗口）
End With
End Sub
With ActiveWindow
.FreezePanes = False ' 取消凍結(jié)
.Split = False ' 徹底移除拆分（必要，不然會留著拆分窗口）
End With
End Sub
我的個性簽名
等級:大師
等級:學(xué)有小成