批量生成超链接

在工作中常常遇到这样一种情况，一个工作簿中有很多个格式类似的工作表，比如，每个项目单位都提供一个工作表，一共是几十个或上百个，这时候要用鼠标点击其中的某个工作表查阅数据，会很费力，于是希望能够为这些工作表制作出一个带超链接的目录，只要在目录上找到这个表的名字并点击，就可以直接跳转到想要的工作表了。网上有很多人已经介绍了这种超链接的建立方法，但是总觉得那些文章对步骤没有分得很清晰，往往将一个excel的一个函数写得太长，让不习惯编程的人看了头晕眼花，因此，将他们的方法调理为三个步骤，大致用三大函数来解决这个问题（三大函数是概括描述，其实里面也包含了一两个更小的函数）。第一步：定义公式名：打开Excel2007，右击第一张工作表标签选择重命名，把它重命名为目录工作表。选中B1单元格，切换到公式选项卡，单击定义名称，在弹出的新建名称窗口中输入名称工作表名，在引用位置中则输入公式=INDEX(GET.WORKBOOK(1),!$A1)&T(NOW())，单击确定即可定义出一个名为工作表名的名称，INDEX是本文第一个重要函数：=INDEX(GET.WORKBOOK(1),!$A1)&T(NOW())，其中的小函数解释如下：公式中GET.WORKBOOK(1)用于提取当前工作簿中所有工作表名称，INDEX函数则按A1中的数字决定要显示第几张工作表的名称。此外，由于宏表函数GET.WORKBOOK(1)在数据变动时不会自动重算，而NOW()是易失性函数任何变动都会强制计算，因此我们需要在公式中加上NOW()函数才能让公式自动重算。函数T()则是将NOW()产生的数值转为空文本以免影响原公式结果。注：宏表函数GET.WORKBOOK，不能直接在单元格公式中使用，必须通过定义名称才能起作用。在建立公式名后，直接在A1列写序列号，在B1列使用公式菜单中的“用于公式”选项，利用刚才创建的公式，然后按住ctrl拖出很多行（有几个sheet就拖出几行）。这时候在B1到Bn列，会显示出每个sheet的字符串名称。第二步：去掉sheet名称中的不必要字符（括号和英文）在C1列写函数=RIGHT(B1,(LEN(B1)-FIND(],B1)))然后往下拖出多行，这是本文第二大函数，注：公式中RIGHT(工作表名，LEN(工作表名)-FIND(]，工作表名))这段函数的作用是除去工作表名中]以前的内容。第三步：建立超链接，在D1写函数=HYPERLINK(#&C1&!A1,C1)这里使用了HYPERLINK(link_location,friendly_name)其中第一个参数Link_location是超级链接的文件的路径和文件名，或要跳转的单元格地址。第二个参数是随意指定的字符串或某一单元格的值，是你希望在超级链接的单元格中显示的内容。然后再在D列拖出多行即可。可以看到上图中D1到D7都生成了超链接最后如果以后还想用这个方法，但又偷懒，不想每次都从头设置，那么需要将这个目录设置保存为模板；方法如下：保存设置切换到开始选项卡适当设置一下目录中的字体、字号和颜色等等，建议把字号放大并设置加粗以便查看，还要调整一下A：B列的列宽以便完全显示工作表名称。然后右击其他工作表标签选择删除，把所有其他工作表全部删除只保留一张目录工作表。最后单击Office按钮，选择另存为，在弹出的另存为窗口中选择保存类型为Excel启用宏的模板(*.xltm)格式、文件名为目录.xltm，保存到C:\ProgramFiles\MicrosoftOffice\Office12\XLSTART文件夹下，关闭Excel2007退出。若你的Office不是按默认路径安装，请按实际安装路径修改。三秒创建目录以后要为工作簿创建目录就简单了，只要用Excel2007打开要创建目录的工作簿，在第一张工作表的标签上右击选择插入，在插入窗口中双击选择目录，即可在第一张工作表前插入一张目录工作表，并显示出所有工作表目录。这操作有3秒就够了吧？在目录工作表中，可通过对目录进行筛选、排序、查找来快速找到工作表名，然后单击工作表名即可打开相应工作表。创建目录后，在这个工作簿中增加、删除工作表或者修改工作表名称，目录工作表中的工作表目录都会自动更新。此外，前面我们只复制了300行目录公式，因此工作表总数超过300个时，超出的工作表名就不会显示了，得把目录工作表中A1：B1的公式再向下复制填充才行。由于宏表函数GET.WORKBOOK(1)是通过宏功能起作用的，所以插入了工作表目录的文档最后都必须以Excel启用宏的工作簿(*.xlsm)格式另存，这样下次打开时才能正常显示工作表目录。此外，打开工作簿时，Excel2007默认会禁用宏，得单击警告栏中的选项按钮，选中启用此内容单选项，确定后才能显示工作表目录。