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

½Ð°ÝAdvancedFilter¸ÌªºxlFilterInCopy

½Ð°ÝAdvancedFilter¸ÌªºxlFilterInCopy

½Ð±Ð¥ý¶i¡G¶i¶¥¿z¿ï¸Ì­±ªº½Æ»s¡A¦³¿ìªk¸óBook©Î¬OSheet¶Ü¡H
ªì¾ÇVBA¥E¨ìtwbts

¦^´_ 1# play9091
¥i¥Hªº
  1. Sub Ex()
  2.     Sheet1.Range("a1:c10").AdvancedFilter xlFilterCopy, Sheet2.[a1:a2], Workbooks("Book1").Sheets(1).[a1:c1]
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ©Ò¥HÀ³¸Ó¶i¶¥¿z¿ï¬O¤U­±³o¼Ë¤l¶Ü¡H

¶i¶¥¿z¿ï¡G
³Q¿z¿ï½d³ò . ¶i¶¥¿z¿ï ¯Â¿z¿ï©Î½Æ»s , ·Ç«h , ¥Øªº¦a
ªì¾ÇVBA¥E¨ìtwbts

TOP

¦^´_ 3# play9091
½Ð¬Ý VBA  AdvancedFilter ¤èªk
expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
Action     ¥²¿ïªº XlFilterAction ¸ê®ÆÃþ«¬¡C   XlFilterAction ¥i¥H¬O³o¨Ç XlFilterAction ±`¼Æ¤§¤@¡C xlFilterCopy    '½Æ»s¨ì´Á¥L©³©ñ
                                                                                                                                                                             xlFilterInPlace  'Åã¥Ü¦b­ì¦a¤è
CriteriaRange     ¿ï¾Ü©Êªº Variant¡C·Ç«h½d³ò¡C¦pªG¬Ù²¤¦¹¤Þ¼Æ«hµL·Ç«h¡C
CopyToRange     ¿ï¾Ü©Êªº Variant¡C¦pªG Action ¬° xlFilterCopy¡A¦¹¤Þ¼Æ«ü©w³Q½Æ»s¦Cªº¥Ø¼Ð½d³ò¡C§_«h©¿²¤¦¹¤Þ¼Æ¡C
Unique     ¿ï¾Ü©Êªº Variant¡C­Y¬° True¡A«h¶È¿z¿ï°ß¤@ªº°O¿ý¡F­Y¬° False¡A«h¿z¿ï¥X©Ò¦³²Å¦X·Ç«hªº°O¿ý¡C¹w³]­È¬° False¡C

TOP

¦^´_ 4# GBKEE

¶â¡ã

«á¨Ó§Ú§ä¨ì¥ÎF1¬Ý¤F¡K¡K¤@ª½§Ñ°OÁÙ¦³F1¡A«¢¡I

µ¥¤@¤U¹ê°µ¬Ý¬Ý¡K¡K¦³°ÝÃDªº¸Ü¦A½Ð±Ð±z¡I¡I
ªì¾ÇVBA¥E¨ìtwbts

TOP

¦^´_ 4# GBKEE

½Ð°Ý¤@¤U¡A¤U­±³o»y¥y¦³¨S¦³¿ù¡K¡K¥¦¤S¸õ§ä¤£¨ì¦ì¸m¤F¡K¡K
  1. Workbooks(Clu).Sheets("Sheet1").Range("A10:EQ8000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= Workbooks(Clu).Sheets("Sheet1").Range("E3:E4"), copytorange:=Workbooks(KPI). Sheets("M2000 BSC KPI Report (2)").Range("A3:EQ3"), Unique:=False
½Æ»s¥N½X
ªì¾ÇVBA¥E¨ìtwbts

TOP

¦^´_  GBKEE

½Ð°Ý¤@¤U¡A¤U­±³o»y¥y¦³¨S¦³¿ù¡K¡K¥¦¤S¸õ§ä¤£¨ì¦ì¸m¤F¡K¡K
play9091 µoªí©ó 2011-8-1 21:29


¦b ...(KPI). Sheets("M2000... ¤¤
KPI). «á­±¦h¤F¤@­ÓªÅ®æ.

TOP

¦^´_ 6# play9091
Sheets("M2000 BSC KPI Report (2)"). Àˬd¤@¤U¤u§@ªí¦WºÙ

TOP

¦^´_ 8# GBKEE

¸g¹L¦h¦¸´ú¸Õ«á¡A¥i¥H¤F¡I¨S¦³°ÝÃD¡K¡K¦ý¡A§Ú¤S¦³¥t¥~¤@­Ó°ÝÃD¡A¦p¦ó¤£§â²Ä¤@¦C½Æ»s¹L¥h©O¡H¡H
ªì¾ÇVBA¥E¨ìtwbts

TOP

¦^´_ 9# play9091
¶i¶¥¿z¿ï  ±N¸ê®ÆÅã¥Ü©ó«ü©wªº¦ì¸m¤@©w·|Åã¥ÜÄæ¦ìªº,§A¥i¨Æ«á±NÄæ¦ì§R±¼

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD