WPS表格快速隐藏不使用的区域方法.pptxVIP

在自动化办公中，如果希望在WPS表格中只显示指定的部分区域，其余部分设置为隐藏，则需要多次使用行隐藏和列隐藏命令。作为办公高手，可以用VBA;代码将选中的连续区域以外的区域一次性全部隐藏。第一步，制作文档。打开WPS表格 2009(在线文档公测版)，新建一个空白文档，在一些区域输入;数字，作为使用区域。第二步，点击“工具”—“宏”—“创建”新宏。 第三步，在Microsoft Visual Basic 中输入或复制下;列代码。Sub HiddenSurroundRange()Dim CelFirst As Range, CelLast As RangeIf;Not Selection Is Nothing ThenWith Selection当前选中区域的第一个单元格Set CelFirst;=.Cells(1)当前选中区域的最后一个单元格Set CelLast=.Cells(.Cells.Count)End WithIf Ce;lFirst.Address $A$1 Then蓝色区域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=T;rueEnd WithEnd IfIf CelLast.Address $IV$65536 Then与上面类似处理绿色区域Wit;h Range(CelLast.Offset(IIf(CelLast.Row=65536, 0, 1), IIf(CelLast.Colu;mn=256, 0, 1)),[IV65536])If CelLast.Row 65536 Then .EntireRow.Hidde;n=TrueIf CelLast.Column 256 Then .EntireColumn.Hidden=TrueEnd WithE;nd IfEnd IfEnd Sub 第四步，执行“视图—工具—控件工具箱”，单击“按钮”，选择合适的位置插入一个悬浮的“隐藏”按钮，为它;指定HiddenSurroundRange宏。第五步，选定使用区域，点击“隐藏”按钮，使用区域以外的区域一次性全部隐藏。 小提示：WPS默;认安装没有VBA环境，也无法使用宏功能，若要实现教程所述功能，需要另外安装VBA，WPS office在线文档公测版可以共享文档，只要有邮;箱，就可以共享VBA文档，免去寻觅、下载之苦。另外， 由于实例中运用了“宏”，在打开该文件时要启用宏。;ERP /