[分享]★链接目录★

hulusir

授人以鱼，不如授人以渔。
东西虽好，看起来却有点难度，最好能够给个相关的指点学习，不胜感激
shangrz@126.com
谢谢

linw3413

`````看不懂

liuhq2008

东西很好，不胜感激。

yuchao2004676

厉害啊佩服

dddj

谢谢楼主！东西很好，新手学习中。
我用你的文件新建了目录，这些目录由上而下全部排列在第一列即A1中。
现在我想要目录排到A列第23行后，就转到下一列即B列中显示，以此类推，每列目录限制在23（即22个）。
我自已试了，总是不行。
Sub 建立工作表目录()
Application.Calculation = xlCalculationManual       '手动重算
'Sheets(1).Name = "目录"
For i = 2 To 23
Cells(i, 1) = Sheets(i).Name
  'Sheets(1).Hyperlinks.Add Cells(i, 1), "#" & Sheets(i).Name & "!A1"    '添加超链接
Next
For u = 24 To Sheets.Count
Cells(u, 2) = Sheets(u).Name
Next
Application.Calculation = xlCalculationAutomatic    '自动重算
End Sub
新出的目录一是没链接，二是不与A列平行。
请楼主指点一下。

dddj

贴子太老了，看来没人回了。自已顶吧。摸索着前进！
把模块1相关代码处修改为：
Sub 建立工作表目录()
Application.Calculation = xlCalculationManual       '手动重算
'Sheets(1).Name = "目录"
For i = 2 To 23                          'A列只排22个目录
Cells(i, 1) = Sheets(i).Name
  'Sheets(1).Hyperlinks.Add Cells(i, 1), "#" & Sheets(i).Name & "!A1"    '添加超链接
Next
For u = 24 To Sheets.Count
Cells(u - 22, 2) = Sheets(u).Name     '这里的目的是将B列目录往上提与A列平行
Next
Application.Calculation = xlCalculationAutomatic    '自动重算
End Sub
接下来修改Sheet1(目录)的代码，添加：
If Not Application.Intersect(Target, Range("B2:B1000")) Is Nothing Then
    Call 打开隐藏表  '增加打开B列的触发条件
  End If
修改完后，A列B列分别各自显示相应的工作表目录。运行无误。
请各位高手指正。

LangQueS

Sub 建立工作表目录()
Application.Calculation = xlCalculationManual       '手动重算
a = 23    '每列23行
t = 1    '列号
For i = 1 To Sheets.Count    '循环工作表
Cells(((i - 1) Mod a) + 2, t) = Sheets(i).Name
    If (i - 1) Mod a = a - 1 Then      '余数
        t = t + 1
End If
Next
Application.Calculation = xlCalculationAutomatic    '自动重算
End Sub

renzhelp

的确很管用，但不懂VBA
遗憾的是我已经有一个多页的表格，怎么实现此功能呢？

看来要先学习VBA入门知识才有望实现。。。

jssunyz

研究学习，谢谢分享~~~~~

水灵仙子

简单实用谢谢分享