EXCEL VBA实现冻结窗格并返回行列号

冻结窗格的三种（冻结窗格、冻结首行、冻结首列）

冻结窗格的三种（冻结窗格、冻结首行、冻结首列）代码如果

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

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑，如果对您有帮助欢迎转发分享！

你可能对这些文章感兴趣：

• Excel表格十大函数(Excel表格函数公式出现错误怎么办?)
• 对不起！忘了告诉你如何激活win10LTSC版，比windows7流畅干净
• Mac新手使用技巧——Mac音量调节
• 新入手的iPhone 13，记得提前打开这5个功能，让手机更好用
• iPhone状态栏中怎么显示图标 状态栏爱心等图标设置方法
• iphone应用图标大小要怎么调整？(iPhone应用图标大小)
• 有办法了！批量删除多个Word页眉页脚
• Excel常用函数知识：使用RANK.EQ或RANK.AVG函数进行排名计算
• RANKIF？Excel中有这个函数吗？
• 手机与和U盘的连接及文件操作(手机直接连接u盘为什么不能互传文件)