excel中如何用鼠标点击该单元格就显示隐藏表格中内容

如题所述

在该表写下面程序实现:

Private Sub Worksheet_Activate()

    Sheet2.Visible = xlSheetHidden

    Sheet3.Visible = xlSheetHidden

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 Then

    If Target <> "" Then

        bm = Target.Value

        Sheets(bm).Visible = -1

        Sheets(bm).Select

    End If

End If

End Sub

1、在Sheet1的表,A列有表的名称:Sheet2、Sheet3(这两表目前为隐藏)

2、在Sheet1有上面的程序后,点选A1单元,就打开了对应名称的表格:

3、选回Sheet1,又自动隐藏Sheet2:

温馨提示:答案为网友推荐,仅供参考
第1个回答  2014-11-03
在电子表格里,我们的一些数据;信息不想让人看到,怎么办呢?下面和朋友们分享一下这方面的经验。今天分享三种不同隐藏/显示的方式。

步骤如下:
http://jingyan.baidu.com/article/47a29f24114f30c014239922.html本回答被提问者和网友采纳