多工作表中如何把表名称引用到前面作为目录？

AVEL

1. Option Explicit
   
2. 
   
3. Sub l()
   
4.     Dim sh As Worksheet
   
5.     Dim n As Integer
   
6.     For Each sh In Sheets
   
7.         If sh.Name <> "目录" Then n = n + 1: Range("c3").Offset(n).Value = sh.Name
   
8.     Next
   
9. End Sub

复制代码

AVEL

1. Private Sub Worksheet_Activate()
   
2.     Dim sh As Worksheet
   
3.     Dim n As Integer
   
4.     For Each sh In Sheets
   
5.         If sh.Name <> "目录" Then n = n + 1: Range("c3").Offset(n).Value = sh.Name
   
6.     Next
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
10.     If Target.Count > 1 Then Exit Sub
    
11.     On Error Resume Next
    
12.     If Target.Column = 3 And Len(Target) Then Sheets(CStr(Target.Value)).Select
    
13. End Sub

复制代码

laowuwyx

智者天下 发表于 2012-3-13 21:18
定义名称时，总是提示你输入  太少 参数。能详细说下么

1. =INDIRECT("sheet"&ROW(A1)&"!a1")

复制代码

AVEL

提取表名作为目录 12-03-13 21-28.rar (14.42 KB, 下载次数: 329)

2012-3-13 21:28 上传

点击文件名下载附件

激活 目录 工作表，会自动取工作表名称

智者天下

AVEL达人，我想你没理解我的意思，我不是要提取下面工作表的名称，而是要把表的标题，标题都在A1单元格，把表的标题（可能我表达不清楚，说是表的名称，其实是表的标题），把表的标题索引到前面，作为目录

AVEL

更新一下 点击单元格也可以实现跳转。只是不知道楼主需不需要这样的功能。
提取表名作为目录 12-03-13 21-51.rar (14.59 KB, 下载次数: 348)

2012-3-13 21:52 上传

点击文件名下载附件

智者天下

AVEL 发表于 2012-3-13 21:52
更新一下 点击单元格也可以实现跳转。只是不知道楼主需不需要这样的功能。

真心感谢AVEL，就是你附表所说的样子。真是高手，膜拜一下。我把代码复制到到第一个表格，实现了自己的愿望。嘿嘿，谢谢，省了很多时间。
再次感谢AVEL，向你致敬！

laowuwyx

智者天下 发表于 2012-3-13 22:23
真心感谢AVEL，就是你附表所说的样子。真是高手，膜拜一下。我把代码复制到到第一个表格，实现了自己的愿 ...

不用那么复杂，13楼的公式可以简单实现。

智者天下

laowuwyx 发表于 2012-3-13 22:39
不用那么复杂，13楼的公式可以简单实现。

不知道为何，总是出现#REF!
13楼的说法是先定义名称为x，然后再输入公式么？
我不知道为何没有成功。我刚才试过了。

laowuwyx

智者天下 发表于 2012-3-13 22:54
不知道为何，总是出现#REF!
13楼的说法是先定义名称为x，然后再输入公式么？
我不知道为何没有成功。我 ...

13楼的不是定义名称，而是直接输入公式。