WPS表格如何快速隐藏不使用的区域
学习啦小编教你WPS表格快速隐藏不使用的区域的教程，希望对你有帮助!
WPS表格快速隐藏不使用的区域的教程：
第一步，制作文档。
打开WPS表格 2009(在线文档公测版)，新建一个空白文档，在一些区域输入数字，作为使用区域。
第二步，点击“工具”—“宏”—“创建”新宏。
第三步，在Microsoft Visual Basic中输入或复制下列代码。
Sub HiddenSurroundRange()
学习啦在线学习网 Dim CelFirst As Range, CelLast As Range
If Not Selection Is Nothing Then
学习啦在线学习网 With Selection
'当前选中区域的第一个单元格
学习啦在线学习网 Set CelFirst = .Cells(1)
学习啦在线学习网 '当前选中区域的最后一个单元格
学习啦在线学习网 Set CelLast = .Cells(.Cells.Count)
End With
If CelFirst.Address <> "$A class="main">
WPS表格如何快速隐藏不使用的区域
'蓝色区域
学习啦在线学习网 With Range([a1], CelFirst.Offset(IIf(CelFirst.Row = 1, 0, -1), IIf(CelFirst.Column = 1, 0, -1)))
学习啦在线学习网 '如果当前选中区域不包括第一行，则隐藏蓝色区域所在的行
学习啦在线学习网 If CelFirst.Row <> 1 Then .EntireRow.Hidden = True
学习啦在线学习网 '如果当前选中区域不包括第一列，则隐藏蓝色区域所在的列
学习啦在线学习网 If CelFirst.Column <> 1 Then .EntireColumn.Hidden = True
End With
End If
学习啦在线学习网 f CelLast.Address <> "$IV536" Then
学习啦在线学习网 '与上面类似处理绿色区域
学习啦在线学习网 With Range(CelLast.Offset(IIf(CelLast.Row = 65536, 0, 1), IIf(CelLast.Column = 256, 0, 1)),
[IV65536])
if CelLast.Row <> 65536 Then .EntireRow.Hidden = True
If CelLast.Column <> 256 Then .EntireColumn.Hidden = True
学习啦在线学习网 End With
End IfEnd If
End Sub
第四步，执行“视图—工具—控件工具箱”，单击“按钮”，选择合适的位置插入一个悬浮的“隐藏”按钮，为它指定HiddenSurroundRange宏。
第五步，选定使用区域，点击“隐藏”按钮，使用区域以外的区域一次性全部隐藏。
学习啦在线学习网 小提示：WPS默认安装没有VBA环境，也无法使用宏功能，若要实现教程所述功能，需要另外安装VBA，WPSoffice在线文档公测版可以共享文档，只要有邮箱，就可以共享VBA文档，免去寻觅、下载之苦。另外，由于实例中运用了“宏”，在打开该文件时要启用宏。
WPS表格如何快速隐藏不使用的区域
