建立工作表目錄又一法[定義名稱複製貼上]
具體見附件
第一步:定義名稱取得表名 (ctrl+f3)
x =mid(get.workbook(1),find("]",get.workbook(1))+1,100)
第二步:寫公式
=""&b2
第三步:選擇性貼上-數值
第四步:複製,調出剪貼簿,單擊剪貼簿最上的專案,選擇e2右鍵選擇性貼上,文字或者unicode文字均可
特地註明,以上是提供一種方法,其實最簡單的方法是:
1,獲取表名,如上述方法
2,寫公式
=hyperlink("#"&b2&"!a1",b2),下拖即可。
下面已經測試ok – 郝秋時
q: excel怎樣實現自動生成目錄?像word一樣,只要設定好各表的要做為目錄顯示的表頭,就能插入目錄!
a: alt+f11---------插入--------模組--------把下面的**拷貝到模組中
sub mulu()
on error goto tuichu
dim i as integer
dim shtcount as integer
dim selectioncell as range
shtcount =
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
. = 34
end with
application.statusbar = false
application.screenupdating = true
tuichu:
end sub
excel中用工作表名自動建立目錄和超連結
為excel2007多個工作表快速建立目錄 我們經常把同類相關excel工作表集中儲存在同一文件中,以便於在各 間進行引用 檢視。當乙個文件中的工作表達到一定數量時,要想找到需要的工作表就變得很麻煩了。此時若能建立一張 目錄 工作表顯示所有工作表的名稱和鏈結,事情將會簡單很多。下面介紹一種可以快速為...
給工作表建立目錄
有時候我們會在乙個工作簿中建立很多任務作表,怎樣才能簡單明瞭的管理工作表呢,當然能建乙個目錄最好了,這裡我們就學習一種給工作表建立目錄的方法。一 在工作簿中新建乙個工作表,命名為 目錄 二 單擊b1單元格,切換到 公式 選項卡,單擊 定義名稱 彈出 新建名稱 對話方塊,在 名稱 文字框中輸入 目錄 ...
excel工作表的建立與操作
excel教程 excel總介 excel能用來做什麼 大多數的沒有參加工作的學生都會對excel感到陌生,當然我也不例外,我剛剛接觸excel時也是高一時候,那時僅僅教過一些最簡單的東西,具體的內容我已經忘記。知道上到大學才發現excel是多麼的重要。在我們的共做中少了excel會將是什麼樣的。不...