工程项目台账全自动生成模板

与 30万 读者一起学Excel

VIP学员的工程项目台账，做了一半，让卢子完善。

卢子用了两招，台账就实现了全自动。

1.创建目录

每个项目放一个工作表，现在将项目名称提取到目录的B列，每个项目的表格都有返回目录的超级链接。

按快捷键Alt+F11，插入模块，运行代码即可，这样就生成了目录。可以左右滑动，查看完整代码。

Sub 建立目录()    Dim i As Integer        For i = 2 To Sheets.Count            Sheets(1).Range("B" & i) = Sheets(i).Name            Sheets(1).Range("B" & i).Select            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _            "'" & Sheets(i).Name & "'!a1", TextToDisplay:=Sheets(i).Name            Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), Address:="", SubAddress:=Sheets("目录").Name & "!A1", TextToDisplay:="返回目录"        NextEnd Sub

将代码粘贴到模块

运行代码

2.引用项目内容

每个项目表格格式一样，内容都在3、4行，要将相关的内容引用到目录。

在目录的C2输入公式，下拉和右拉。这里用HLOOKUP函数，不是VLOOKUP函数。这2个函数语法一样，只是一个是水平查找，一个是垂直查找。

=HLOOKUP(C$1,INDIRECT("'"&$B2&"'!A3:O4"),2,0)

将日期有关的列，设置为短日期。

目前只是模拟了几个数据，看到一大堆0，当全部数据都录入以后，就会显示实际数据。

模板链接：

https://pan.baidu.com/s/1cptdjGYJjAMtPLjjzMBH8Q

提取码：jkcb

读者：五一期间VIP会员是否有活动，什么时候涨价？

卢子：VIP不会有活动，宣传图什么时候改好了就涨价，没改之前都是1200元。

陪你学Excel，一生够不够？

一次报名成为VIP会员，所有课程永久免费学，仅需1200元，待你加入。

报名后加卢子微信chenxilu2019，发送报名截图邀请进群。

推荐：制作目录和根据目录生成多个工作表

上篇：800万行数据，Excel6秒完成统计，你不是在做梦！

卢子过去十多年的时间都贡献给Excel，在未来很长时间，也会与Excel相伴。卢子比较极端，要么不做，要做就做到最好，用心做一件事。对于Excel如此，对于爱人也是如此。

专一可能会失去很多乐趣，但也可能获得更牛逼的成就，你觉得呢？

作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）

请把「Excel不加班」推荐给你的朋友