excel如何返回目录

1、首先,准备需要插入“返回目录”按钮的工作簿,打开工作簿,并确保该工作簿有一个目录或主表工作表作为返回对象。如下图所示:

2、单击“开发工具”选项卡,然后单击“查看代码”按钮打开VB代码编辑器窗口。如下图所示:

3、然后在“打开VB代码编辑”窗口中插入一个新模块。将以下代码复制到模块中,然后单击“运行”

4、运行代码后,最小化代码窗口并返回工作簿的主界面。您可以看到“目录”工作表。其他工作表已自动插入按钮以返回“目录”。如下图所示:

1、首先准备需要插入返回目录按钮的工作簿,打开工作簿,需要确保工作簿有一个目录或者总表工作表,作为返回的对象。如下图所示:

2、点击“开发工具”选项卡,再单击“查看代码”按钮,打开VB代码编辑器窗口。如下图所示:

3、然后在打开的VB代码编辑窗口中插入一个新模块,将以下代码复制到模块中,点击运行

Sub Button()

Dim MySht As Worksheet, MyButton As Button, ShtName As String

ShtName = "目录"如果不是目录,则改为其他名称

For Each MySht In Worksheets

With MySht

If .Name <> ShtName Then

.Shapes(ShtName).Delete

Set MyButton = .Buttons.Add(50, 10, 60, 30)

With MyButton

.Name = ShtName 对按钮命名

.Characters.Text = "返回" & ShtName 指定按钮的标题

.OnAction = "backto" 指定按钮对应的宏命令

End With

End If

End With

Next

Set MyButton = Nothing

End Sub

Sub backto()

Worksheets("目录").Activate

[a1].Select

End Sub

4、运行代码以后,最小化代码窗口,返回工作簿主界面,可以看到出了“目录”工作表,其他的工作表都已经自动插入了一个可以返回“目录”的按钮。如下图所示:

如图:

1、选中要插入链接的第一个工作表(sheet2)标签,按住SHIFT键的同时 点击最后一个工作表(sheet3)的标签。

2、 在某一单元格内输入 =HYPERLINK("#目录!A1","目录!A1") 回车。

所有的工作表就都加入了返回目录的链接。

3、这样,当点击sheet2或sheet3中A15单元格的时候,就会自动回到“目录”表的A1单元格。

使用VBA即可实现,将如下代码复制到sheet1中代码中,然后运行。
Sub Add_Sheets_Link()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i + 1, 2).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 2), Address:="", SubAddress:= _
Cells(i + 1, 2) & "!" & "A1", TextToDisplay:=Cells(i + 1, 2) & "!" & "A1"
Cells(i + 1, 2).Value = Worksheets(i).Name
Next
End Sub
i5 6500陪750Ti eclipse设置热部署 照片镜框图片 口袋妖怪喷火龙y配招 expo 设置host lan 出版社出版 授权 二苯并18冠6溶解度 艾利和layla耳机 bucunyingshi you drive me crazy u盘启动bios 安全设置 monkey magic原唱 创利国际 the grand tours02e06 风干牛肉 郑州方特暴风眼 什么人有玻璃心 不找了小磊吉他谱 新葡京棋牌www.so1888 error page用法 easyui ie 慢 hp unix 重启命令 泰国杂志《HEY》 新产品代理项目 本田哪些车可以爆vtec 韩国soranet网址 sex messages for him 香奈儿钱包图片 孕期很焦虑心情很压郁 Tukar yuan ke rupiah

Copyright 生活吧 Some Rights Reserved

如反馈或投诉等情况联系:une35498#163.com