excel数据透视表如何创建导航工作表
发布时间:2023-04-23 21:55:48
当工作簿中的工作表不多时,我们只需要单击底部的工作表名到达想要操作的工作表。然而,当有很多工作表时,要找到想要的工作表就需要边单击滚动按钮边查找工作表,这可能要花点时间了。
其实,我们可以创建一个导航工作表,将工作簿中的所有工作表名称都放置到导航工作表中,并设置到工作表的链接,这样,我们只需要单击工作表名称,即可到达相对应的工作表。同时,在每个工作表中,放置回到导航工作表的链接,这样单击该链接就可以迅速回到导航工作表。这样更方便快捷,如下图1所示。
图1
实现上述功能的VBA代码如下:
Sub NavigateWorksheet()
Dim wks As Worksheet
Dim i As Integer
i = 0
‘如果存在”导航”工作表,则清除其内容
‘如果不存在”导航”工作表,则添加
If SheetExists(“导航”) Then
Cells.ClearContents
Worksheets(“导航”).Range(“A1”).Select
Else
Worksheets.Add before:=Worksheets(1)
ActiveSheet.Name = “导航”
End If
‘遍历工作表
For Each wks In Worksheets
i = i + 1
‘排除”导航”工作表
If i = 1 Then GoTo Continue
‘添加导航链接
With ActiveCell
.Value = wks.Name
.Hyperlinks.Add ActiveCell,””, _
wks.Name & “!A1″, _
TextToDisplay:=wks.Name, _
ScreenTip:=”单击返回导航工作表”
With Worksheets(i)
.Range(“A1″).Value =”返回到工作表: ” & ActiveSheet.Name
.Hyperlinks.AddSheets(wks.Name).Range(“A1”), “”, _
“‘” &ActiveSheet.Name & “‘” & “!” &ActiveCell.Address, _
ScreenTip:=”返回到工作表:” & ActiveSheet.Name
End With
End With
ActiveCell.Offset(1, 0).Select
Continue:
Next wks
End Sub
‘判断工作表是否存在
Function SheetExists(strName) As Boolean
Dim obj As Object
On Error Resume Next
Set obj = ActiveWorkbook.Sheets(strName)
If Err.Number = 0 Then
SheetExists = True
Else
SheetExists = False
End If
End Function
运行NavigateWorksheet过程,将在工作簿中创建一个名为“导航”的工作表(如果该工作表已存在,则清空其中的内容),然后在“导航”工作表的列A中输入该工作簿其他工作表的名称并建立到该工作表的链接,同时在其他工作表的单元格A1中创建返回“导航”工作表的链接。
代码的图片版如下:
猜你喜欢
- PDF转换大师怎么去水印?PDF转换大师处理文件的时候发现有水印,想要删除水印,该怎么操作呢?下面我们就来看看PDF转换大师删除文件水印的技
- 如果一篇文章想要整体把一个词语换掉,一个一个的改很麻烦,这里教大家使用Word的替换功能,下面小编就为大家详细介绍一下,来看看吧我们在使用W
- Excel表格中的姓名有两个字三个字的,如何保持姓名左右对齐呢?1、选中单元格-右键设置单元格格式,在水平对齐中选择分散对齐即可。 
- 1.首先在电脑上打开一个空白的WPS表格文档,如下图所示。通过空白文档可以发现在WPS表格上有表格样式,但是这个表格只是为了方便编辑表格内容
- 在Office Word中,支持在Word文档中插入类型非常丰富的形状,包括线条、矩形、基本形状(诸如圆形、多边形、星形、括号、笑脸等等形)
- 系统经常会弹出提示更新系统,但是有的时候更新很久都还没更新好,很多用户就问Win10更新太慢了能终止吗?答案是不行的,一旦停止了会有很多的危
- 一说到Word,很多人觉很简单不用学,而实际上,到底有多少人被带入“坑”中呢?本期Word小编与大家分享那些曾经让人头疼的Word技巧。1、
- 在Excel表格中自动排序是无处不在的,不管是日期排序,大小排序,姓名排序等,方法都是一样的,只要掌握了排序功能的使用技巧,就能轻松的完成表
- iOS 15 带来了不少出色的功能,同时苹果也对保护用户隐私采取了进一步的措施。iOS 15 可让您更清楚地了解应用程序如何访问您的数据,保
- 本期Word小编与大家分享3个好用的技巧。1、输入商标、版权符号点击插入——符号——其他符号,然后找到版权所有和商标符号,之后点击插入即可。
- 如果有复姓公式为=IF(OR(LEFT(A2,2)={"欧阳","诸葛","公孙"
- excel怎么按照数字大小进行排序1、首先我们打开要排序的电子表格 如图 2、选择要排序的列,然后在右
- MathType编辑室公式无法删除该怎么办?使用MathType软件编辑公式,但是编辑的时候发现公式错了,想要删除却没办法,下面分享Math
- 因为电脑的存储空间始终是有限的,又或许是需要和被人进行文件共享,我们将电脑和USB设备进行外部连接,这样就能多出一部分空间,又能共享文件了。
- 页码是文档页面的标注,如何将页码设置到页脚中呢?那么下面就由小编给大家分享下word设置页码到页脚中的技巧,不懂的朋友会请多多学习Word哦
- excel表格是日常工作中常常需要使用到的办公软件之一,而其中,很多网友都会使用excel表格进行数据的记录。今天小编就为大家讲解一下,在制
- WPS图片怎么改变形状?1、在计算机桌面的Wps演示图标上双击鼠标左键,将其打开运行。如图所示; 2、在打开的Wp
- 我们经常在使用电脑的时候有时候会用到虚拟的内存,但是很多的小伙伴不知道虚拟内存怎么设置,这里小编就为大家带来Win10专业版系统C盘虚拟内存
- 在Word文档中,掌握一些小技巧,可以帮助我们提高工作效率。下面给大家分享word如何设置标题样式的快捷键小技巧。1、快速设置标题样式标题的
- HR在招聘office人员,在测试Excel能力时,经常会让应聘人员使用Excel制作如下图的表单,显然excel对于大小不一的单元格合并难