windows 2008 搭建网站,集趣网站怎么做兼职,宜昌市建设厅官方网站,wordpress改模式应用背景#xff1a; 当一个excel有很多sheet的时候#xff0c;来回切换sheet会比较复杂#xff0c;所以我希望excel的第一页有目录#xff0c;可以随着sheet的增加#xff0c;减少#xff0c;改名而随时可以去更新#xff0c;还希望有超链接可以直接跳到该sheet。
可以… 应用背景 当一个excel有很多sheet的时候来回切换sheet会比较复杂所以我希望excel的第一页有目录可以随着sheet的增加减少改名而随时可以去更新还希望有超链接可以直接跳到该sheet。
可以采用以下代码
Option Explicit
Sub List_Hyperlink()
Dim k!, sh
k 0
For Each sh In Sheets
k k 1
Cells(k, 2) sh.NameActiveSheet.Hyperlinks.Add Anchor:Cells(k, 2), Address:, SubAddress: _sh.Name !A1, TextToDisplay:sh.Name ’A1表示的是超链接过去后选中的单元格可以根据要求自由更改NextEnd Sub最终效果如下图所示。 如果这个表格越做越多的话定期点击这个按钮即可刷新超链接。
PS当表格越做越多要找到这个sheet也是比较麻烦的所以可以做一个返回这一页的按钮copy到每一页需要的时候点击一下就切到这个目录sheet了。 录屏演示 以上