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

¿ï¨úÀx¦s®æ¡AInsert Shift:=xlDown (¿ù»~)

¿ï¨úÀx¦s®æ¡AInsert Shift:=xlDown (¿ù»~)

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2019-6-15 14:06 ½s¿è

Dear ¤j¤j
         
         ¤S¬O¹J¨ì¤@­Ó¼¶¼g¹Lµ{¤¤¡AOK!!
         ¦ý¦b¦¬§À´ú¸Õ®É¡A¤S¹J¨ì¤@­Ó¿ù»~¡C ­«½ÆÀˬd¤F´X¦¸¡AÁÙ¬O§ì¤£¥XBug!!
         ¤W¨Ó¨D§U!!
          To Hugh view_shipping_orders (3)0615_¤u¨ã_½d¨Ò.rar (412.27 KB)

         ¥Î³oºØ¤è¦¡¼g¡A¬O¥i¥H¹F¨ìµ²ªG¡A¦ýÀ³¸Ó¥Îarray(°}¦C)ªº¤è¦¡¼g¡AÀ³¸Ó¤ñ¸û¤è«K¡C
         ­Ó¤HVBA¼gªk¡G
                 1¡B±NPO½Æ»s¨ì¥t¤@Äæ¦ì¤W¡C
                 2¡B¥Î¸ê®Æ­åªR¡A±NÀx¦s®æ¤¤¦hPO©î¥X¨Ó¡C
                 3¡B¥ÎÂù°j°é¤è¦¡+Àx¦s®æ½Æ»s´¡¤J¶K¤Wªº¤è¦¡¡A§¹¦¨¸ê®Æ³B²z¡C
  1. Private Sub CommandButton1_Click()

  2. Application.ScreenUpdating = True    '°õ¦æ¥¨¶°®É¡A¿Ã¹õ¤£§ó·s

  3. Dim AA1 As Integer
  4. Dim AA2 As Integer
  5. Dim AA3 As Integer
  6. Dim I As Integer
  7. Dim J As Integer

  8. ¤u§@ªí1.Range("T1:DZ65536").ClearContents   '²M°£¸ê®Æ

  9. ''½Æ»s
  10.     ¤u§@ªí1.Range("C10").Select
  11.     ¤u§@ªí1.Range(Selection, Selection.End(xlDown)).Select
  12.     Selection.Copy
  13.     ¤u§@ªí1.Range("T10").Select
  14.     ActiveSheet.Paste
  15.     ¤u§@ªí1.Range("V10").Select
  16.     ActiveSheet.Paste
  17. ' '¸ê®Æ­åªR
  18.     '¤u§@ªí1.Range(Selection, Selection.End(xlDown)).Select
  19.     Application.CutCopyMode = False
  20.     Selection.TextToColumns Destination:=Range("V10"), DataType:=xlDelimited, _
  21.         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
  22.         Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
  23.         :=Array(1, 1), TrailingMinusNumbers:=True

  24. AA1 = ¤u§@ªí1.Range("V65536").End(xlUp).Row  '¶]µ§¼Æ°j°é

  25. '=======½T»{¸ê®Æ­åªR«á¡Aµ§¼Æ=========
  26. For I = 11 To AA1

  27.     ¤u§@ªí1.Range("U" & I) = Application.CountA(¤u§@ªí1.Range("U" & I & ":DZ" & I))
  28.    
  29. Next
  30. '=======================================



  31. For I = AA1 To 11 Step -1     '¥Ñ³Ì«á¤@µ§¡A©¹¤W³v¨B©îPO

  32.     AA2 = ¤u§@ªí1.Range("U" & I)
  33.     If AA2 <> 1 Then
  34.    
  35.         '====´¡¤J¤Á³Î«áªºPO¸ê®Æ=====
  36.             
  37.         ¤u§@ªí1.Range("B" & I & ":DZ" & I).Select
  38.         Selection.Copy
  39.         ¤u§@ªí1.Range("B" & I & ":DZ" & I + AA2 - 2).Select
  40.         
  41.         Selection.Insert Shift:=xlDown       '¿ù»~ÂI!!
  42.         
  43.         '==========================
  44.         
  45.         '===Purchase Order Äæ¦ì¸ê®Æ¡A³vµ§¶ñ¦^======
  46.         AA3 = 0
  47.         For J = I To I + AA2 - 1
  48.             ¤u§@ªí1.Range("C" & J) = ¤u§@ªí1.Cells(I, 22 + AA3)
  49.             AA3 = AA3 + 1
  50.         Next J
  51.         
  52.     End If

  53. Next I

  54. ¤u§@ªí1.Range("V1:DZ65536").ClearContents

  55. Application.ScreenUpdating = True


  56. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

¨S¦³»¡©ú, ¥ý¸Õ:
Xl0000359.rar (54.77 KB)

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2019-6-17 09:18 ½s¿è

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


    Dear ¤j¤j

             ·PÁ§Aªº¦^ÂСA¸Ñ¨M¤F¸ê®Æ­åªR«á¡A¤å¦rÂà¼Æ¦r«á¡A²Ä1­Ó¦r½X¬°0®É·|¤£¨£±o°ÝÃD¡C

             ¥u¬O¡A§Úªº§xÂZ¤£¬O¦b¸ê®Æ­åªR¤W¡C
             ¦Ó¬O¦b±N¸ê®Æ­«¾ã¡A½Ð¬Ý¤@¤U­ì¤åµ{¦¡½X ²Ä52¦C"Selection.Insert Shift:=xlDown       '¿ù»~ÂI!!"
            ¦bÀɮפ¤¦³3­ÓSheet¡B¤u¨ã¡Bµ²ªG¡B½d¨Ò
            ½d¨Ò¡G¦P¨Æªº»Ý¨D¡C
            µ²ªG¡G¶È¬O¤ÀªR¸ê®Æ¡C­ì©l¸ê®Æ¬°514µ§¡A©îPO«á·|¦³848µ§¡C(¶È¬O¥Î¨Ó¤ñ¹ï¶]§¹«áªº¤ñ¼Æ¬O§_¬°848µ§)
            ¤u¨ã¡G¥Îµ{¦¡½X¶]§¹«áªºµ²ªG¡C
         
            ¥H¤W¸É¥R»¡©ú¡C
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2019-6-17 10:28 ½s¿è

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

          Xl0000359_µ²ªG´ú¸Õ_OK.rar (64.47 KB)
         ¤W¤åµ§»~¡G­ì©l¸ê®Æ¬°514µ§¡A©îPO«á·|¦³848µ§¡C ¥¿½T¬O­ì©l¸ê®Æ¬°513µ§¡C

        §Q¥Î¤j¤jªºª©¥»¡A¥[¤W§Ú­ì¥»ªºµ{¦¡½X¡A¤w¸g¥i¥H¨Ï¥Î¡C
        ¥Øªº¡G¦pªG·í¦CªºPO>1®É¡A­n±NPO©î¦¨¦h¦C¡C(¦pPO=4¡A­n©î¦¨4¦C¸ê®Æ¡C)
                    EX¡B PO=1,2,3,4 ¬O¦b¤@­ÓÀx¦s®æ
                              Åܦ¨  1
                                        2
                                        3
                                        4
          §Úªºµ{¦¡½XÀ³¸ÓÁÙ¬O¦³«ü©wÅܼƪº°ÝÃD¡A¬O§_¥i¥HÀ°¦£½T»{¡A»Ý­n¦p¦ó½Õ¾ã¤~¯àÁקKBUG!!
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 4# hugh0620


¦A¸Õ¬Ý:
Xl0000359_v2.rar (41.87 KB)

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD