tft每日頭條

 > 生活

 > vba指定單元格錄入函數并向下填充

vba指定單元格錄入函數并向下填充

生活 更新时间:2024-07-22 18:20:15

凍結窗格的三種(凍結窗格、凍結首行、凍結首列)

vba指定單元格錄入函數并向下填充(VBA實現凍結窗格并返回行列号)1

vba指定單元格錄入函數并向下填充(VBA實現凍結窗格并返回行列号)2

vba指定單元格錄入函數并向下填充(VBA實現凍結窗格并返回行列号)3

vba指定單元格錄入函數并向下填充(VBA實現凍結窗格并返回行列号)4

vba指定單元格錄入函數并向下填充(VBA實現凍結窗格并返回行列号)5

凍結窗格的三種(凍結窗格、凍結首行、凍結首列)代碼如果

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每日頭條,我们将持续为您更新最新资讯!

查看全部

相关生活资讯推荐

热门生活资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved