excel表格目录怎么做

  • 格式:docx
  • 大小:29.68 KB
  • 文档页数:9

1 9 竭诚为您提供优质文档/双击可除

excel表格目录怎么做

篇一:给多个excel表格添加目录方法

给多个excel表格添加目录方法

打开要创建目录的excel文件--------alt+F11---------插入--------模块--------把下面的代码拷贝到模块中

submulu()

onerrorgototuichu

dimiasinteger

dimshtcountasinteger

dimselectioncellasRange

shtcount=worksheets.count

ifshtcount=0orshtcount=1thenexitsub

application.screenupdating=False

Fori=1toshtcount

ifsheets(i).name="目录"then

2 9 sheets("目录").movebefore:=sheets(1)

endif

nexti

ifsheets(1).name"目录"then

shtcount=shtcount+1

sheets(1).select

sheets.add

sheets(1).name="目录"

endif

sheets("目录").select

columns("b:b").deleteshift:=xltoleft

application.statusbar="正在生成目录…………请等待!"

Fori=2toshtcount

activesheet.hyperlinks.addanchor:=worksheets("目录").cells(i,subaddress:=_

sheets(i).name"!R1c1",texttodisplay:=sheets(i).nameanchor:=worksheets("目录").cells(i,2),address:="",next

sheets("目录").select

columns("b:b").autoFit

3 9 cells(1,2)="目录"

setselectioncell=worksheets("目录").Range("b1")

withselectioncell

.horizontalalignment=xldistributed

.Verticalalignment=xlcenter

.addindent=true

.Font.bold=true

.interior.colorindex=34

endwith

application.statusbar=False

application.screenupdating=true

tuichu:

endsub

篇三:怎样快速为excel工作簿创建工作表目录

怎样快速为excel工作簿创建工作表目录

分步阅读

我们经常把同类相关excel工作表集中保存在同一文档中,以便于在各表格间进行引用、查看。当一个文档中的工作表达到一定数量时,要想找到需要的工作表就变得很麻烦了。此时若能建立一张“目录”工作表显示所有工作表的名称和链接,事情将会简单很多。

工具/原料

4 9 excel

步骤/方法

1.1

下面介绍一种可以快速为excel工作簿创建工作表目录的方法。

定义名称

打开excel20xx,右击第一张工作表标签选择“重命名”,把它重命名为“目录”工作表。选中b1单元格,切换到“公式”选项卡,单击“定义名称”,在弹出的“新建名称”窗口中输入名称“工作表名”,在引用位置中则输入公式=index(get.woRkbook(1),$a1)&t(now()),单击确定即可定义出一个名为“工作表名”的名称。

公式中get.woRkbook(1)用于提取当前工作簿中所有工作表名称,index函数则按a1中的数字决定要显示第几张工作表的名称。此外,由于宏表函数get.woRkbook(1)在数据变动时不会自动重算,而now()是易失性函数任何变动都会强制计算,因此我们需要在公式中加上now()函数才能让公式自动重算。函数t()则是将now()产生的数值转为空文本以免影响原公式结果。

注:宏表函数get.woRkbook,不能直接在单元格公式中使用,必须通过定义名称才能起作用。

2.2

5 9 目录设置

在“目录”工作表的a1单元格输入1,在b1单元格输入公式=iFeRRoR(hypeRlink(工作表名&"!a1",Right(工作表名,len(工作表名)-Find("]",工作表名))),"")。公式表示当名称“工作表名”的值为错误值时显示为空“”,否则创建指向“工作表名!a1”的超链接并显示该“工作表名”。

然后选中a1:b1单元格,把鼠标指向选中区右下角的“填充柄”按住鼠标左键向下拖动到300行,把公式和编号填充出300行,在a、b列就会马上自动列出所有工作表目录(图2)。单击相应工作表名称即可快速切换到该工作表中。请参照可能的最多工作表个数来决定向下填充行数,一般300个应该够了。

注:公式中Right(工作表名,len(工作表名)-Find("]",工作表名))这段函数的作用是除去“工作表名”中“]”以前的内容。若你不介意工作表名称前显示“[book1.xlsx]”一类内容的话,可以把b1中的公式简化成=iFeRRoR(hypeRlink(工作表名&"!a1",工作表名),"")。

3.3

保存设置

切换到“开始”选项卡适当设置一下目录中的字体、字号和颜色等等,建议把字号放大并设置加粗以便查看,还要调整一下a:b列的列宽以便完全显示工作表名称。然后右