[分享]★链接目录★

tangren

太好了，学习学习...

zlehj

的确强悍啊！！！

lpswzfyj2007

彪悍着！

xuzilin2007

下来看看，谢谢楼主。。

lurenb

下载了 学习中 想在自己的表格中借鉴用

但有个问题想请教一下：

"双击各表第一行单元可以隐藏该表并回到目录"

我想双击返回目录，但不想将表格自动隐藏 该怎么办啊

LangQueS

QUOTE:

以下是引用lurenb在2008-4-7 14:07:49的发言：

下载了 学习中 想在自己的表格中借鉴用

但有个问题想请教一下：

"双击各表第一行单元可以隐藏该表并回到目录"

我想双击返回目录，但不想将表格自动隐藏 该怎么办啊

工作簿代码调用了“返回目录”宏：

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If Sh.Index > 1 And Sh.Index < 100 Then
        If Not Application.Intersect(Sh.Range("A1:Z1"), Target) Is Nothing Then Call 返回目录
    End If
End Sub

删除兰色代码即可：

Sub 返回目录()
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("目录").Select
End Sub

lurenb

还有一个疑问就是：当表格中sheet的名称用数字来命名的时候（当然“目录”这个是不去改的），

比如除了“目录”其他的sheet按照“1”“2”“3”……这样的数字来命名时，

“双击单元格打开工作表”时会出错——错误的打开工作表，反映出来的“症状”是：双击后打开的工作表实际为“点击的工作表名称-1”后的工作表，并且数字最大的那个sheet、和数字最小的那个sheet无法通过这个途径双击打开；但如果最小命名表格名称不以1为起点，以2为起点时，问题更加怪异了 不知道是怎么回事

见附件，附件中

    “文件1”1、9双击无法打开，其余打开不正常，

    “文件2”则2、3、4、5打开正常，7、8打开但不正常，9双击无法打开

    “文件3”同“文件2”，“文件4”正常

3Q~~~     ：）

（本人菜鸟，解释不清楚比较罗嗦，多谅解）[em04]

1hncbFnz.rar (139.04 KB, 下载次数: 131)

2008-4-7 14:49 上传

点击文件名下载附件
[分享]★链接目录★

似乎用数字命名的时候是这样：双击后打开的文件是“双击单元格内数字所对应的第【X】个sheet（X为双击单元格内数字）”

[此贴子已经被作者于2008-4-7 15:04:27编辑过]

lurenb

谢谢版主～～～

tqb_land

“双击单元可以打开工作表
双击各表第一行单元可以隐藏该表并回到目录”这两个功能的代码是放在什么地方的？又如何设置？为什么我复制了以后就不能跳转到相关的工作表？

chirley

非常感谢楼主了!