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

¦p¦ó¿z¿ï¤£¥]§t¸ê®Æ

¦p¦ó¿z¿ï¤£¥]§t¸ê®Æ

·í¸ê®Æ¤¤¦³A-Z
·í¿z¿ï¥]§tA,B,C ®É, ¥i¥H.AutoFilter field:=1, Criteria1:=Array("A", "B", "C"), Operator:=xlFilterValues
¦ý­YªG·Q¿z¿ï¤£¥]¬AA,B,C À³¸Ó¦p¦ó¼g?

½Ð«ü±Ð

¦^´_ 1# enoch
2003 ¥u¥i³]¥ß2­Ó±ø¥ó
  1. Range("a1").AutoFilter field:=1, Criteria1:="<>A", Criteria2:="<>B"
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

­YªG¬OOFFICE 07 ¥i¥H¶Ü

TOP

¦^´_ 3# enoch
¥Î¶i¶¥¿z¿ï
  1. Sub ex()
  2. '·Ç«h°Ï°ìB1:D2
  3. [B1].Resize(, 3) = [A1]
  4. [B2].Resize(, 3) = Array("<>A", "<>B", "<>C")
  5. Range("A1").CurrentRegion.AdvancedFilter xlFilterInPlace, [B1].Resize(2, 3)
  6. [B1].Resize(2, 3) = ""
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD