[分享]★链接目录★

englishunix

代码能看懂，只是该文件对偶用途不大。

hhzjxss

谢谢“哪吒”版主！

zliqiong2007

偶也不懂代码

桃之小妖

我非常想弄明白这是怎么做的

LangQueS

QUOTE:

以下是引用桃之小妖在2008-3-15 23:30:15的发言：
我非常想弄明白这是怎么做的

Alt+F11 可以查看文件中的代码。

alzeng

“双击单元可以打开工作表
双击各表第一行单元可以隐藏该表并回到目录”

以上的两个功能，在代码中好像没有，可否明确怎样实现？

LangQueS

QUOTE:

以下是引用alzeng在2008-3-16 13:28:38的发言：

“双击单元可以打开工作表
双击各表第一行单元可以隐藏该表并回到目录”

以上的两个功能，在代码中好像没有，可否明确怎样实现？

工作簿代码：（在序列号>1、<100的所有表中，双击 A1:Z1 单元执行“返回目录”宏）

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

目录工作表代码：（双击 A2:A100 单元执行“打开隐藏表”宏）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息
 If Not Application.Intersect(Target, Range("A2:A100")) Is Nothing Then Call 打开隐藏表
End Sub

Sub 打开隐藏表()    '打开当前单元为表名称的隐藏工作表
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息
AAA = ActiveCell
    Sheets(AAA).Visible = True
    Sheets(AAA).Select
End Sub

yinhb5494

工作表能不能做成无数个，工作表的名称可不可以改

LangQueS

QUOTE:

以下是引用yinhb5494在2008-3-16 15:53:27的发言：
工作表能不能做成无数个，工作表的名称可不可以改

2003限定的工作表上限时256。

工作表名称可以修改。

alzeng

谢谢郎雀版主，解决了我的问题，以后还会多叨扰……[em23]