excel子表太多怎么做目录
点击"Alt+F8","创建"将下面两段代码粘贴到窗口,再在工具栏中,自定义一个按钮,为该按钮"指定宏"为"Public Sub 返回目录()"宏就可以了
Public Sub 返回目录()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
On Error GoTo ErrorHandler ' 打开错误处理程序。
Worksheets("目录").Activate
Worksheets("目录").Range("a1").Select
Exit Sub
ErrorHandler:
Msg = "在 " & Worksheets.Parent.Name & " 中没有目录表 !" ' 定义信息。
Msg = Msg & vbLf & "是否创建目录表 ?" ' 定义信息。
Style = vbYesNo + vbInformation + vbDefaultButton1 + vbApplicationModal ' 定义按钮。
Title = Worksheets.Parent.Name ' 定义标题。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下"OK"。
MyString = "Yes" ' 完成某操作。
目录
Else
MyString = "No" ' 完成某操作。
End If
End Sub
Public Sub 目录() '生成工作表目录,生成的目录工作表名称为"目录",生成前请先确认是否已有同名的工作表
Dim ColStart As Long, RowStart As Long
Dim ws As Worksheet, xlSheet As Worksheet
Dim SheetName As String, SheetExists As Boolean
Dim Msg, Style, Title, Response, MyString
SheetName = "目录"
For Each ws In Worksheets
If ws.Name = SheetName Then
SheetExists = True
Exit For
End If
Next ws
If SheetExists Then
Msg = "目录工作表已存在,是否重生成目录工作表?" ' 定义信息。
Style = vbYesNo + vbInformation + vbDefaultButton1 + vbApplicationModal ' 定义按钮。
Title = Worksheets.Parent.Name ' 定义标题。
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' 用户按下"OK"。
MyString = "Yes"
Set xlSheet = Worksheets(SheetName)
xlSheet.UsedRange.Clear
Else
MyString = "No"
Exit Sub
End If
Else
Set xlSheet = Worksheets.Add(Before:=Worksheets(1), Count:=1, Type:=xlWorksheet)
xlSheet.Name = SheetName
End If
If SheetExists Then
Else
End If
xlSheet.Move Before:=Worksheets(1)
xlSheet.Activate
xlSheet.Cells(1, 1).Value = "目录"
RowStart = 2
ColStart = 1
For Each ws In Worksheets
If ws.Name SheetName Then
With xlSheet
.Hyperlinks.Add Anchor:=.Cells(RowStart, ColStart), _
Address:="", _
SubAddress:="'" & ws.Name & "'" & "!A1", _
ScreenTip:=ws.Name, _
TextToDisplay:=ws.Name
RowStart = RowStart + 1
End With
End If
Next ws
End Sub
在目录中链接的对应单元格上右键——超链接——本文档中的位置——选择对应的工作表——确定。
1、在工作簿中新建一个工作表,命名为“目录”。
2、单击B1单元格,切换到“公式”选项卡,单击“定义名称”,弹出【新建名称】对话框,在“名称”文本框中输入“目录”,在“引用位置”文本框输入以下公式:
=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())
3、在B1单元格中输入公式,并向下复制:
=IFERROR(HYPERLINK(目录&"!A1",MID(目录,FIND("]",目录)+1,99)),"")现在可以看到效果了,单击目录中的工作表名称,就会自动跳转到相应工作表。
注意:GET.WORKBOOK函数是宏表函数,可以提取当前工作簿中的所有工作表名,需要先定义名称后使用。
咱们简单分解一下这个公式各部分的含义:
GET.WORKBOOK函数返回的结果类型为“ [课件.xlsm]目录”的样式。也就是“工作簿名称+后缀名+工作表名称”。
T(NOW())部分返回一个空值,目的是让GET.WORKBOOK函数结果能够实时更新。
FIND("]",目录)部分,用于查找符号"]"在自定义名称“目录”计算结果中的位置。
MID(目录,FIND("]",目录)+1,99)部分,从“目录”中的"]"符号后一个字符处取值,取值长度为99个字符,这里的99可以写成任意一个较大的数值。
HYPERLINK函数用于创建一个快捷方式(跳转),是EXCEL超级链接的函数实现方法。当单击函数 HYPERLINK 所在的单元格时,Excel将打开链接的文件或跳转到指定的工作表的单元格,本例中是跳转到目录&"!A1"。
IFERROR函数用于屏蔽错误。
注意:工作表保存时需要选择保存类型为“Excel 启用宏的工作簿(*.xlsm)”,同时需要在Excel选项中将宏安全性设置为中,否则会不能正常使用了。
怎么把全部工作表排序
步骤一、打开菜单栏的“工具”-->选项,然后在弹出的“选项”窗口中选择“自定义序列”,在右边的“输入序列”中依次输入北京、上海、天津、广州,每输入一个地点时,就回车一次,输入完成后点击“添加”按钮;(如图)步骤二、回到Excel工作表,选中“地点”这一列;步骤三、选中以后,单击“数据”--...
excel2007表格中如何排序
首先我们在桌面打开excel软件,新建一个excel表格。02我在这里填入4行数据,分别输入各自的类型。03这里我们先选排序数据,排序的时候必须要指定排序的单元格,比如下面我们选定所有数据。04然后点击菜单栏的数据,选择排序子菜单来打开排序对话框,对话框里是排序的条件。05接着在打开的排序对话框中,选择...
在表格中如何画斜线(在表格中如何画斜线并在两边输入文字)
首先选中表格,右击表格并点击设置单元格格式。点击边框,选择自己想要的斜边框,点击确定。点击确定,表格中即可插入单线斜边框。excel表格怎样设置斜线?第一步:打开excel表格,选中需要画斜线的单元格,右击选择设置单元格格式 第二步:点击窗口的,【表框】选项,选择表框右下角【斜线】按钮 第三步:...
苹果电脑做好的excel保存在哪苹果笔记本电脑excel表格编辑后怎么...
第一种方法:1、打开表格 ❸ 苹果笔记本电脑excel表格编辑后怎么保存 Excel表格编辑后直接选择文件菜单的保存就可以保存在原来的文件内了,如果想另外存一个单击另存为也可以存到另外一个文件内,如果你编辑的是落共享的表格,那么不用保存网络,会自动保存在他的服务器里面的。❹ 苹果笔记...
表格里面怎么取消隐藏?
畅xcel2003版本的方法是:选定整个表格——格式——行——取消隐藏 希望可以帮助你,祝你好运。如果对我的回答满意请点击我的回答下方选择满意答案按钮,谢谢~excel如何取消隐藏 试了丹下,发现关键点是鼠标的位置。把鼠标放在J列的字母J的前面,在竖线的位置附近,直到鼠标变成左右两个箭头夹着两条竖线...
如何取消隐藏单元格
(1)全选表格:按行列标签交叉处的全选按钮,或用快捷键CTRL+A,全选表格;(2)取消隐藏:右击工作表的任意位置,在快捷菜单中选择“取消隐藏”。2、筛选产生的隐藏取消方法:选中带有筛选按钮的行,“开始”功能区,“编辑”分组,按“排序和筛选”下拉按钮,按钮“筛选”选项。问题二:怎样一次性...
表格排序怎么能让边框不变?
xcel排序使某列固定不变 简介 排序功能是我们在使用excel时经常用到的功能,有时候我们希望排序时某列不随着排序结果而改变,如何实现呢?工具\/原料 电脑 excel 方法\/步骤 1 如下...
为什么电子表格打不开
问题三:Excel表格出现问题,打不开了怎么办?? 10分 第一种方法,把这个文件拷贝到其他电脑上看能否打开。 第二种方法,右键该文件,选择打开方式,选择office打开。 第三种方法,创建一个新的excel表格文件,在新的表格中打开这个文件。 第四种方法,查找软件安装目录是否有缓存的文件,一般系统会几分钟缓存一次文件...
excel2007中如何将饼图中的百分比数据添加到数据表中
百分比数据添加到数据表中方法:1.首先打开一张需要用到的数据表格.2,选中我们需要的数据,点击表格上方的插入选项栏,插入栏的下面有很多个图标,需要的就是一个饼图如图并选中,这样饼状图就会出来了,这里要注意的就是一定要先选中需要的数据这样饼图才会出来的,否则饼图是不会出来的。3,选中数据...
EXCEL的表格怎么拉长? +
1、电脑打开Excel表格,选中要变成的单元格。2、电脑打开Excel表格,然后鼠标左键点击左侧的框线,然后往下拖,要多长就拖多长。3、拖动之后放开鼠标,表格就变长了。4、点击拖动顶部的框线,就可以把表格拖宽了。