ªð¦^¦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 : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD