starbox520

¦^´_ 64# c_c_lai


    §ïªº³¡¤À¥i¥HÀ°§Úµù¸Ñ·N«ä¶Ü¡A¸U¤À·PÁÂXD

c_c_lai

¦^´_ 63# starbox520
©p§â
Private Sub CustPkg(Ar3 As Variant)
¸Ìªº
            For ii = 1 To 8
                Ar(ii, UBound(Ar, 2)) = c.Offset(, ii).Text
            Next
§ï¦¨
            For ii = 1 To 8
                Ar(ii, UBound(Ar, 2)) = c.Offset(, ii - 1).Text
            Next
°õ¦æ ²Ä¤G­Ó LISTBOX «K¥¿±`¤F¡C

starbox520

¦^´_ 62# c_c_lai


    §A»¡ªºÁ¿ªk¸ò§Úªº·Qªk¬O¤@¼Ëªº

­«­nªº¬O ²Ä¤@¡B¤GºØªº³B²z¡C³o¨âªÌ¬O§_«ü®t§O¦b
"AZ" ¡B"BA" ªº¸ê®Æ§ì¨ú¤£¦P¡A¨ä¹ê¹Lµ{³£¤@¼Ë©O¡H
¦pªG ¸ê®Æ¤@¼Ë¬O§_¥u¨ú²Ä¤@²Õ¡H
¯à§_¦A²Ó»¡¨â³o¶¡ªº¹ê»Ú®t²§¡H
   
     ¹Lµ{³£¤@¼Ë¡A®t¦b"AZ" ¡B"BA" ªº¸ê®Æ§ì¨ú¤£¦P
    ¨S¿ù¥u¨ú¤@²Õ¡A¦]¬°¿z¥X¨Ó¥i¯à²Ä¤@ºØ¿zªk¸ò²Ä2ºØ¿zªkµ²ªG·|¤@¼Ë
    ³o®É"Ãþ§O"ºâ¬O²Ä¤@ºØ

c_c_lai

¦^´_ 61# starbox520
²Ä2­ÓLISTBOX©|µL®É¶¡½Õ¾ã¡A¥i¯à¦p©p»¡ªº¥i¯à·|¥d¦í¡A
§O«æ¡I
­«­nªº¬O¥ý¦LÃÒ ²Ä¤@¡B¤GºØªº³B²z¡C³o¨âªÌ¬O§_«ü®t§O¦b
"AZ" ¡B"BA" ªº¸ê®Æ§ì¨ú¤£¦P¡A¨ä¹ê¹Lµ{³£¤@¼Ë©O¡H
¦pªG ¸ê®Æ¤@¼Ë¬O§_¥u¨ú²Ä¤@²Õ¡H
¯à§_¦A²Ó»¡¨â³o¶¡ªº¹ê»Ú®t²§¡H

starbox520

¦^´_ 60# c_c_lai


    ¦³¶]¥X¨Ó¤F!!!
    ¥i¬O§Ú«á­±ªºµ{¦¡½X¬O¤£¬O´N·|¥X¿ù¤FQQ
   

¤U¸ü (24.07 KB)

2016-12-2 15:28

   
    ¤£¯à¶K¤W¡A²Ä2­ÓLISTBOX ¤]¥d¦í¤FQQ
    ¤£¹L²Ä¤@­Óµ²ªG¹ï¤F!!!!

c_c_lai

¦^´_ 59# starbox520
©p±N AuditCustPkg(Adt_Rng As Range) ­«½Æ¶K¸m¡A
AuditCustPkg(Adt_Rng As Range) ¤º¤S¦³¤@­Ó
AuditCustPkg(Adt_Rng As Range)¡C
TTS0000CC.rar (816.07 KB)

¤U¸ü¦¸¼Æ: 5

2016-12-2 15:21

starbox520

¦^´_ 58# c_c_lai

     ¹ï°Ú§Ú©ñ¦b¸Ì­±­C><

    TTS0000CC.rar (805.86 KB)

¤U¸ü¦¸¼Æ: 2

2016-12-2 14:36

c_c_lai

¦^´_ 57# starbox520
¤T¤äµ{¦¡¬ÒÀ³©ñ¤J¨ì ¤u§@ªí³æ "TR±Æ¾÷&²£¥X" ¤º¡A
¦p¤£¦æ©p±N©pªºµ{¦¡¤W¶Ç¡A§Ú¨ÓÀ°©p¾ã²z¡C

starbox520

¦^´_ 56# c_c_lai


   

¤U¸ü (37.15 KB)

2016-12-2 13:47

     ¨º£°¦w®º...

1. Sub AuditCustPkg(Adt_Rng As Range)
   
2.     Dim c As Range, frstAddr As String, tf As Boolean
   
3.     Dim cts As Integer, ct2 As Integer
   
4.     Dim Arr As Variant, Ar2 As Variant, Ar3 As Variant
   
5.    
   
6.     With Sheets("Cus²½X")
   
7.         Set c = .[B:B].Find(Adt_Rng.Offset(, -1).Value, , , 1)  ' "TR±Æ¾÷&²£¥X" Customer ¤ñ¹ï "Cus²½X" CUST_GROUP
   
8.         
   
9.         If Not c Is Nothing Then
   
10.             frstAddr = c.Address
    
11.             Do
    
12.                 If IsEmpty(Arr) Then ReDim Arr(1 To 1) Else ReDim Preserve Arr(1 To UBound(Arr) + 1)
    
13.                 Arr(UBound(Arr)) = Array(c.Offset(, -1).Text, c.Text)
    
14.                
    
15.                 Set c = .[B:B].FindNext(c)
    
16.             Loop While Not c Is Nothing And c.Address <> frstAddr
    
17.         End If
    
18.     End With
    
19.    
    
20.     If Not IsEmpty(Arr) Then
    
21.         With Sheets("§÷®Æ")
    
22.             For cts = LBound(Arr) To UBound(Arr)
    
23.                 Set c = .[M:M].Find(Arr(cts)(0), , , 1)      '  "Cus²½X" CODE ¤ñ¹ï "§÷®Æ" CUST_CODE
    
24.                
    
25.                 If Not c Is Nothing Then      '  Arr(cts)(0) = "ASM" : Variant/String
    
26.                     frstAddr = c.Address
    
27.                     Do
    
28.                         '  ¥H "TR±Æ¾÷&²£¥X" ªº  "F"¡B"G"¡B"H" ¬°±ø¥ó¡A¥h "§÷®Æ" §ä¨ì¹ïÀ³ªº¼Æ¾Ú¡C
    
29.                         '  ²Ä 1 ºØ (¬Û¦P Cust (c.Value) & PKG (c.Offset(, 3))  & B/S (c.Offset(, 4)) & L/C (c.Offset(, 5)))
    
30.                         If c.Offset(, 3) = Adt_Rng.Value And c.Offset(, 4) = Adt_Rng.Offset(, 1).Value And c.Offset(, 5) = CStr(Adt_Rng.Offset(, 2).Value) Then
    
31.                             If IsEmpty(Ar2) Then ReDim Ar2(1 To 1) Else ReDim Preserve Ar2(1 To UBound(Ar2) + 1)
    
32.                             Ar2(UBound(Ar2)) = Array(c.Text, Arr(cts)(1), c.Offset(, 3).Text, c.Offset(, 4).Text, c.Offset(, 5).Text, c.Offset(, 39).Text, c.Offset(, 40).Text)
    
33.                         End If
    
34.                         
    
35.                         Set c = .[M:M].FindNext(c)
    
36.                     Loop While Not c Is Nothing And c.Address <> frstAddr
    
37.                 End If
    
38.                
    
39.                 If Not IsEmpty(Ar2) Then
    
40.                     For ct2 = LBound(Ar2) To UBound(Ar2)
    
41.                         '  ¥H ¤u§@ªí "TR±Æ¾÷&²£¥X" ªº  "F"¡B"G"¡B"H" ¬°±ø¥ó¡A ¥h ¤u§@ªí "§÷®Æ" §ä¨ì¹ïÀ³ªº¼Æ¾Ú¡F
    
42.                         '  µM«á§ä¨ì³oµ§¼Æ¾Úªº "CARRIER1 P/N"¡AµM«á¥u­n¤@¼Ë "CARRIER1 P/N" ªº³£¦C¥X¨Ó¡C
    
43.                         Set c = .[BA:BA].Find(Ar2(ct2)(6), , , 1)   '  CARRIER1 P/N ("BA")  Ar2(ct2)(6) = "4100998111" :
    
44.                         
    
45.                         If Not c Is Nothing Then   ' PKG (c.Offset(, -37)) ¡B BODU_SIZE (c.Offset(, -36))
    
46.                             frstAddr = c.Address   ' CUST_CODE (c.Offset(, -40).Text)¡B, LEAD_COUNT (c.Offset(, -35).Text)
    
47.                             Do
    
48.                                 '  ¦P¨B¦a±Æ°£­ì¥ý¦b ¤u§@ªí "TR±Æ¾÷&²£¥X" ÂI¿ïªº Package¡C(Customer¡BPackage¡BBodysize)
    
49.                                 '  ­×¥¿¥H "Cus²½X" Arr ¤§²Ä¤@²Õ (Arr(1)(0)) §@¬°§PÂ_¨Ì¾Ú¡C
    
50.                                 tf = (c.Offset(, -40).Text = Arr(1)(0) And c.Offset(, -37) = Adt_Rng.Value And c.Offset(, -36) = Adt_Rng.Offset(, 1).Value)
    
51.                                 If Ar2(ct2)(1) <> "" And tf = False Then
    
52.                                     If IsEmpty(Ar3) Then ReDim Ar3(1 To 1) Else ReDim Preserve Ar3(1 To UBound(Ar3) + 1)
    
53.                                     Ar3(UBound(Ar3)) = Array(Ar2(ct2)(1), c.Offset(, -37).Text, c.Offset(, -36).Text, c.Offset(, -35).Text, c.Text)
    
54.                                 End If
    
55. 
    
56.                                 Set c = .[BA:BA].FindNext(c)
    
57.                             Loop While Not c Is Nothing And c.Address <> frstAddr
    
58.                         End If
    
59.                     Next ct2
    
60.                 End If
    
61.             Next cts
    
62.         End With
    
63.         
    
64.         If Not IsEmpty(Ar3) Then CustPkg (Ar3)
    
65.     End If
    
66.    
    
67.     Set Arr = Nothing
    
68.     Set Ar2 = Nothing
    
69.     Set Ar3 = Nothing
    
70. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 55# starbox520
©p±N§Ú¥Ø«e­×¥¿ªºµ{¦¡½X®M¤J§Aªºµ{¦¡¤¤¡A
¶]¤@¦¸¬Ý¬Ýµ²ªG¬O§_¦p§A©ÒÄ@¡H