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

[µo°Ý] ¿z¿ï¼Æ¾Ú°ÝÃD

[µo°Ý] ¿z¿ï¼Æ¾Ú°ÝÃD

½Ð°Ý¦U¦ì¤j¤j:
     ¦pÀɮפ¤©Ò­z
     §Ú­n¦p¦ó¼g§Q¥Î¿z¿ï°t¦X¤µ¤é¤é´Á¨ú¤j©ó¤µ¤é¤é´Á3¦Ü12¤é°Ï¶¡¼Æ¾Ú¡A¥B¨Ì§Ç±Æ¦C
     ÁÂÁÂ

test.rar (25.33 KB)

¦^´_ 3# GBKEE


    ¤@ª½¥H¨Ó³£¨ü¨ìG¤jªº·ÓÅU¡A§Ú¤w¸g§Ë¦n§Ú·Q­nªº·QªkÅo¡AÁÂÅo¡C

TOP

¦^´_ 2# register313

ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-27 09:06 ½s¿è

¦^´_ 1# spermbank
±Æ§Ç ¥i¿ý»s¥¨¶°½m²ß
  1. Option Explicit
  2. Sub Ex()
  3.     Range("A1").AutoFilter Field:=2, Criteria1:=">=" & Date + 3, Operator:=xlAnd, Criteria2:="<=" & Date + 20
  4.     'AutoFilter ¦Û°Ê¿z¿ï  '²Ä¤G­ÓÄæ¦ì, ·Ç«h1     = ±ø¥ó          , 'xlAnd¥B xlOr ©Î , ·Ç«h2   = ±ø¥ó
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# spermbank
  1. Sub advancedFilterEx()
  2.   [iu1:iv1] = "¼Æ¾Ú"
  3.   [iu2] = ">=" & Date + 3
  4.   [iv2] = "<=" & Date + 12
  5.   [d1].CurrentRegion = ""
  6.   [a1].CurrentRegion.AdvancedFilter xlFilterCopy, [iu1:iv2], [d1]
  7.   [d1].Sort Key1:=[e2], Order1:=xlAscending, Header:=xlGuess
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD