wps表用VBA设置一个按钮,点击就自动隐藏或者显示空白行?

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

第一步,制作文档。

打开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$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



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

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



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

电脑版腾讯QQ中怎么设置“停靠在桌面边缘时自动隐藏窗口”功能

QQ是我们常用的一款社交软件,给我们的生活带来了极大的便利和乐趣,深受用户欢迎,有的朋友想知道怎么设置"停靠在桌面边缘时自动隐藏窗口"功能,小编为大家解答这个问题.具体如下:1.第一步,请大家在自己的电脑中找到[QQ]图标,点击进入主界面,然后进行账号登录.2. 第二步,接下来,请选择屏幕左下方的[三]菜单按钮.3.第三步,如图所示,请点击箭头所指的[设置]这一项.4.第四步,此时,请点击屏幕左边的[主面板]选项.5. 第五步,接下来,请单击屏幕中[停靠在桌面边缘时自动隐藏]左边的复选

win7如何设置任务栏在右边并且自动隐藏

步骤一、点击底部任务栏的空白处,选择【属性】,然后进入到任务栏的菜单属性,如图所示: 步骤二、在窗口上的【屏幕上的任务栏位置】的“底部”更改成“右侧”,再任务栏外观下面选择【自动隐藏任务栏】把这个勾勾上即可。如图所示: 电脑常识 步骤三、现在点击【确定】即可。当然如果你想将任务栏调回到下面或者左侧的话也是通过上面的方法设置即可。

excel表中想删除列,但是点击右键后"删除"显示灰色,无法删除列怎么办?

方法一: 按以下步骤操作,应该可以解决你的问题: 1.关闭Excle程序 2.在系统盘(安装操作系统的那个磁盘,一般是C盘)上搜索"*.xlb"文件(不包括两边的引号) 3.删除搜索到的*.xlb文件 4.重新启动Excel程序 一般来说,经过上述操作,你所说的问题就能解决. 不过一些设置也恢复成默认的了(如工具栏的位置.显示了哪些工具栏等) 方法二: 有可能是设置了工作表保护状态. 取消的方法是:单击工具-保护-撤消工作表保护. 这里有可能要求输入密码,如果你不知道密码就不能撤消了.

迅雷下载怎么根据需要设置隐藏或显示悬浮窗?

迅雷7默认是一直显示悬浮窗,迅雷极速版则是不下载时隐藏悬浮窗.那么,我们也可以通过手动设置对迅雷悬浮窗的隐藏与显示!一起来了解下吧! 1.鼠标左键双击计算机桌面迅雷程序图标,将其打开运行.在运行的迅雷程序中,我们可以看到悬浮窗是显示的.如图所示: 2.如需要设置悬浮窗隐藏起来,则在悬浮窗上点击鼠标右键,在弹出的菜单选项框中,依次点击“悬浮窗显示设置”-->“隐藏悬浮窗”选项即可.如图所示: 3.点击“隐藏悬浮窗”选项后,这个时候悬浮窗就会隐藏起来.如图所示: 4.如果需要将其再次显示出来,则在任

excel怎么使用vba创建一个预设格式的工作表?

excel中使用vba创建一个预设格式的工作表 1.首先我们打开一个工作样表作为例子. 2.我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码: Sub CreateNewWorkbook2() Dim wb As Workbook Dim ws As Worksheet Dim i As Long MsgBox "将创建一个新工作簿,并预设工作表格式." Set wb = Workbooks.Add Set ws = wb.Sheets(1)

加快Win7启动速度通过修改注册表和引导设置这两方面

使用第三方软件对win7进行优化是件很普遍的事,优化后的win7在启动和运行速度上也的确能有不小的提升。但是这些软件往往存在一个很严重的问题,就是很容易优化过度,导致一些系统功能无法正常使用。因此,在win7优化方面,我们还是建议大家深入发掘win7潜能,从系统本身入手进行优化。 以加快win7启动速度为例,我们就可以通过修改注册表和引导设置这两方面进行优化: 1.修改注册表点击开始按钮,在开始菜单下方的文本框中输入“regedit”启动注册表编辑器。 在注册表编辑器左侧的目录中,依次打开H

WPS演示中怎么设置动画的排放序列即动画的播放顺序

今天小编又跟大家见面啦,今天带来的大家平时在使用wps过程中会遇到的一些小问题,既然是小问题,既然是小问题,我们当然可以自己利用小技巧解决,自己就可以搞定,不用麻烦别人,赶紧跟着小编往下看吧! 设置动画的排放序列即动画的播出顺序,让动画按照我们的意愿进行播放,下面有个不错的示例,大家可以参考下. 描述:编辑完英语题目,然后想让答案在题目之后一个一个出现,该怎么做呢?自定义动画里设置不出来?解决:实现该功能必须把题目和选项放在不同的文本框里,再设置动画,全在一个文本框里当然一次性全出来了. 描述:

在WPS表格中如何设置下拉菜单呢?

在职场中,表格越来越重要,不管是统计数据还是用来查找信息,只要是关于源数据方面,都离不开EXCEL的使用,那么WPS应该如何设置下拉菜单呢?下面小编就为大家介绍一下,来看看吧! 步骤 1.如果有wps软件的可以直接使用,若是没有,建议下载一个最新版本的wps安装包. 2.WPS也分excel.word和ppt三个分类,新开一个excel表,进入主页面,可以看到wps的excel与微软的excel的页面是不同的.并且右上区域可以登录账号进行云存储. 3.将需要使用的数据填入表格,例如下图.产品分为

excel vba制作一个数字时钟

下面为大家分享excel中使用vba制作一个数字时钟方法,不会的朋友可以参考本文,来学习吧! 步骤 1.首先我们打开一个工作样表作为例子. 2.使用alt+f11进入vbe编辑器,插入一个新的模块,并在模块编辑框中输入以下代码: ption Explicit Sub MyMacro() Dim dTime As Variant dTime = Now + TimeValue("00:00:01") Application.OnTime dTime, "Sheet3.MyMac

在Excel工作表中怎么设置下拉表格?

在平日的工作中,为节省输入的时间及减少输入错误,经常看到并且使用 Excel 表格的下拉列表.下面小编就为大家介绍在Excel工作表中怎么设置下拉表格方法,一起来看看吧! 步骤 首先,打开Excel电子表格,单击菜单栏中的“数据”,然后工具栏中选择“有效性”的选项. 在选择“有效性”后,会出现一个数据有效性的对话框,单击有效性对话框中的设置.会出现有效性条件的选项,在“允许”的那项单击下拉按钮,出现一些选项,我们勾选“序列”. 在设置完“允许”的条件后,再对”来源“输入我们所需的内容. 例如:如