怎样编制序列目录

zfc7777 · 发表于 2011-3-4 15:17

大师您好！
1、如果序列很多情况下，每次都繁琐查找很麻烦。
2、请帮我制作一个自动的目录！每次点击目录可以自动查找此页！

最好带动漫制作！
实在谢谢

zfc7777 · 发表于 2011-3-4 15:20

怎样编制序列目录
如果序列很多情况下，每次都繁琐查找很麻烦
请帮我制作一个自动的目录！每次点击目

georgeQ · 发表于 2011-3-4 16:11

回复 zfc7777 的帖子

你的意思是不是在第一页有个列表，如大连，点下就到大连那个表去了？

如果是的话

插入 ---》超级链接 --》最左边选本文文档中的位置，选择你要去的表。当然，在分表需要全部选中，做个超级链接接回第一张表。

zfc7777 · 发表于 2011-3-7 11:51

楼上说的我去试试看！先谢谢了！

zfc7777 · 发表于 2011-3-7 12:03

在分表需要全部选中，做个超级链接接回第一张表。怎样接回第一张表？用什么键？

JLxiangwei · 发表于 2011-3-7 12:12

Sub Excel各页名()
Dim XStr, YStr, ZStr
XStr = " -"
ZStr = ""
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "目录" Then
Exit For
End If
Next
If i > Worksheets.Count Then
Sheets.Add
ActiveSheet.Name = "目录"
End If
Sheets("目录").Move Before:=Sheets(1)
Sheets("目录").Select
Range("A:B").Clear
Range("B:B").NumberFormatLocal = "@"
Worksheets(1).Cells(1, 1).Value = "序号"
Worksheets(1).Cells(1, 2).Value = "名称"
For i = 2 To Worksheets.Count
Worksheets(1).Cells(i, 1).Value = i - 1
Worksheets(1).Cells(i, 2).Value = Worksheets(i).Name
For j = 1 To Len(Worksheets(i).Name)
YStr = Mid(Worksheets(i).Name, j, 1)
If InStr(XStr, YStr) <> 0 Then
ZStr = "'"
Exit For
End If
Next
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Cells(i, 2), Address:="", SubAddress:=ZStr & Worksheets(i).Name & ZStr & "!A1", TextToDisplay:=Worksheets(i).Name
Next
Range("A:A").HorizontalAlignment = xlCenter
Rows("1:1").HorizontalAlignment = xlCenter
Cells.Select
Selection.Columns.AutoFit
Range("A1").Select
End Sub

复制代码

georgeQ · 发表于 2011-3-7 12:27

回复 zfc7777 的帖子

你按CTRL选中分表，也可以按SHIFT一起选，选中后，就按前面的一样，在当前一个分表里面做超级链接，做好了你就发现每个分表里面都有了。

zfc7777 · 发表于 2011-3-7 12:42

楼上大师，能否再慢点！我是新版本的好像和你的不一样，还是不太明白？

zfc7777 · 发表于 2011-3-7 12:44

楼上大师复制代码没有看明白

JLxiangwei · 发表于 2011-3-7 12:45

回复 zfc7777 的帖子

		自动登录	找回密码
密码			注册

怎样自动做成序列目录