在相应单元格输入任何数据，显示深度隐藏的工作表

ken31800488

求各位大神帮忙，本人是VBA小白，希望实现下列功能在 quotation cover表中 A27----A35 单元格中输入任何字符，对应深度隐藏表格（spec1--spec9）就会显示出来。如果单元格是空白 就是隐藏。之前照网上说的做了 但不成功 请各位帮帮忙。祝大家端午快乐
之前参考的VBA

thisworkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim sht As Worksheet Sheets("sheet1").[a1] = "" For Each sht In ThisWorkbook.Sheets If sht.Name <> "Sheet1" Then sht.Visible = xlSheetVeryHidden Next End Sub [color=rgb(51, 102, 153) !important]复制代码 sheet1: Private Sub Worksheet_Change(ByVal Target As Range) Dim sht As Worksheet If Target.Address <> "$A$1" Then Exit Sub For Each sht In Sheets sht.Visible = xlSheetVisible Next End Sub [color=rgb(51, 102, 153) !important]复制代码

ww87725244

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim rng As Range
   
3. Dim sh As Worksheet
   
4. Application.ScreenUpdating = False
   
5. If Not Intersect(Target, Range("a27:a35")) Is Nothing Then
   
6.     For Each sh In Worksheets
   
7.         If sh.Name <> "Quotation Cover" Then
   
8.             sh.Visible = xlSheetVeryHidden
   
9.             For Each rng In Range("a27:a35")
   
10.                 If Len(rng.Value) = 1 Then
    
11.                     If InStr(sh.Name, rng.Value) Then
    
12.                         sh.Visible = xlSheetVisible
    
13.                     End If
    
14.                 End If
    
15.             Next
    
16.         End If
    
17.     Next
    
18. End If
    
19. Application.ScreenUpdating = True
    
20. End Sub

复制代码

ken31800488

ww87725244 发表于 2018-6-16 22:33

谢谢大神 深夜送出的福利~功能基本实现了。但是有一点 可能是我的图片误导了，我是希望 quotation cover表中 A27----A35 单元格中输入任何字符，对应的工作表就能一一对应显示，但目前视乎是限定了输入1---9的数字，能麻烦大神在帮个忙改改嘛？谢谢

blackttea1

加关注呀！