项目进展管理①：Excel建立目录

现在要负责公司全盘数据管理，对卢子而言还是很有挑战性的。以前做的最多的事就是对某个部门进行数据管理，这个难度相对较小。全公司需要更多的沟通，而且收集数据的难度会加大很多。

这2天在研究项目进展管理表，要每周能够直观的查到每个项目的最新进展情况。卢子是这样考虑的，就是在同一个工作簿中，第一个工作表建立目录，后面每个表记录每个项目的进展。

建立目录，提取工作表跟建立超级链接，还有就是能达到在后面每个工作表都能够超级链接返回目录表。要实现这些功能，借助VBA会相对容易实现。

切换到开发工具选项卡，点击宏，插入一个模块，输入下面的代码，单击运行。

Sub 目录()

Dim i%

For i = 2 To Sheets.Count

Cells(i, 1) = i - 1

Cells(i, 2) = Sheets(i).Name

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:="", SubAddress:=Sheets(i).Name & "!A1"

Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Cells(1, 1), Address:="", SubAddress:=Sheets("目录").Name & "!A1", TextToDisplay:="返回目录"

Next

End Sub

运行后就可以看到第一个表的生成了目录，点击B列的项目名称就返回相应的表格。现在点击项目1，就返回项目1这个表。返回这个表，可以看到这个表的A1也有一个超级链接，可以随时返回目录。

这样就基本完成了建立目录的操作，下一步就是建立项目进展管理图，等后期再分享。