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

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

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

¤j®a¦n:
     ­ì©lµ{¦¡½X
     Sheets("¤u§@ªí1").Select
     x = Application.WorksheetFunction.CountA(Range("A:A")) 'Äæ¦ì¦³­È½d³ò­pºâ
     ActiveSheet.Range("$A$1:$CE$" & x).AutoFilter Field:=7, Criteria1:=">=1",Operator:=xlOr, Criteria2:="=¥þ"
     §Ú§Q¥Î¿ý»s¥\¯à¿z¿ï¥XX¦C¤j©óµ¥©ó1ªº­È©ÎY¦Cµ¥©ó¥þªº­È¡C
     ²{¦b·Q§Q¥Î¤T­Ó©Î±ø¥ó¦¡¨Ó§¹¦¨©Ò¥H§Ú§âµ{¦¡­×§ï¦p¤U
     ActiveSheet.Range("$A$1:$CE$" & x).AutoFilter Field:=7, Criteria1:=">=1",Operator:=xlOr, Criteria2:="=¥þ",Operator:=xlOr, Criteria3:="=µL"
    µo²{µ{¦¡¿ù»~¡A§Ú¦b·Q¥i¯à¤£¤ä´©2­Ó¥H¤Wªº±ø¥ó
    ­Y¬O§Q¥Î¦h­Ó±ø¥ó§P§O¡A§ÚÁÙª¾¹D«ç»ò¼g
    ¥i¬O­Y§Q¥Î¦h±ø¥ó¡A¦A§Q¥Î¿z¿ï¥\¯à¡A§Ú´N¤£ª¾¹D«ç»ò¼g¡C
    ©Ò¥H·Q½Ð°Ý¤@¤U¡AÁÂÁ¡C

¦^´_ 2# stillfish00

    ±z¦n:
    ´N¬O²ÄGÄæ­n¤j©óµ¥©ó1©Îµ¥©ó¥þ©Îµ¥©óµL
    ¿z¿ï¦n¹³¥u¯à¦b¬Y¤@Äæ¦ì³]©w¨â­Ó±ø¥óµLªk¦A³]©w¦h­Ó±ø¥ó
    ¨Ã«D¬O«Ü¦hÄæ¦ìªº¿z¿ï¡C

TOP

¦^´_ 4# joey0415


    OK¡AÁÂÁ±z¡C

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD