Excel实现一键冻结/解冻自定义行数/列数的技巧

1、本教程以下列数据为例，实现冻结自定义行数和列数。

2、选择一个ActiveX控件，本教程选择一个切换按钮。

3、绘制在A1单元格中。

4、右键菜单，选择查看代码，此时会自动跳转到VBA窗口。

5、在Private Sub ToggleButton1_Click()和End Sub代码之间复制粘贴以下代码：Dim i%, j% If ToggleButton1 Then i = InputBox("请输入需要冻结的行数") j = InputBox("请输入需要冻结的列数") Cells(i + 1, j + 1).Select ActiveWindow.FreezePanes = True Else ActiveWindow.FreezePanes = False End If

6、关闭VBA界面，回到Excel窗口。

7、点击按钮，输入需要冻结的行数和列数即可，如3行2列。