在该表写下面程序实现：
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个回答 2018-05-25
可以 用 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
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
相似回答