如何快速查询工作表名？

qq178838411

如题。因为自己是生意人。要做个账目收支表。
我是一个工作簿里包含了上百个客户。并且我都用客户姓名来命名工作表名，但是不知道如何快速查询工作表名。我用了ctrl+f好像没这功能

lgcmeli

在工作表标签最左边的小黑方向箭头上右键，后选择工作表名

或者做个目录

迎凌子

我有个办法，我认为应该是个比较快捷的办法了。不过首先你还是得给你的所有客户名（工作表）都按数字编上序号，打开你的这个包含了上百个客户姓名的工作簿，然后按下快捷键CTRL+E+M组合键，就打开了移动或复制工作表框，下面有此工作簿的名称（默认下是BOOK1），在下面就是一个小列表，可以滚动浏览你所有的工作表名，（这是移动顺序的功能）所以找到你想要的那个，只能先关闭这个选项框，然后在工作表的左下角有四个小三角按钮控制左后方向，你可以在快速的按先前变得序号去找到你想要的那个表了。不知道能不能帮到你。另外建议你哈，（你有新客户就往工作簿里加一个）工作簿能插入上百个工作表，但是不能插入上千个工作表，而且那个很累，希望你能把客户资料归类有序的去整理

Fae

用VBA 建立一个目录吧。

代码如下：（从论坛里翻出来的，还挺好用的）
Sub 在目录表建立本工作簿中各表链接目录()
Dim s%, Rng As Range
    On Error Resume Next
    Sheets("目录").Activate
    If Err = 0 Then
        Sheets("目录").UsedRange.Delete
    Else
        Sheets.Add
        ActiveSheet.Name = "目录"
    End If
   
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "目录" Then
            s = s + 1
            Set Rng = Sheets("目录").Cells(((s - 1) Mod 20) + 1, (s - 1) \ 20 + 1 + 1)
            Rng = Format(s, "  0") & ". " & Sheets(i).Name
            ActiveSheet.Hyperlinks.Add Rng, "#" & Sheets(i).Name & "!A1", ScreenTip:=Sheets(i).Name
        End If
    Next
   
    Sheets("目录").Range("b:iv").EntireColumn.ColumnWidth = 20
End Sub

[ 本帖最后由 Fae 于 2010-3-5 22:38 编辑 ]

qq178838411

VBA我不知道怎么用.2楼那招我自己也会.上百个工作簿这么一个一个找也麻烦..3楼那招我看不懂

qq178838411

你这个招数不实用.上百个工作表你要这么找你也找好一会

qq178838411

看不懂你这招数..

好学999

4楼方法很好用。

江之南

果然好用，谢谢啊！