Question

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

Answer 1

在该表写下面程序实现：

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:

Answer 2

可以 用 VBA Selecte change 事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("B7:G10"))
If Not (isect Is Nothing) Then [g5] = Target
End Sub