制作目录是通过Hyperlinks.Add添加超链接。主要思路是构造工作表索引的连续数字通过map获得表名。效果如下图:
代码:
function 制作工作表目录(){ var arr=Array.from(new Array(Sheets.Count+1).keys()).slice(2).map(itm=>Sheets(itm).Name) var sht=Sheets("目录") sht.Cells(1,1).Value2="目录超链接" arr.forEach((item,index)=>{ var rng=sht.Cells(index+2,1); rng.Value2=item; sht.Hyperlinks.Add(rng,"",item+"!$A$1")}) }
原创文章,作者:ItWorker,如若转载,请注明出处:https://blog.ytso.com/288628.html