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

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

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

§Ú¦³¤@¦b¥X¶Ô©ú²Óªí,·Q­n¿ï¨ú¥X(¤U¯Z®É¶¡) 19:30¤À¥H«áªº¤H¥X¨Ó¡C  ­n¦p¦ó°µ³]©w~~

¦^´_ 1# JEAN

TOP

§Ú¬Ý¤£À´,¤£ª¾¹D³o»ò¥Î
½Ð°Ý¬O§_À°§Ú¼g¤@­Óµ{¦¡¤è«K¿ï¨ú¡C

[attach]11433[/attach]

´ú¸ÕÀÉ.rar (5.68 KB)

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

D,E¨âÄæ¬Ò¬°¤å¦r®æ¦¡,§ï¬°®É¶¡®æ¦¡¤F,¬°¤°»òÁÙ¬O¤£¦æ©O
§Ú¤]«Ü·Q¾ÇVBA,¥i¬O§Ú¬Ý¤£À´Cµ{¦¡,¤]¬Ý¤£À´¸Ì­±ªº±M¦³¦WºÙ

TOP

¦^´_ 5# JEAN
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ª½±µAÄæ¥Î¤º«Øªº¿z¿ï¥\¯à¿ï>19:30¡A´N¥i¥H¤F§a

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD