你有一個工作表,裡面有幾十個上百個工作簿,該如何管理呢?
可以用VBA實現自動生成目錄和超鍊接,這樣在目錄頁就能夠快速訪問各個工作簿了,而且還能實時更新
先看看下面這個案例的效果:
該案例中,有多個工作簿,可以很方便地行管理。主要有以下功能:
1、能夠自動生成目錄和超鍊接,點擊序号就看直達指定工作簿
2、删除或新建工作簿後,目錄會同步更新
3、稍微增加代碼,還可以實現在目錄頁删除指定工作簿(本案例無)
一、全部代碼
1、主程序:
将以下程序放在一個模塊中
2、工作簿事件程序:
将主程序放在模塊1中,并在sheet1(目錄)工作簿裡面寫上本代碼,利用call引用主程序,就可以實現實時刷新(意思是每次激活這個目錄工作簿,就執行一次更新目錄
二、代碼說明
1、獲取所有工作簿的名稱:這裡通過for循環,來遍曆各個工作簿,然後獲取名稱,并寫入A列,也就是生成目錄
2、生成超鍊接:利用Hyperlinks.Add生成超鍊接,如果讀者不是特别明白,可以先抄寫代碼進行測試,慢慢就會明白該語句的用法。
3、在新建的頁面生成返回按鈕:返回目錄其實是一個單元格,也就是G1單元格,也是用Hyperlinks.Add生成超鍊接,指定的是目錄頁,這樣就可以快速返回目錄頁。
以上就是全部内容,歡迎評論區讨論。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!