VBA实现EXCEL冻结窗格并获取行号列号

2025-04-10 13:06:48

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

2、冻结窗格的三种（冻结窗格、冻结首行、冻结首列）代码如果Sub 冻结窗格() ActiveWindow.Fr髫潋啜缅eezePanes = True MsgBox "冻结单元格地址为:" & Replace(ActiveSheet.Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Address, "$", "")End SubSub 冻结首行窗格() ActiveWindow.SplitColumn = 0 ActiveWindow.SplitRow = 1 ActiveWindow.FreezePanes = True MsgBox "冻结的为第" & ActiveWindow.SplitRow & "行"End SubSub 冻结首列窗格() With ActiveWindow .SplitColumn = 1 .SplitRow = 0 End With ActiveWindow.FreezePanes = True MsgBox "冻结的为第:" & ActiveWindow.SplitColumn & "列"End SubSub 取消冻结窗格() With ActiveWindow .SplitColumn = 0 .SplitRow = 0 End With ActiveWindow.FreezePanes = FalseEnd SubSub 冻结窗格地址() If ActiveWindow.FreezePanes Then MsgBox "冻结单元格地址为:" & Replace(ActiveSheet.Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Address, "$", "") Else MsgBox "未冻结单元格!" End IfEnd Sub

3、必须启用宏：https://jingyan.baidu.com/article/f0062228d512adbad3f0c895.html

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。