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

[µo°Ý] ¿z¿ï°ÝÃD

¥i¥Îadvanced filter

criteria range¬Ý¤U­±
2012¦~ 2013¦~
<> 0    = 0
= 0      <> 0
> 0      > 0

TOP

¦^´_ 3# yliu
  1. Sub customfilt()
  2. With ActiveSheet
  3. .Range("B1:C6").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
  4.         ("E1:F4"), CopyToRange:=.Range("G1"), Unique:=False
  5. End With
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# yliu

criteria range§YE1:E4¼g¤U³o­Ó, ª`·N= 0­n³o¼Ë¼g="= 0"
2012¦~ 2013¦~
<> 0    = 0
= 0      <> 0
> 0      > 0

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD