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

¸ê®Æ¾ã¦Xµ{¦¡­×§ï

¸ê®Æ¾ã¦Xµ{¦¡­×§ï

¦pªþ¥ó¡G Á`ªí.XLS ¥i¥H§â¨ä¸ê®Æ§¨¤¤ªºÀɮ׶׾ã¤@°_
½Ð°Ý¤@¤U¡A¦p¦ó­×§ï§â²Ä¤G­Ó¸ê®ÆÀɮשµÄò²Ä¤@­Ó¸ê¸ê®Æ®×³Ì«á¤@µ§®É¶¡
¦p¤U¹Ï¡A20160611-12ªº³Ì«á¤@µ§¬°11:42:00¡F20160611-13²Ä¤@µ§¬°10:56:27
¦p¦ó­×§ï¥h§PÂ_®É¶¡¤j©ó   20160611-12ªº³Ì«á¤@µ§   ¦b¶K¤W¡AÁÂÁ   :)
20160611-12.jpg
20160611-13.jpg

¦^´_ 1# s12t34


    ¨S¦³ªþ¨ìªþ¥ó®@

TOP

¦^´_ 2# starry1314
¤£¦n·N«ä starry1314 ¤j¤j¡A§Ú¨Sª`·N¨ì
rÀɶפJ.rar (205.24 KB)
ªþ¥ó¸É¤W¤F¡AÁÂÁ­ò~
:)

TOP

¦^´_ 3# s12t34
¸Õ¸Õ¬Ý¡C
  1. Sub test()
  2.     Dim arr, brr(), mytime As Date
  3.     ST = Timer
  4.     mypath = ThisWorkbook.Path & "\"
  5.     myname = "*.*"
  6.     myfile = Dir(mypath & myname)
  7.     Rows("2:65536").Delete
  8.     Application.ScreenUpdating = False
  9.     Do Until myfile = ""
  10.         If myfile <> "Á`ªí.xls" Then
  11.             Workbooks.OpenText Filename:=mypath + myfile, Comma:=True, DataType:=xlDelimited
  12.             With ActiveWorkbook.ActiveSheet
  13.                 er = .[A65536].End(3).Row
  14.                 arr = .Range("A2:I" & er)
  15.                 For i = 1 To UBound(arr)
  16.                     If arr(i, 1) + arr(i, 2) > mytime Then
  17.                         n = n + 1
  18.                         ReDim Preserve brr(1 To 9, 1 To n)
  19.                         For j = 1 To 9
  20.                             brr(j, n) = arr(i, j)
  21.                         Next j
  22.                     End If
  23.                 Next i
  24.                 mytime = arr(er - 1, 1) + arr(er - 1, 2)
  25.                 .Parent.Close 0
  26.             End With
  27.         End If
  28.         myfile = Dir
  29.     Loop
  30.     [A2].Resize(n, 9) = Application.Transpose(brr)
  31.     Application.ScreenUpdating = True
  32.     arr = ""
  33.     Erase brr
  34.     MsgBox Format(Timer - ST, "0.00¬í")
  35. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# Kubi

ÁÂÁÂKubi¤j¤jªº¸Ñµª~
:)

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD