Question

excel中如何隐藏暂时不需要显示的表？

在一个文件中，我想在第一个表中加入很多个超链接，一点超连接就跳到后面的某一个表，如何实现仅显示被超链接激活的表，未被激活的表自动隐藏，这样可以在下边栏就仅显示两张表了，如何实现类似的效果呢？

Answer 1

这个需要用到宏功能的。参考代码
Private Sub Workbook_Open()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next i

End Sub

Sub 打开隐藏表()
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
AAA = ActiveCell
Sheets(AAA).Visible = True
Sheets(AAA).Select
End Sub
Sub 打开全部隐藏工作表()
Application.ScreenUpdating = False '关闭屏幕刷新
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
Application.ScreenUpdating = True '打开屏幕刷新
End Sub
Sub 隐藏表1以后全部工作表()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next i
End Sub
Sub 返回目录()
ActiveWindow.SelectedSheets.Visible = False
Sheets("目录").Select
End Sub
Sub 打开文件()
AAA = ActiveCell
Workbooks.Open Filename:=AAA & ".xls"
'Workbooks.Open Filename:="E:\信件\循环打印.xls"
Call 重排窗口
End Sub
Sub 打开全称文件()
AAA = ActiveCell
Workbooks.Open Filename:=AAA
Call 重排窗口
End Sub
Sub 建立工作表目录()
Application.Calculation = xlCalculationManual '手动重算
Sheets(1).Name = "目录"
For i = 2 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
'Sheets(1).Hyperlinks.Add Cells(i, 1), "#" & Sheets(i).Name & "!L1" '添加超链接
Next
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

Sub auto_open()
Dim i As Integer
For i = 1 To Sheets.Count
If i = 1 Then
Sheets(i).Visible = xlSheetVisible
Else
Sheets(i).Visible = xlSheetVeryHidden
End If
Next i
End Sub
定义工作薄 双击目录表中的对应隐藏的表格名称可以打开隐藏的表，并且在目录表的A到Z列范围内随便哪位位置输入对应的表格名称都可以连接到该表
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Index > 1 And Sh.Index < 100 Then
If Not Application.Intersect(Sh.Range("A1:Z1"), Target) Is Nothing Then Call 返回目录
End If
End Sub

Answer 2

在下面直接在不需要显示的部分上右键，选择隐藏即可

追问

隐藏的表 无法被超链接激活

Answer 3

去学Visual Basci，然后用Excel的 宏 功能解决这个问题。

Answer 4

在菜单中
格式---工作表--隐藏

追问

如果隐藏了需要激活的表，点击超链接就打不开该表了。

Answer 5

这个简单，用VBA

------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To [A65536].End(xlUp).Row
If Target.Address = "$A$" & i Then
Sheets(ActiveCell.Value).Visible = True
Sheets(ActiveCell.Value).Activate
End If
Next
End Sub
----------------------------

Private Sub CommandButton1_Click()
ActiveSheet.Visible = False
Sheet1.Activate
End Sub
------------------------------