单元格有效性数据选择后能触发代码执行

shenzhenyang

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3. Dim sht As Worksheet
   
4. 
   
5. 
   
6. With Sheets("Sheet1")
   
7.        a = .Cells(Rows.Count, 1).End(xlUp).Row
   
8.     ar = .Range("A8:F" & a)
   
9. 
   
10. With Target
    
11.     If .Count > 1 Then Exit Sub
    
12.      If Target.Column = 6 And Target.Row <= a And Target.Row > 1 And .Count = 1 And .Value <> "" Then
    
13.    
    
14. For b = 1 To UBound(ar)
    
15. 
    
16.      If ar(b, 1) <> "" And ar(b, 6) <> "" Then
    
17.      
    
18.         For Each sht In Sheets
    
19.             If sht.Name <> "Sheet1" Then
    
20.                 If ar(b, 1) = sht.Name And ar(b, 6) = "是" Then
    
21.                   
    
22.                     sht.Visible = -1
    
23. 
    
24.                      
    
25.                 End If
    
26.                 If ar(b, 1) = sht.Name And ar(b, 6) = "否" Then
    
27.                     sht.Visible = 2
    
28.    
    
29.                 End If
    
30.             End If
    
31.         Next
    
32.       
    
33.     End If
    
34. Next
    
35. 
    
36. End If
    
37. End With
    
38. End With
    
39. End Sub

复制代码

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub
    If Target.Column <> 6 Then Exit Sub
    On Error Resume Next
    If Target = "否" Then
        Sheets(Cells(Target.Row, 1).Value).Visible = False
    Else
        If Target = "是" Then
            Sheets(Cells(Target.Row, 1).Value).Visible = True
        End If
    End If
End Sub

liulang0808

附件内容供参考。。。。。。