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

½Ð°Ý~~¦pªG¿ï¥X19:30¤À¥H«áªº®É¶¡

¦^´_ 1# JEAN

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-6-18 12:01 ½s¿è

¦^´_ 3# JEAN

D,E¨âÄæ¬Ò¬°¤å¦r®æ¦¡,­n¥ý§ï¬°®É¶¡®æ¦¡
¦h¬Ý¤@¤U½×¾Â,¦Û¦æ¤F¸Ñ¤@¤U¦p¦ó¥[¤JVBAµ{¦¡¤Î«ö¶s
  1. Sub XX()
  2.     Sheets("¥X¶Ô©ú²Óªí").Select
  3.     [J1].CurrentRegion = Clear
  4.     [A1].AutoFilter Field:=5, Criteria1:=">=19:30"
  5.     [A1].CurrentRegion.Copy [J1]
  6.     [A1].AutoFilter
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD