與 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:="返回目錄"
Next
End 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
推薦:
上篇:
專一可能會失去很多樂趣,但也可能獲得更牛逼的成就,你覺得呢?
作者:盧子,清華暢銷書作者,《Excel效率手冊 早做完,不加班》系列叢書創始人,個人公眾號:Excel不加班(ID:Excelbujiaban)