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

[µo°Ý] excel³øªí¶]¥¨¶°§e²{Delay§å»Pµê±b

[µo°Ý] excel³øªí¶]¥¨¶°§e²{Delay§å»Pµê±b

¤p§Ì¤S¨Ó³Â·Ð¦U¦ì°ª¤â¤F....
¤§«e´£¨Ñªº³£¬O«e½ú¤w¸g°õ¦æ§¹ªºEXCEL¥¨¶°¡A¦A¥h°õ¦æ§Ú©Ò»Ý­nªº¤º®e
³o¦¸¬O¤½¥q¦Û¦æ²£¥Íªº³øªí¡A­n¥h°õ¦æ§Ú­nªº¤º®e



Excel comply¸ê®Æªí§@¬°«ö¶s°õ¦æ¥¨¶°¥Î¡A°õ¦æµ²ªG§e²{¦bResult¸ê®Æªí¤W
¦]¬°¤½¥qªº³øªí¤WªºList ±Nªñ3¤d¦hµ§...... ´£¨ÑªºEXCEL ½d¨Ò §R°£¤F¤j³¡¤À «O¯dªºÁ|§Q¥Î

»Ý¨D¤º®e ¨Ì·Ó³øªí¤W°õ¦æ¥¨¶°¡A§ä´Mdelay§å »P µê±b

§e²{µê±bªí¥Ü¤è¦¡
JÄæ¦ì¬O§ë®Æ¶q¡AMÄæ¦ì¨ìBMÄæ¦ì«h¬O«e¬q»sµ{Äæ¦ì¡A©Ò¥H·íMÄæ¦ì¨ìBMÄæ¦ìªº¼Æ¶q¤j©óJÄæ¦ìªº¼Æ¶qªí¥Ü¦³µê±b

MÄæ¦ì+¨ìBMÄæ¦ì¤j©óJÄæ¦ì®É«h¬Oµê±b
«h§e²{¦bVirtual Result¸ê®Æªí¤W ¤Ïºñ°µ¬°°Ï¹j
«hªí¹F¤è¦¡¦p¹Ï


Delay§å©w¸q«h¬O¡ADATE TIME §ë½u«á3¤Ñ­n¥X«e¬q
©Ò¥H¤½¥qªº¨î¦¡³øªí¡AÄæ¦ì(X,Y,Z,AA,AB,AC,AG,AH,AN,AO,AT,AU,AV,AW)¤WÁÙ¦³¼Æ¦r¡A¥NªíDelay§å¡A
«h§e²{Äæ¦ì¨Ì¼Ë¦bDelay Result¸ê®Æªí¤W
§Úªººc·Q¬O¦bDelay Result¸ê®Æªí¤WAEÄæ¦ì¬O°õ¦æ®É¶¡¡A¨Ì·Ó°õ¦æ®É¶¡¥hµ§¹ï¤½¥q¨î¦¡³øªí¤WªºDATA TIME ¥u­n¶W¹L3¤Ñ
´N¨q¥X¸ê®Æªí¤Wªº¸ê°T¡A¦ý¦pªG¦³§Oªº¤è¦¡¥i¥H§PÂ_°õ¦æªº®É¶¡»P³øªí¤Wªº®É¶¡¬O¶W¹L3¤Ñ¥H¤W´NÅã¥Ü
¦p¹Ï





¥H¤W¨âºØ¥\¯à¡A¤£ª¾¹DPKG Type ¯à¤£¯à§PÂ_ªº¥X¨Ó  ¯à±a¦bAÄæ¦ì...

½d¨Ò¸ê®Æªí.rar (49.66 KB)

¦^´_ 1# v03586


    TO ª©¥D...¤£¦n·N«ä ³o½gµo¿ù°Ï¤F
À³¸Ó©ñ¦bEXCEL µ{¦¡°Ï¤~¹ï...¤£ª¾¥i§_¨ó§U´«°Ï¡A©ÎªÌ§R°£¦¹½gÅý§Ú­«·sµo¤å
µo¿ù°Ï³y¦¨ª©¥D¤£«K²`·P©êºp...

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-10-2 22:28 ½s¿è

¤£¦n¼g¡A¬Ý±o²´ªá¡ã¡ã
¢°¡DÄæ¦ì¤Ö¤F¡eQVS¡fÄæ¡A½Ð¸É¤W¡F¡e½d¨Ò³øªí¡f¢Û¡G¢åÀ³¦@¢°¢°­ÓÄæ¦ì
¢±¡D¡e¤é´Á¡fÄæ©Î¨ä¥LÄæ¦ìÄÝ¡e¤å¦r®æ¦¡¡fªÌ¡A½Ð¨Æ¥ý³]©w¡A§_«h¸ê®Æ®æ¦¡·|§ïÅÜ¡A
¡@¡@¥t¡A¡e¤é´Á¡f¨S¦³¦~¥÷¡A¹J¸ó¦~¤ñ¹ï·|¦³°ÝÃD¡A¥Ø«e¥ý¹w§P¡eINPUT¡f¤é´Á¤£·|¤j¤_¡e¤µ¤é¡f¡Ä§Y¥¼¨Ó¤é¡I
¢²¡DSelect Case ¥Îªº¬O¡eÄæ¦ì¡f°Ï§O¡A¦Û¦æ¥h»{¦U¤£¦P¸ê®Æ¸s²ÕªºÄ渹°Ï°ì
¢³¡Dµ{¦¡½X¬Ý°_¨Ó¦³ÂI½ÆÂø¡A¦ýªÖ©w³£¬O°ò¥»»yªk¡A½Ð¦Û¦æ°Ñ°uµø¹ê»Ú­×§ï¡A®¤¤£¦Aµù¸Ñ¤Î»¡©ú
¡@
  1. Sub °õ¦æ()
  2. Dim Arr, Brr(0, 1 To 32), j&, Jm%, k&, Km%, TT$, QD, QA, QB
  3. Call ²M°£
  4. Dim X As New Application
  5. With X.Workbooks.Open(ThisWorkbook.Path & "\½d¨Ò³øªí.xls", ReadOnly:=True)
  6.      Arr = .Sheets(1).UsedRange.Columns("A:BM").Cells
  7.      .Close 0
  8. End With
  9. For j = 9 To UBound(Arr)
  10. ¡@¡@If Arr(j, 1) = "PKG Type :" Then TT = Arr(j, 4)
  11. ¡@¡@If Arr(j, 1) Like "#######" = False Then GoTo 101
  12. ¡@¡@
  13. ¡@¡@QD = Date
  14. ¡@¡@If IsDate(Arr(j, 9)) Then QD = DateValue(Arr(j, 9))
  15. ¡@¡@If QD > Date Then QD = DateValue(Year(Date) - 1 & "/" & Arr(j, 9))
  16. ¡@¡@If Date - QD > 3 Then QD = 1 Else QD = 0
  17. ¡@
  18. ¡@¡@QA = 0:¡@QB = 0:¡@Km = 1:¡@Brr(0, 1) = TT:¡@Brr(0, 32) = Date
  19. ¡@¡@For k = 1 To UBound(Arr, 2)
  20. ¡@¡@¡@¡@Select Case k
  21. ¡@¡@¡@¡@¡@¡@Case 1, 3, 4, 9, 10
  22. ¡@¡@¡@¡@¡@¡@¡@¡@Jm = 1
  23. ¡@¡@¡@¡@¡@¡@Case 13 To 23
  24. ¡@¡@¡@¡@¡@¡@¡@¡@Jm = 1:¡@QA = QA + Val(Arr(j, k))
  25. ¡@¡@¡@¡@¡@¡@Case 30 To 32, 35 To 39, 42 To 45, 50 To 65
  26. ¡@¡@¡@¡@¡@¡@¡@¡@QA = QA + Val(Arr(j, k))
  27. ¡@¡@¡@¡@¡@¡@Case 24 To 29, 33, 34, 40, 41, 46 To 49
  28. ¡@¡@¡@¡@¡@¡@¡@¡@Jm = 1:¡@QA = QA + Val(Arr(j, k)):¡@QB = QB + Val(Arr(j, k))
  29. ¡@¡@¡@¡@End Select
  30. ¡@¡@¡@¡@If Jm > 0 Then Km = Km + 1:¡@Brr(0, Km) = Arr(j, k):¡@Jm = 0
  31. ¡@¡@Next k
  32. ¡@¡@If QA > Arr(j, 10) Then ['Virtual Result'!A65536].End(xlUp)(2).Resize(1, 31) = Brr
  33. ¡@¡@If QB > 0 And QD = 1 Then ['Delay Result'!A65536].End(xlUp)(2).Resize(1, 32) = Brr
  34. 101: Next j
  35. Beep
  36. End Sub

  37. '¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
  38. Sub ²M°£()
  39. Sheets("Virtual Result").UsedRange.Offset(1, 0).ClearContents
  40. Sheets("Delay Result").UsedRange.Offset(1, 0).ClearContents
  41. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# ­ã´£³¡ªL


    ·PÁª©¤jªº¤ä´©¥H¤ÎÀ°§Ú§â°ò¥»¬[ºc«Ø³]¦n¡AÅý¤p§Ì¯à¦Û¤v¥h©µ¥Í¡I§Ú¤@¶}©l³£»{¬°§Úªº§Þ³N²~ÀV¦bPKG type ¦]¬°¨S¦³©T©w¦ì¸m¡I
§Ú¤]ı±o§Ú§â»¡©ú¥´±o¤Ó½ÆÂø¤F...ª©¤jÁ٬ݱoÀ´¯u¬O¼F®`!!

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD