excel数据透视表如何创建导航工作表
办公教程导读
收集整理了【excel数据透视表如何创建导航工作表】办公软件教程,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1396字,纯文字阅读大概需要2分钟。
办公教程内容图文
图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中创建返回“导航”工作表的链接。
代码的图片版如下:
办公教程总结
以上是为您收集整理的【excel数据透视表如何创建导航工作表】办公软件教程的全部内容,希望文章能够帮你了解办公软件教程excel数据透视表如何创建导航工作表。
如果觉得办公软件教程内容还不错,欢迎将网站推荐给好友。