[分享]★链接目录★

tangren · 发表于 2008-3-30 15:51

太好了，学习学习...

zlehj · 发表于 2008-4-2 16:08

的确强悍啊！！！

lpswzfyj2007 · 发表于 2008-4-3 22:58

彪悍着！

xuzilin2007 · 发表于 2008-4-4 14:28

下来看看，谢谢楼主。。

lurenb · 发表于 2008-4-7 14:07

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

但有个问题想请教一下：

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

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

LangQueS · 发表于 2008-4-7 14:45

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 · 发表于 2008-4-7 14:49

还有一个疑问就是：当表格中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)

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

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

lurenb · 发表于 2008-4-7 15:00

谢谢版主～～～

tqb_land · 发表于 2008-4-9 18:38

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

chirley · 发表于 2008-4-16 16:28

非常感谢楼主了!

		自动登录	找回密码
密码			免费注册

[其他资源] [分享]★链接目录★

[讨论]关于代码