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

[µo°Ý] ¸ê®Æ¿z¿ï

¦^´_ 1# jcchiang

¸Õ¸Õ¬Ý


Dim myDate

Do Until IsDate(myDate)

    myDate = Trim(InputBox("½Ð¿é¤J¤é´Á", "¤é´Á"))

Loop


Source = Application.GetOpenFilename

With Workbooks.Open(Source)
  .Sheets(1).Select
  Rows("1:1").Select
  Selection.AutoFilter
  Selection.AutoFilter Field:=1, Criteria1:=">=" &  myDate, Operator:=xlAnd
  .Sheets(1).Range("A:M").Copy ThisWorkbook.Sheets(2).Range("A1")
  
  .Close

End With

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD