|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
自己摸啊摸,用公式自己来创建目录,虽然网上都能搜到代码,我这块还是给大家分享下吧。我是小白。。。大神就看看。。
另外,我还没一朵鲜花。。谁能送一朵啊。。哈哈
教程如下:
1、首先是思路,需要创建目录,我们当然首先需要提取出每个工作表的名称到一个工作表当中,如下图,用get.workbooks(1)来将工作表的名称提取出来形成一个虚拟的列表(类似数组)
2、提取出来之后显示的将工作簿的名称也显示了,这里我们可以选择粘贴数值后分列,或者在用left配合find查找符号"]"来进行提取,不过为了后期新增工作表后目录可以更着变,我建议还是二次处理进行提取,如下图公示:
3、现在完成了一半,接下来就是创立链接,大家知道创立链接是这个公式:hyperlink。。怎么使用如图:
需要讲解的地方:“#”在link函数中做引用本工作簿(原理不懂,反正这样用)通过&符号将需要链接的各个表中的单元格显示出来,b1的可以随便改,作用是你点击之后,需要在各个工作表中显示选定哪个单元格,你可以选择a1,那么你每次点目录,选定的单元格就会显示在哪个单元格,而e1,就算你链接的名称了,刚好用到的就是我们提取出来的工作表名称。这里用到了text函数,因为我发现在用hyperlink函数的时候,想实现拖动改变E1的值,不能直接用"#"这个符号,就用text中转下了。
这样就完成了,往下拉就实现了工作表的目录。
4、那么目录完成了,要是工作表很多的话,我们返回会很麻烦,这样我们需要在没个工作表中建立一个连接返回到目录。这个就简单了
首先全选工作表(点击第一个,然后按住shift,然后再点击最后一个),再你需要点击:返回,的单元格那里我们开始创立链接:
怎么样,会了没有。。。
有花的给朵花,没花的留个言。。大神能指点指点小弟。。
再次谢过大家。。。
|
|