[已解决]如何编写代码？谢！

zhuzheng_72 · 发表于 2010-8-19 22:31

工作表1为目录，目录中2，3，4为超链接到表2、3、4，如果打开工作薄只显示表1，其余表隐藏，当点2时显示表2，点目录时隐藏表2，表3、表4与表2功能相同，如何编写代码？

SJGIGSe6.rar (1.65 KB, 下载次数: 0)

兰色幻想 · 发表于 2010-8-19 23:15

没看懂是什么意思？

是不是点目录中的2，只显示表2，其他的表隐藏，回到目录时其他表隐藏，始终只显示一个表？

aaasdfg12 · 发表于 2010-8-20 00:20

[em01]

zhuzheng_72 · 发表于 2010-8-20 09:55

正是这个意思

zhuzheng_72 · 发表于 2010-8-20 12:53

兰板帮忙啊~~~~~~高手在哪？

zhuzheng_72 · 发表于 2010-8-20 13:31

来个高手啊，急~~~~~~~~~~~

爱疯 · 发表于 2010-8-20 16:27

qyUPNkQ6.rar (10.51 KB, 下载次数: 0)

蓝桥玄霜 · 发表于 2010-8-20 17:02

Dim Sht As Worksheet

Private Sub Workbook_Open()
For Each Sht In Sheets
If Sht.Name <> "目录" Then Sht.Visible = 0
Next
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
Dim ad$
Select Case Sh.Name
    Case "目录"
        If Target.Column <> 1 Then Exit Sub
        ad = Target.Address
            Select Case ad
                Case "$A$2"
                    Sheet2.Visible = -1
                    Sheet1.Visible = 0: [a2].Select
                Case "$A$3"
                    Sheet3.Visible = -1
                    Sheet1.Visible = 0: [a2].Select
                Case "$A$4"
                    Sheet4.Visible = -1
                    Sheet1.Visible = 0: [a2].Select
            End Select
    Case "2", "3", "4"
        If Target.Address <> "$A$1" Then Exit Sub
        Sheet1.Visible = -1
        Sheets(Sh.Name).Visible = 0

End Select
End Sub

zhuzheng_72 · 发表于 2010-8-20 19:24

7楼达到效果，但如果工作表太多，每个表编写太麻烦。8楼的代码好象有问题，也可能是我不明白，运行后目录表不见了

爱疯 · 发表于 2010-8-20 20:05

2nsbKJwW.rar (9.44 KB, 下载次数: 13)

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

[已解决]如何编写代码？谢！

回复：（zhuzheng_72）如何编写代码？谢！