用VBA或宏，显示和隐藏<em>EXCEL</em>中的<em>工作表</em

用宏来打开和隐藏某个sheet的方法是：zhidao
按下Alt+F11打开宏代码窗口。
插入模块，给宏起个名字，比如下面的例子里叫abc
用一句命令 sheets("xxx").visible = 1或0 开关隐藏

例子：内
sub abc()
sheets("sheet2").visible=0
sheets("sheet3").visible=0
sheets("sheet4").visible=1
end sub

这段代码的意思是，隐藏sheet2,sheet3，显示sheet4。
这是基本原理，以此类推，可以构建更多的宏来进容行更加复杂的操作。

Private Sub Worksheet_Activate()
Dim SH As Worksheet
For Each SH In Worksheets
If SH.Name <> "Sheet1" Then SH.Visible = False
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Text).Visible = True
Sheets(Target.Text).Activate
End Sub
在宏里加复代码就行制了
Private Sub Workbook_Open()
Sheets("要现百实Sheet的名").Activate
End Sub
例如你想要度名字是问Sheet3的打开时显示答。
Private Sub Workbook_Open()
Sheets("Sheet3").Activate
End Sub

Private Sub A1_Click()

Dim i As Integer
For i = 1 To Sheets.Count
    Select Case Sheets(i).Name
    Case str1, str2
    Case A1.Caption
        If Left(A1.Caption, 1) = "A" Or Left(A1.Caption, 1) = "B" Or Left(A1.Caption, 1) = "C" Then
            Sheets(str3).Visible = xlSheetVisible
            Sheets(str4).Visible = xlSheetHidden
        ElseIf Left(A1.Caption, 1) = "X" Or Left(A1.Caption, 1) = "Y" Or Left(A1.Caption, 1) = "Z" Then
            Sheets(str3).Visible = xlSheetHidden
            Sheets(str4).Visible = xlSheetVisible
        End If
        Sheets(i).Visible = xlSheetVisible
        Sheets(i).Activate
    Case Else
        Sheets(i).Visible = xlSheetHidden
    End Select
Next
End Sub