在我们日常的SAP工作生涯中。有的时候交付给客户的文档是EXCEL的。
1个EXCEL通常有多个SHEETS页面。有时候，公司要求要提交1个目录页面。
随着说明书的不断变动，增加或者删除excel sheet页面是非常常见的事情。
而一个一个查看、复制、校验、粘贴去比对目录和页码是否准确，
肯定不是我们专业人员想要做的事情。
下面介绍一个自动化生成目录sheet页的方法。就是使用excel的自带代码实现，
非常简单哦。
首先：在excel文件的最前面追加一个sheet，命名为“目录”
接着，按Alt+F11在谈出的对话框中点插入选择【模块】然后把下面的代码复制到模块中
最后F5执行。
Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = “目录” Then
Sheets(“目录”).Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> “目录” Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = “目录”
End If
Sheets(“目录”).Select
Columns(“B:B”).Delete Shift:=xlToLeft
Application.StatusBar = “正在生成目录…………请等待！”
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(“目录”).Cells(i, 2), Address:=””, SubAddress:= _
“‘” & Sheets(i).Name & “‘!R1C1”, TextToDisplay:=Sheets(i).Name
Next
Sheets(“目录”).Select
Columns(“B:B”).AutoFit
Cells(1, 2) = “目录”
Set SelectionCell = Worksheets(“目录”).Range(“B1”)
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub
是不是很容易呢？效果还不错哦~
如果这篇文章对您有用，欢迎转载，
转载请务必注明来源《今日热点在看》http://www.hot583.com/
您也可以在这个链接联系我哦~
本文链接： http://www.hot583.com/2022/03/13/how-excel-sheet-auto-directory/