多应用+插件架构,代码干净,二开方便,首家独创一键云编译技术,文档视频完善,免费商用码云13.8K 广告
## 添加本地导航页 1. 公式上添加名称:shname ![](http://p8a6vmhkm.bkt.clouddn.com/picgo20180725140419.png?picgo) ``` =MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW()) ``` 2. 在第 1 个工作表 “资产负债表” 的 A 列一单元格中输入公式并向下复制 ``` =IFERROR(HYPERLINK("#"&INDEX(shname,ROW(A1))&"!A1",INDEX(shname,ROW(A1))),"") ``` ## 结合宏来实现 * 添加宏 ``` Sub createmulu() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub ``` * 在某个sheet中新加一列 * 然后在另一列加入 ``` =HYPERLINK("#"&A3&"!A1",A3) ``` * 返回目录链接: ``` =HYPERLINK("#定制阶段所需清单!A1","返回目录") ```