从【百度经验】转载
 
 
    
在excel工作簿中有很多工作表，最前面为所有工作表都添加一个目录表。当点击了目录表中某个工作表的名字，就自动激活相应的工作表。如果想要实现这样的效果，我们该怎么做？
 
   
 
  
 
 
 
 
 
 
方法1：创建超链接的目录页
 
 
 
  
 
    

     1
    
 
    
 
     
打开Excel工作簿，选中要插入超链接的单元格，单击“插入”菜单中的“超链接”命令
 
    
 
    
 
     

      
     
 
    
 
 
    

     2
    
 
    
 
     
在打开“插入超链接”对话框单击右侧的“书签”按钮
 
    
 
    
 
     

      
     
 
    
 
 
    

     3
    
 
    
 
     
打开“在文档中选择位置”对话框，在列表中选择要链接的工作表，一路单击“确定”按钮
 
    
 
    
 
     

      
     
 
    
 
 
    

     4
    
 
    
 
     
操作完成后，现在单击工作表中带有下划线的文本即可自动打开目标工作表并转到相应的位置处
 
    
 
    
 
     

      
     
 
    
 
    

     END
    
 
 
 
 
 
方法2：创建目录页工作表
 
 
  
 
   
打开Excel工作簿，新建一个目录页工作表，按Ctrl+F3组合键调出“定义名称”对话框
 
  
 
  
 
   

    
   
 
  
 
 
  
 
   
在“当前工作簿中的名称”输入框中键入任意名称（如：X），在“引用位置”输入框中键入“=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)”，单击“确定”按钮
 
  
 
  
 
   

    
   
 
  
 
 
  
 
   
HYPERLINK函数批量插入连接：在目录页工作表，如A2单元格输入公式“=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))”，然后拖动填充柄，将公式向下填充，直到出错为止，这样目录就生成了。
 
  
 
  
 
   

    
   
 
  
 
如果只是单纯的想获取所有工作表的名称，可以使用一下公式：=REPLACE(INDEX(ShName,ROW(A1)),1,FIND("]",INDEX(ShName,ROW(A1))),"")。

利用HYPERLINK函数，让文章的转跳轻松实现（原文链接）
 
 利用HYPERLINK函数可实现：
 1.链接到文件夹，点击打开指定的文件夹，如=HYPERLINK(“C:\Users\nl\Documents”,“打开私人文档”)
 
2.链接到指定的文件，点击打开指定的文件，如= HYPERLINK（“C:\Users\nl\Documents\11.doc”,“打开文件11”）
 
如与当前文件在一目录下，可以用以下公式= HYPERLINK（“文件11.xls”,“打开文件11”）
 
3.链接当前工作表的指定位置，点击跳转到当前工作表指定的单元格，如=HYPERLINK("#B2",“跳到B2”)
 
4.当前工作薄中其他工作表的指定位置或区域,如= HYPERLINK("#sheet3!a3",“跳到SHEET3工作表a3”)
 
如区域定义了名称，如定义名称X=sheet3!A10:C15，则以下公式或跳转到X区域的并选定该区域
 
= Hyperlink("#X",“跳到区域名称X”)
 
等价= Hyperlink("#sheet3!A10:C15",“跳到A10:C15”)
 
5.链接工作薄，并跳转到该工作表的指定位置，使用形式同目录下的文件=HYPERLINK(“book1.xls#sheet3!a1”,“到BOOK3中Sheet3!A1”)
 
不同目录下=HYPERLINK(“C:\My Documents\XLS\book3.xls#sheet3!a1”，“到BOOK3中Sheet3!A1”)
 
6.链接到某个网页如=HYPERLINK（“http://www.baidu.com”,“百度一下”）

比如我在Sheet2中定义了几个数据，这些都是简单的数字，而在Sheet1中让要被绑定的单元格等于Sheet2的对应单元格地址（比如Sheet2!B1,Sheet2!B2之类的） 

 
  
然后就可以一改全改了。但是我还要对当前的Sheet1设置只读（Sheet1只能被动的同步，只能在Sheet2中修改数据），则先全选当前工作簿，然后设置单元格格式，取消勾选"锁定"。 
 
  
然后选中要保护的单元格，勾选锁定选项。 
 
  
在工具中，选择保护工作表，然后只勾选下面两项，点击确定。然后就除了你框选的区域被保护了，别的区域都没有被保护，可以编辑，而被框选的区域不可编辑，但是还是可以通过另一个工作簿的数据更新。 
 
  
如果你要引用别的Excel文件中的工作薄，则格式大致为：='[文件名称.xls]sheet2'!B3，如果要引用别的几个Excel文件的工作簿的和或者差等，则格式大致为：='[文件名称.xls]sheet2'!B3+='[文件名称.xls]sheet4'!C5 

最近同事需要如标题描述的这样一个excel功能，有两种实现方式，针对于这一种方式，鄙人进行简单的介绍：
 

 
 
首先要在excel的工具栏中插入开发者工具，笔者使用的是office 2013，以前版本也类似可以找到，并添加到工具栏，见下图：
 

 
 
找到选项打开
 

 
 
选择开发工具，这个时间在工具栏已经可以看到了vb的选项，见下图
 

 
 
既可以针对于相应的sheet进行相应的VBA自定义开发
 
本次问题的解决方案以下，贴出代码
 
在excel中，找到“”目录“”的sheet，打开vba编辑界面，进行输入以下代码，既可实现上述的功能需求
 

 
 

Private Sub Worksheet_Activate()
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "目录" And Sheets(i).Name <> "Forecast Sum"  Then Sheets(i).Visible = 0
    Next
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim sh As Object
    On Error Resume Next
    Set sh = Sheets(Replace(Split(Target.SubAddress, "!")(0), "'", ""))
    If Not sh Is Nothing Then
    Application.EnableEvents = False
    sh.Visible = xlSheetVisible
    Target.Follow
    Application.EnableEvents = True
    End If
End Sub




 Bye！！！