­ã´£³¡ªL

¤u§@ªíIJµoVBA:
Dim Ur As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$1" Then
   Cancel = True
   Call FilterAreaChk
   If Ur.SpecialCells(xlCellTypeVisible).Count = Ur.Count Then
      Ur.AutoFilter Field:=3, Criteria1:="<>§¹¦¨"
   Else
      Ur.AutoFilter Field:=3
   End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Item(1)
     If .Column <> 3 Or .Row = 1 Or .Value <> "§¹¦¨" Then Exit Sub
     Call FilterAreaChk
     Ur.AutoFilter Field:=3, Criteria1:="<>§¹¦¨"
End With
End Sub

Sub FilterAreaChk()
If Me.AutoFilterMode = False Then
   Range([A1:C1], Me.UsedRange).AutoFilter
End If
Set Ur = Me.AutoFilter.Range
End Sub

Xl0000227(¦Û°Ê¿z¿ïÁôÂÃ).rar (13.26 KB)

¤U¸ü¦¸¼Æ: 17

2018-10-31 10:58

­ã´£³¡ªL

¦^´_ 7# Qin

¥Î"®æ¦¡¤Æ±ø¥ó"§a~~~
=($C2="CC")*($D2="ºò«æ")*($E2<>"Done")
=($C2="AA")*($D2="ºò«æ")*($E2<>"Done")

Xl0000227(¦Û°Ê¿z¿ïÁôÂÃ)-1.rar (13.93 KB)

¤U¸ü¦¸¼Æ: 5

2019-4-7 12:09