如何才能固定住EXCEL中的行与列而使得在拉滚动条的时候都能看见标题?
'---------------------------------------------------------------------------------
'作者:Kammy Loo
'邮箱:rophux@gmail.com
'过程功能:设置固定的行列
'输入参数:rowIdx:设定的行下标;colIdx:设定的列下标
'输出参数:无
'返回值 :无
'函数说明:指定一个单元格的行与列的下标即可。
'---------------------------------------------------------------------------------
Public Sub SetFixedRowCol(rowIdx As Long, colIdx As Long)
'防止异常
If rowIdx < 1 Or colIdx < 1 _
Or rowIdx > 65536 Or colIdx > 256 Then
Exit Sub
End If
'取消现有的窗口冻结
If ActiveWindow.FreezePanes Then
ActiveWindow.FreezePanes = False
End If
'选择一个单元格
ThisWorkbook.ActiveSheet.Range(Cells(rowIdx, colIdx), Cells(rowIdx, colIdx)).Select
'重新设置窗口冻结
ActiveWindow.FreezePanes = True
End Sub
'---------------------------------------------------------------------------------
'作者:Kammy Loo
'邮箱:rophux@gmail.com
'过程功能:设置固定的行列
'输入参数:rowIdx:设定的行下标;colIdx:设定的列下标
'输出参数:无
'返回值 :无
'函数说明:指定一个单元格的行与列的下标即可。
'---------------------------------------------------------------------------------
Public Sub SetFixedRowCol(rowIdx As Long, colIdx As Long)
'防止异常
If rowIdx < 1 Or colIdx < 1 _
Or rowIdx > 65536 Or colIdx > 256 Then
Exit Sub
End If
'取消现有的窗口冻结
If ActiveWindow.FreezePanes Then
ActiveWindow.FreezePanes = False
End If
'选择一个单元格
ThisWorkbook.ActiveSheet.Range(Cells(rowIdx, colIdx), Cells(rowIdx, colIdx)).Select
'重新设置窗口冻结
ActiveWindow.FreezePanes = True
End Sub