不懂VBA也编程

wanghx8866

谢谢老师分享努力学习

pierian

感谢分享，学习一下

lele6809

日积月累，不断进步

山菊花

右键点击工作表标签，选择“查看代码”，将下面的代码粘贴到打开的代码窗口中：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Row = 1 Then
        Application.Dialogs(xlDialogFilter).Show Target.Column
    End If
End Sub

pixy999

山菊花 发表于 2008-12-8 13:38
为工作簿创建目录，方法有多种，下面介绍使用VBA的方法。
⑴、点击单元格，激活相同名称的工作表。
右键 ...

你好 我按照您的教程 做到了用vba隐藏工作表 但是有个问题 需要您指教一下

因为链接到其他表的问题 有的时候我需要在某个工作表显示并激活的时候 需要另外的工作表也取消隐藏 请问需要怎么做
比如当表1显示并激活的时候 表2和表3也显示
我初学 自己写了if then的语句 但是觉得加到哪里都出问题 不知道应该放在哪里 请指教

pixy999

pixy999 发表于 2013-12-18 17:29
你好 我按照您的教程 做到了用vba隐藏工作表 但是有个问题 需要您指教一下

因为链接到其他表的问题 有 ...

目录.zip (54.14 KB, 下载次数: 142)

2013-12-19 09:35 上传

点击文件名下载附件

老师 就在您的例子里修改就好
我的要求是当【学校设置】被显示并激活的时候，其他三个表也同时显示 主要是问这个问题 请指教

山菊花

pixy999 发表于 2013-12-19 09:38
老师 就在您的例子里修改就好
我的要求是当【学校设置】被显示并激活的时候，其他三个表也同时显示 主 ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then
        Target.Range("a1").Select
    Else
        If Target = "" Then Exit Sub
        Application.EnableEvents = False

       If Target.Address = "$E$3" Then '如果点击“学校设置”单元格
            For i = 2 To 4
                Sheets(Cells(3, i).Value).Visible = 1
            Next
        End If

        Target.Offset(2).Activate
        Sheets(Target.Value).Visible = 1
        Sheets(Target.Value).Activate '激活相同名称的工作表
        Application.EnableEvents = True
    End If
End Sub

pixy999

山菊花 发表于 2013-12-19 12:47
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then
       ...

先谢谢老师 您这里用的是循环把其他的都激活
但是我发现这样做以后 再回到目录或者其他表 这时候不需要的表不会自动隐藏 这个应该怎么处理呢
可是在我实际的运用中 可能会出现同时需要【激活表1显示表2表3】【激活表4显示表5】【激活表5显示表1表3】等等这样的情况 请问有什么办法吗
或者换一个思路 跟您请教一下例如我需要【激活表4显示表5】是因为【表4】需要链接并跳转到【表5】请问除了在跳转前显示【表5】还有其他的方法吗？
万分感谢您的耐心指教！

山菊花

pixy999 发表于 2013-12-19 13:27
先谢谢老师 您这里用的是循环把其他的都激活
但是我发现这样做以后 再回到目录或者其他表 这时候不需要的 ...

无论是显示表还是隐藏表，都用VBA代码去实现，都可以用代码去实现，你的第一个要求“点击学校设置时显示其它表”，代码就是上面那样，或者不用循环，直接一个一个进行操作。如果隐藏某一个表时要隐藏所有表，也可同样进行，visible=1就是显示，visible=2或0就是隐藏。
如果自己不能写出代码，请上传文件并说明具体要求。

一玩就中

学习中……