400-685-0732

WJMonitor舆情之声

企业大数据智能舆情监测管理解决方案

全网监测海量数据按需发布监测预警

实时把握舆情动态精准追溯信息源头

获取验证码
企业采购 个人使用
当前位置: 首页 > 办公 > excel > excel VBA教程VBA常用小代码:一键批量取消工作表隐藏

excel VBA教程VBA常用小代码:一键批量取消工作表隐藏

时间:2018-07-13 15:41:52

excel VBA教程VBA常用小代码:一键批量取消工作表隐藏,最近到了季度汇报的时候,掌握一手excel技能在此刻显得多么重要,为了是你的excel看起来更高大上,今天教大家设置excel VBA教程,今天我们的干货专业全称为“excel VBA教程VBA常用小代码:一键批量取消工作表隐藏”能不能以绚烂的技能征服领导,就在这一波了~

我们今天分享的VBA小代码的内容有两个,分别是:

1. 批量取消隐藏工作表

2. 批量提取单元格内的超链接地址

● 如何批量取消隐藏工作表

先说一下如何批量隐藏工作表。

我们可以按住Ctrl键,用鼠标分别选取需要隐藏的工作表标签(如果所隐藏是连续的表格,可以使用Shift键),使之成为一个工作表组合,然后通过右键菜单的【隐藏】功能,将该工作表组合中的工作表一次性隐藏起来~

excel VBA教程VBA常用小代码:一键批量取消工作表隐藏

可是,反过来,如果一个工作薄的部分工作表隐藏了,需要批量取消隐藏, EXCEL就没有提供这样的功能。大家就要一个一个去进行手工操作:

右键单击任意工作表标签,在右键菜单中,选择【取消隐藏工作表】,在弹出的对话框中,选择相应的表名,做【确认】操作。

excel VBA教程VBA常用小代码:一键批量取消工作表隐藏

如果需要取消隐藏的工作表很多,这样操作就很烦琐。

如何一次性全部取消隐藏表格呢?有一个技巧是通过预先设置【自定义月视图】,但依然有局限性。

可以使用以下VBA小代码:

Sub qxyc()

Dim sht As Worksheet

'定义变量

For Each sht In Worksheets

'循环工作簿里的每一个工作表

sht.Visible = xlSheetVisible

'将工作表的状态设置为非隐藏

Next

End Sub

动画操作示意:

excel VBA教程VBA常用小代码:一键批量取消工作表隐藏

代码一两行,工作不用忙断肠,说的就是这种情况了。您也动手试一下吧!

● 如何批量提取单元格内的超链接网址

excel VBA教程VBA常用小代码:一键批量取消工作表隐藏

如上图,A列单元格的数据设置了超链接,现在需要把超链接的网址提取出来,结果参考B列。

Excel本身并没有提供这样的函数,所以通常还是使用到VBA编程,下面是一个VBA自定义函数GetAdrs。

Function GetAdrs(Rng)

Application.Volatile True

With Rng.Hyperlinks(1)

GetAdrs = IIf(.Address = "", .SubAddress, .Address)

End With

End Function

将代码复制黏贴到工作簿的VBE界面新建的模块中,在B1单元格输入公式=getadrs(A1),并复制填充到B3单元格,就可以得到结果了。

以上就是excel VBA教程VBA常用小代码:一键批量取消工作表隐藏全部内容了,希望大家看完后能有所启发,对自己的工作生活有所帮助,想要了解更多跟excel VBA教程VBA常用小代码:一键批量取消工作表隐藏相关的内容,请关注我们优词网!

excel VBA教程VBA常用小代码:一键批量取消工作表隐藏

分享按钮