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

[µo°Ý] ¦h±ø¥ó¿z¿ï&ListBox

¦^´_ 64# c_c_lai


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

TOP

¦^´_ 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

TOP

¦^´_ 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²Ä¤@ºØ

TOP

¦^´_ 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

TOP

¦^´_ 60# c_c_lai


    ¦³¶]¥X¨Ó¤F!!!
    ¥i¬O§Ú«á­±ªºµ{¦¡½X¬O¤£¬O´N·|¥X¿ù¤FQQ
   
   
    ¤£¯à¶K¤W¡A²Ä2­ÓLISTBOX ¤]¥d¦í¤FQQ
    ¤£¹L²Ä¤@­Óµ²ªG¹ï¤F!!!!

TOP

¦^´_ 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)

TOP

¦^´_ 58# c_c_lai

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

    TTS0000CC.rar (805.86 KB)

TOP

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

TOP

¦^´_ 56# c_c_lai


   
     ¨º£°¦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.                                 Set c = .[BA:BA].FindNext(c)
  56.                             Loop While Not c Is Nothing And c.Address <> frstAddr
  57.                         End If
  58.                     Next ct2
  59.                 End If
  60.             Next cts
  61.         End With
  62.         
  63.         If Not IsEmpty(Ar3) Then CustPkg (Ar3)
  64.     End If
  65.    
  66.     Set Arr = Nothing
  67.     Set Ar2 = Nothing
  68.     Set Ar3 = Nothing
  69. End Sub
½Æ»s¥N½X

TOP

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

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD