|
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count > 1 Then Exit Sub
- If Target.Address <> [c3].Address And Target.Address <> [h3].Address And _
- Target.Address <> [h4].Address Then Exit Sub
- Application.ScreenUpdating = False
- Dim c&
- [b6].CurrentRegion.AutoFilter
- If Target.Column = 3 Then
- c = Rows(6).Find([c3], lookat:=xlWhole).Column
- [b6].CurrentRegion.AutoFilter Field:=c - 1, Criteria1:="是"
- Else
- c = Rows(6).Find(Target.Offset(, -1), lookat:=xlWhole).Column
- [b6].CurrentRegion.AutoFilter Field:=c - 1, Criteria1:=Target
- End If
- Application.ScreenUpdating = True
- End Sub
复制代码 |
|