斗俩下载站提供最新Win11系统下载,Ghost Win10下载,win7系统下载,软件下载

xp教程办公软件教程seo游戏攻略

windows7旗舰版
当前位置:主页 > 办公软件教程 >

WPS表格迅速隐藏不运用的区域方法

发布时间:2022-08-24 来源:win7旗舰版 浏览量:

电子表格(Spreadsheet),又称电子数据表,是一类模拟纸上计算表格的计算机程序。电子表格可以输入输出、显示数据,也利用公式计算一些简单的加减法。可以帮助用户制作各种复杂的表格文档,进行繁琐的数据计算,并能对输入的数据进行各种复杂统计运算后显示为可视性极佳的表格,同时它还能形象地将大量枯燥无味的数据变为多种漂亮的彩色商业图表显示出来,极大地增强了数据的可视性。

   在自动化办公中,如果希望在WPS表格中只显示指定的部分区域,其余部分设置为隐藏,则需要多次使用行隐藏和列隐藏命令。作为办公高手,可以用VBA代码将选中的连续区域以外的区域一次性全部隐藏。

  第一步,制作文档。

  打开WPS表格 2009(在线文档公测版),新建一个空白文档,在一些区域输入数字,作为使用区域。

  第二步,点击“工具”—“宏”—“创建”新宏。

WPS表格快速隐藏不使用的区域方法 三联
WPS表格快速隐藏不使用的区域方法

  第三步,在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$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 = True

  End With

  End If

  If CelLast.Address <> "$IV$65536" 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 If

  End If

  End Sub

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

  第四步,执行“视图—工具—控件工具箱”,单击“按钮”,选择合适的位置插入一个悬浮的“隐藏”按钮,为它指定HiddenSurroundRange宏。

  第五步,选定使用区域,点击“隐藏”按钮,使用区域以外的区域一次性全部隐藏。

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

  小提示:WPS默认安装没有VBA环境,也无法使用宏功能,若要实现教程所述功能,需要另外安装VBA,WPS office在线文档公测版可以共享文档,只要有邮箱,就可以共享VBA文档,免去寻觅、下载之苦。另外, 由于实例中运用了“宏”,在打开该文件时要启用宏。

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

金山WPS Office专业版的安全性经过几百家权威机构及组织证明,金山wps办公套装无限扩展用户个性化定制和应用开发的需求;专为中国用户使用习惯的量身定制的wps Office软件,金山wps是中国最好的office办公软件。

关键词: WPS表格迅速隐藏不运用的区域办法_wps图文详细教程_本站 
我要分享:

相关推荐

本站发布的ghost系统仅为个人学习测试使用,请在下载后24小时内删除,不得用于任何商业用途,否则后果自负,请支持购买微软正版软件!

如侵犯到您的权益,请及时通知我们,我们会及时处理。手机站

Copyright @ 2018 斗俩下载站(http://www.doulia.cn) 版权所有  xml地图 邮箱: