登 录
如果一个excel的workbook有多个sheet，那么制作一个目录，并且在每一个sheet上面都制作一个返回目录的超链接就非常方便，制作目录可以用罗兄的百宝箱，下面的代码是制作返回目录的超链接。
Option Explicit<br /> Sub 返回目录(p_worksheet As Worksheet)<br /> '<br /> ' 返回目录 Macro<br /> ' </p> <p> p_worksheet.Activate<br /> p_worksheet.Columns("A:A").Select<br /> Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove<br /> Range("A1").Select<br /> ActiveCell.FormulaR1C1 = "返回目录"<br /> Selection.RowHeight = 16<br /> Selection.ColumnWidth = 9<br /> p_worksheet.Range("A1").Select<br /> p_worksheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _<br /> "工作表目录!A1", TextToDisplay:="返回目录"<br /> With Selection.Interior<br /> .Pattern = xlSolid<br /> .PatternColorIndex = xlAutomatic<br /> .ThemeColor = xlThemeColorAccent2<br /> .TintAndShade = 0.399975585192419<br /> .PatternTintAndShade = 0<br /> End With<br /> End Sub </p> <p>Sub all()<br /> Dim g_worksheet As Worksheet<br /> For Each g_worksheet In Worksheets<br /> 返回目录 g_worksheet<br /> Next g_worksheet<br /> End Sub<br />
抱歉!评论已关闭.