返回目录:excel表格制作
一、宏编程法
新建一个空白excel工作簿,重命名第一个工作表为“目录“
开发工具--录制宏--停止录制--编辑代码原有代码全部删除,替换为下面代码
Sub 建立目录()
Dim i As Byte
On Error Resume Next
Application.ScreenUpdating = False
Dim XStr, YStr, ZStr
XStr = " -"
ZStr = ""
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "目录" Then
Exit For
End If
Next
If i > Worksheets.Count Then Sheets.Add.Name = "目录"
Sheets("目录").Move before:=Sheets(1)
Sheets("目录").Select
Range("A:B").Clear
Range("B:B").NumberFormatLocal = "@"
Worksheets(1).Cells(1, 1).Value = "编号"
Worksheets(1).Cells(1, 2).Value = "目录"
For i = 2 To Worksheets.Count
Worksheets(1).Cells(i, 1).Value = i - 1
Worksheets(1).Cells(i, 2).Value = Worksheets(i).Name
For j = 1 To Len(Worksheets(i).Name)
YStr = Mid(Worksheets(i).Name, j, 1)
If InStr(XStr, YStr) <> 0 Then
ZStr = "'"
Exit For
End If
Next
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Cells(i, 2), Address:="", SubAddress:=ZStr & Worksheets(i).Name & ZStr & "!A1", TextToDisplay:=Worksheets(i).Name
Next
Columns("A:A").HorizontalAlignment = xlCenter
Columns("A:A").VerticalAlignment = xlCenter
Columns("B:B").HorizontalAlignment = xlLeft
Columns("B:").VerticalAlignment = xlLeft
Range("d2").Select
ActiveWindow.FreezePanes = True
Application.ScreenUpdating = True
End Sub
保存后,先新建几个工作表,运行该宏,看看效果
只要新建工作表,运行下宏就可以了!
二、运用公式,制作工作表目录
1、 新建一个空白excel工作簿,重命名第一个工作表为“目录“,A1 B1分别输入序号和目录
2、 A2输入公式 =IF(B2="","",ROW()-1) 向下拖
B2输入 =IFERROR(HYPERLINK("#'"&MID(目录,FIND("]",目录)+1,99)&"'!A1",MID(目录,FIND("]",目录)+1,99)),"") 向 下拖
3、 下面讲关键一步: 新建名称为目录,引用公式如下 =INDEX(GET.WORKBOOK(1),ROW(目录!A2))&T(NOW()) 保存
4、新建一下工作表 ,重命名一下 ,看目录工作表内容是否变化了?
注意:以上两种方法,新建工作表后,必须重命名,目录内容才会改变。切切,学会了吗!