excel 查找工作表名称的具体步骤如下:
需要准备的材料分别是:电脑、Excel表格。
1、首先打开需要编辑的Excel表格,进入到编辑页面中。
2、然后找到Excel表格左下角中的四个小三角形,右键单击任意一个。
3、然后在弹出来的窗口中就能查看所有的工作表名称了,点击名称即可打开该工作表。
示例操作步骤如下:
我们需要的工具有:电脑、excel
1、首先打开excel文档,处于任意一个工作簿都可以。
2、然后在工作簿最左侧的三角箭头处,单击右键。
3、然后就会弹出一个对话框,直接选择需要跳转的工作簿,确定即可。
4、确定之后就会马上跳转到指定的工作簿里了。
如图所示,去过工作薄中有15个以下的工作表,我们可以直接选择,因为它们在下面已经显示了出来,如果工作薄多余15个,我们只能用4个标签按钮来完成,这样做很麻烦。
我们在下面的4个标签按钮上单击右键,现在可以看到一系列的工作表名称,这时我们单击工作表名称就转到了指定的工作表
由于工作表太多如果还是找不到我们想要的工作表,我们可以右键4个标签,点击“其他工作表”,打开活动文档,在其中选择需要的工作表,双击就能进入工作表了。
在文档比较多时,你可能很难快速找到,这时候你可以通过键盘操作来找到,比如,我们要找“成绩单”工作表,我们可以在键盘上按“C”键,这时候,活动表中马上选中了以"C"开头的第一张表格,然后找到所需表格,双击就可以打开。
可以将所有的表名集中列在一个表里面,给表名设置相应表的链接
会使用宏的话hlopr的办法非常有效哦,建议采取
嘻嘻 我搜索到了一个快速生成表超链接目录的答案 很使用哦
^_^
下面这个步骤可以收集位于不同文件夹下面的表格文件名,并在当前打开的这个总表的第三列里为所有这些表格文件建立超链:
1、在Excel里面打开或者新建一个表格作为总表;
2、在表格标签上单击鼠标右键,选择“查看代码”;
3、粘贴如下代码到编辑器里面去:
Option Explicit
Sub BuildHyperlinksToWorkbooks()
On Error Resume Next
Dim arrFolders As New Collection
Dim strFolder, strFile As String
Dim fso, oFolder, oFile
Dim oCell As Range
Dim nRowIndex As Integer, nColumnIndex As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
' 设置这个数字来控制把超级链接生成到第几列
nColumnIndex = 3
' 在下面调整/增/删需要搜索的文件夹
arrFolders.Add "C:\Temp\docs\test1\"
arrFolders.Add "C:\Temp\docs\test2\"
arrFolders.Add "C:\Temp\docs\test3\"
nRowIndex = 1
For Each strFolder In arrFolders
Set oFolder = fso.GetFolder(strFolder)
For Each oFile In oFolder.Files
strFile = oFile.Path
If (UCase(Right(strFile, 4)) = ".XLS") Or (UCase(Right(strFile, 5)) = ".XLSX") Then
Set oCell = Cells(nRowIndex, nColumnIndex)
oCell.Hyperlinks.Add Anchor:=oCell, Address:="file://" & strFile, TextToDisplay:=strFile
nRowIndex = nRowIndex + 1
End If
Next
Next
Set oFolder = Nothing
Set fso = Nothing
MsgBox "完成!"
End Sub
4、根据需要增加/删除上面代码中需要搜索的文件夹;同时也可以控制把超级链接生成到第几列去;
5、键入F5运行看到“完成!”结束;
6、键入ALT+Q退出代码编辑返回Excel表格界面,检查所有超链是否正确生成。
如果以后不在需要批量插入超链,则可以在保存这个总表前把上面的代码全部删除。从而避免了每次打开这个总表文件时,Excel都要提示是否启用宏什么的。
自己录制一个宏,记得输入快捷方式(例如:ctrl+Q)。
然后把之前的代码去掉,用下面的代码。
mz=inputbox("请输入工作表名称")
For i = 1 To Sheets.Count
If Sheets(i).Name Like "*"& mz &"*" Then
Sheets(i).Select: Exit For
End If
Next i
接着输入工作表名称就可以了