GBKEE

¦^´_ 5# Lisa1

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Address = "$A$1" Then
   
4.         Target.AutoFilter field:=1, Criteria1:=Target, VisibleDropDown:=False
   
5.         'AutoFilter ¤èªk  [¦Û°Ê¿z¿ï] ¿z¿ï¥X¤@­Ó²M³æ¡C¬° Variant¡C
   
6.     End If
   
7. End Sub
   
8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
9.     If Target.Address <> "$A$1" Then Me.AutoFilterMode = False
   
10.       'Àx¦s®æ¦ì¸m¤£¬OA1  ¨ú®ø [¦Û°Ê¿z¿ï] ¥þ³¡¸ê®ÆÅã¥Ü
    
11. End Sub

½Æ»s¥N½X