ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ·Q½Ð°Ý¤j®aExcel¨Ï¥Î¤U©Ô¦¡¿ï³æ«áª½±µ¸õ¨ì¸Ó±ø¥ó°Ï°ìªº¤èªk

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD