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

[µo°Ý] §ïµ½¤jµ§¸ê®Æ³B²z

¦^´_ 20# GBKEE

¯uªº¬O³o­Ó¿ù»~­C!!!!



§Ú¥H¬°¦³¤FOn Error Resume Next´N¥i¥H±Æ°£¤F@@

¤£¹L¸ê®Æ¼W¥[©M§R°£ªº³¡¤À¦³¿ìªk­×¥¿¶Ü????

¦]¬°¥i¯à±q"²£«~"ªº¸ê°T¤¤¶¡·s¼W©Î§R°£¡A¦Ó¤£¬O¦b¤U¤è

¥i¬O²{¦b´ú¸Õªºµ²ªG¡A¦pªG¦b¤¤¶¡·s¼W·|¦³¿ù»~¡A·s¼W¤£¨ìªº°ÝÃD


·PÁ¤j¤jªºµo²{  !!!!!!!
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 21# li_hsien
¸Õ¸Õ¬Ý
9#©Ò»¡: ³Ì«áµ²ªG¬O"²£«~"¸ò"ª«®Æ"ªº¶µ¥Ø¼Æ·|¬O¤@¼Ëªº¨S¦³¿ù
  1. Option Explicit
  2. Sub Ex()
  3.     Dim d As New Collection, AR(), i As Integer, Rng As Range ', e As Variant
  4.     On Error Resume Next              'Collection·s¼WªºKEY¦p³Q¨Ï¥Î©Î¦³¿ù»~
  5.     With Worksheets("²£«~ºÞ±±²M³æ")
  6.         For i = 2 To .Range("J1").End(xlDown).Row
  7.             AR = Application.Transpose(Application.Transpose(.Range("A" & i).Resize(, 10)))
  8.             '******  ²£«~(A:J)Äæ¦ì¸ê®Æ¾É¤J°}¦C  ****
  9.             '1:²£«~Äæ¦ì¶g§O ,2'²£«~Äæ:§ó·s¶g§O,3:MP date,4:²£«~Ãþ§O,5:PRODUCT ID,
  10.             '6:CHILDPARTNUMBER,7:CHILD_DESCRIPTION,8:Maker,9:MAKER & CODE.10:ID & PartNumber
  11.             d.Add AR, .Range("J" & i)     '
  12.             '*****§ä¥X[²£«~ºÞ±±²M³æ]­«½Æªº[ID & PartNumber]  ****
  13.             If Err <> 0 Then
  14.                 If Rng Is Nothing Then
  15.                     Set Rng = .Range("J" & i)
  16.                 Else
  17.                     Set Rng = Union(.Range("J" & i), Rng)
  18.                 End If
  19.             End If
  20.             Err.Clear
  21.             '*****************************************************
  22.         Next
  23.     End With
  24.     On Error GoTo 0              '¤£¦A³B¸Ìµ{¦¡ªº¿ù»~
  25.     If Not Rng Is Nothing Then Rng.EntireRow.Delete
  26.     With Worksheets("ª«®ÆºÞ±±²M³æ")
  27.         .UsedRange.Offset(1).Clear
  28.         For i = 1 To d.Count
  29.             With .Range("A" & i + 1)
  30.              '²£«~Äæ¦ì
  31.              '1:²£«~Äæ¦ì¶g§O ,2'²£«~Äæ:§ó·s¶g§O,3:MP date,4:²£«~Ãþ§O,5:PRODUCT ID,
  32.              '6:CHILDPARTNUMBER,7:CHILD_DESCRIPTION,8:Maker,9:MAKER & CODE.10:ID & PartNumber
  33.                 .Range("A1") = d(i)(5)   '¾É¤Jª««~Äæ¦ìA1-M1
  34.                 .Range("B1") = d(i)(6)
  35.                 .Range("C1") = d(i)(7)
  36.                 .Range("D1") = d(i)(8)
  37.                 .Range("E1") = d(i)(9)
  38.                 .Range("F1") = d(i)(10)
  39.                 .Range("G1") = Format(d(i)(3), "YYYY/M/D")
  40.                 .Range("H1") = d(i)(2)
  41.                 .Range("I1") = d(i)(1)
  42.                 .Range("M1") = DateDiff("d", Date, .Range("G1"))  '¤u§@¤é(M)
  43.             End With
  44.         Next
  45.     End With
  46.     MsgBox d.Count & "¶µ OK"
  47. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 22# GBKEE

·s¼W­×§ï¥¿±`¤F

·PÁª©¤j¤£¹½¨ä·Ðªº¼ö¤ßÀ°§U  :  )
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD