凍結窗格的三種(凍結窗格、凍結首行、凍結首列)
凍結窗格的三種(凍結窗格、凍結首行、凍結首列)代碼如果
Sub 凍結窗格()
ActiveWindow.FreezePanes = True
MsgBox "凍結單元格地址為:" & Replace(ActiveSheet.Cells(ActiveWindow.SplitRow 1, ActiveWindow.SplitColumn 1).Address, "$", "")
End Sub
Sub 凍結首行窗格()
ActiveWindow.SplitColumn = 0
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
MsgBox "凍結的為第" & ActiveWindow.SplitRow & "行"
End Sub
Sub 凍結首列窗格()
With ActiveWindow
.SplitColumn = 1
.SplitRow = 0
End With
ActiveWindow.FreezePanes = True
MsgBox "凍結的位置為第:" & ActiveWindow.SplitColumn & "列"
End Sub
Sub 取消凍結窗格()
With ActiveWindow
.SplitColumn = 0
.SplitRow = 0
End With
ActiveWindow.FreezePanes = False
End Sub
Sub 凍結窗格地址()
If ActiveWindow.FreezePanes Then
MsgBox "凍結單元格地址為:" & Replace(ActiveSheet.Cells(ActiveWindow.SplitRow 1, ActiveWindow.SplitColumn 1).Address, "$", "")
Else
MsgBox "未凍結單元格!"
End If
End Sub
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!