vba隐藏工作表

发布网友发布时间：2022-05-17 06:20

共3个回答

热心网友时间：2023-10-10 13:08

这样，写个事件：

Private Sub Worksheet_Change(ByVal Target As Range)
    Target = Range("a1")
    Dim x, y
    If Target.Value = 1 Then
        For x = 1 To 5
            Sheets(x).Visible = True
        Next
    End If
    If Target = 2 Then
        For y = 1 To 5

            Sheets(y).Visible = False
        Next y
    End If

End Sub

追问大师，试了一下，好像要填写宏名称，不知怎么填

追答

看这个过程。

热心网友时间：2023-10-10 13:08

完全可以办到的。代码也很简单，只是不知道你要隐藏和显示的其中5个工作表名称或位置有什么规律，无法直接给你写代码追问大师，你好，帮修改一下，下面这组代码无冲突，但也没作用。
Private Sub Worksheet_Change(ByVal Target As Range)
Target = Range("a1")
Dim x, y
If Sheet7.[a1] = 1 Then
For x = 1 To 5
Sheets(x).Visible = True
Next
End If
If Sheet7.[a1] = 2 Then
For y = 1 To 5
Sheets(y).Visible = False
Next y
End If
End Sub
Sub 工作薄()
End Sub

热心网友时间：2023-10-10 13:09

Private Sub CommandButton2_Click()Dim str5 As String Dim x As Long For x = 2 To 10 If Sheet3.Cells(x, 2).Value = "" Then Exit Sub str5 = Sheet3.Cells(x, 10).Value If str5 = "AIRC" Then Sheet1.Visible =1 '显示工作表 NextEnd Sub

If str5 = "AIRC" Then Sheet1.Visible =1 '显示工作表你是试一下这样改。
或者改成
If str5 = "AIRC" Then Sheet1.Visible =true '显示工作表

这样的代码，试试。追问大师，我是个外行人，谢谢你花宝贵时间回答我的问题，能否尽量写详细一点，包括怎么操作的细节。先谢谢了！