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

hlh_0427

作个记号，继续学习

佛山小老鼠

1. Sub test()
   
2.     Dim sh As Worksheet, mysh As Worksheet
   
3.     i = 2
   
4.     On Error Resume Next
   
5.     Worksheets.Add before:=Worksheets(1)
   
6.     For Each sh In Sheets
   
7.         If sh.Name = "目录" Then
   
8.             Application.DisplayAlerts = False
   
9.                 sh.Delete
   
10.             Application.DisplayAlerts = True
    
11.         End If
    
12.     Next sh
    
13.     Worksheets(1).Name = "目录"
    
14.     For Each mysh In Sheets
    
15.         Sheets("目录").Cells(i, 1) = mysh.Name
    
16.         i = i + 1
    
17.     Next mysh
    
18. End Sub
    
19. 
    

复制代码

kszcs

留个记号，谢谢各位

zyhui1961

AVEL 发表于 2012-3-13 21:28
激活 目录 工作表，会自动取工作表名称

AVEL老师你好，你这个代码很好，也很实用，谢谢!
我想问一下：你这个代码是从“目录”工作表连接到相应名称工作表的超级连接，如果我想沿用这个代码从其他各个工作表返回到“目录”工作表怎么改代码？
比如我从“你好”工作表的B2单元格(或B2：F8的合并单元格)返回到“目录”工作表的A1：A8区域的相应名称“你好”单元格怎么改代码？谢谢了!!!

AVEL

zyhui1961 发表于 2015-7-27 14:31
AVEL老师你好，你这个代码很好，也很实用，谢谢!
我想问一下：你这个代码是从“目录”工作表连接到相应 ...

1. Option Explicit
   
2. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   
3.     If Sh.Index > 1 Then If Target.Row = 1 Then Sheets(1).Select
   
4. End Sub

复制代码

在thisworkbook中加入上面的代码，然后返回工作簿，任意双击除目录工作表外的其他工作表的第一行，可以返回目录。

zyhui1961

AVEL 发表于 2015-7-29 08:52
在thisworkbook中加入上面的代码，然后返回工作簿，任意双击除目录工作表外的其他工作表的第一行，可 ...

再问一下老师，把“双击”改成“单击”怎么改？谢谢!!!

xaj4

学习一下。

AVEL

zyhui1961 发表于 2015-7-29 17:14
再问一下老师，把“双击”改成“单击”怎么改？谢谢!!!

就平时使用来讲 还是用双击比较好。
因为第一行总有时候不经意就会选中，如果选中就返回目录，不太方便。
如果你执意要改，那么可以用下面的。

1. Option Explicit
   
2. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
3.     If Sh.Index > 1 Then If Target.Row = 1 Then Sheets(1).Select
   
4. End Sub
   

复制代码

sky0425

我是菜鸟.有代码了.怎么加入到工作薄中....