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

[µo°Ý] ¬£¨®ªí_¼·¶ÃÂॿ

[µo°Ý] ¬£¨®ªí_¼·¶ÃÂॿ

¦U¦ì¥ý[¶i¦Ñ®v¤j®a¦n
¦³­Ó2°ÝÃD½Ð¥ý¶i ¦Ñ®vÀ°¸Ñ´b
¦b¤u§@ªí1A:DÄ椤.¥Ñ½s¸¹¤¤«e2½X¼Æ¦r¤j¤p
Âà´«¦¨(ªþ¥óA¨®.&B¨®.&C¨®.&ªü§».&ªü¤@)¨Ã¥[¤W½u®Ø.³æ¸¹¤£ÅÜ
¦p¨S¦³½s¸¹½X´N¦C¤J³Ì«á.¦p2¦ì¬Û¦P´N¨Ã¦C
1)¤u§@ªí1»Ý¨D:¥iª½±µ¥ÑB1°µÂà´««áª½±µ¶ñ¤J.
              «È¤á1´N¤£¥Î¶ñ¤JÄx¸¹1¤Î½s¸¹1»Ý¥[¤J
       ¨ä¯ÊÂI:¬OÄx¸¹¤£·|¦]¨®§O¦ÓÅÜ°Ê.
              ©ö»F¦¨»~§ëÄxµ¨(A¨®§ë¤JB¨®).¦]Äx¸¹¬Û¦P

              ©ÎªÌ¥Î2¬q¦¡Âà´«
              ¥ÑB1¤¤¥h¦C¥X¸ê®Æ«á.¦b¥t¦æÂà´«°Ê§@.³æ¸¹¤£ÅÜ
              ·í¦C¥X¸ê®Æ«á.¦A¥h§ó§ïÄx¸¹«áÂà´«
2)¤u§@ªí4»Ý¨D:¥Ñ"F1"(¨®½s)§@°òÂI.¨Ã¥Ñ½s¸¹«e2½X§@¶¶§Ç±Æ¦C
              ¤]´N¬O»¡§â(A¨®)&(B¨®)&(C¨®)....²Õ¦X¤@°_
              ¥H½s¸¹«e2½X¤j¤p¶¶§Ç±Æ¦C
              ¨S½s¸¹ªÌ¥H¨®½s¬°¥D.¦C¤J¸Ó¨®½s¤§³Ì«á.¬Û¦P½s¸¹®É¨Ã¦C
¦p¥i¦bµ{¦¡«á¥[¥Hµù¸Ñ ÁÂÁÂ
  ³o¸Ì¥ýÁÂÁ¦U¦ì¥ý¶i   ¦Ñ®v­Ì ³Ò¤ß
      
   ¬£¨®ªí-¼·¶ÃÂॿ.zip (42.77 KB)
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

¦U¦ì¥ý¶i ¦Ñ®v ¤j®a¦n
¤W¸ß´£°Ý¸Ñ»¡¦³¨Ç¤£²M·¡.²{¥[¤©­«¾ã
1)¤u§@ªí1:¬O¥H"B1"¤Î"D1".¥h¤u§@ªí2¤¤"J1"."L1"¤ñ¹ï¥X.«È¤á.½s¸¹.³æ¸¹
          ¨Ã¶ñ¤J¤u§@ªí1"A3"«È¤á."C3"½s¸¹."D3"³æ¸¹¤¤.¨ä¤¤"B3"Äx¸¹«h¥H¦³¸ê®Æ¦Û°Ê²£¥Í§Ç¸¹
          ³o¬O²Ä¤@¶¥¬q¤ñ¹ï¿é¤J
          ²Ä¤G¶¥¬q¬O¥H²Ä¤@¶¥¬q¤ñ¹ï«á¤§µ²ªG..¥H(½s¸¹)¤¤¼Æ¦r«e2½X¤j¤p¶¶§Ç.¦A¥H­«·s¾ã¦X
          ¨Ã¶ñ¤J"E3"(«È¤á1)."F3"(Äx¸¹1).¨ä¤¤"G3"(½s¸¹1)«h§ï¬°A1¼Æ¦r¶¶§Ç±Æ¦C
          *(½s¸¹1)¬°¦ó¥[¤W"A".¥»¦]¥i¥Î"1"¼Æ¦r¶¶§Ç±Æ¦C.¦ý¦]Äx¸¹¤]¬O¥H"1"¼Æ¦r.©Ò¥H¦A(½s¸¹1)¤¤¥[¤W"A"§@¤À§O*
          *(Äx¸¹)¬O¥H"A¨®"Äx¸¹³Ì«áÄx¸¹¬°"B¨®"±µ¤U¶¶§Ç."C¨®"¬°"A¨®".¥[¤W"B¨®"Äx¸¹±µ¤U¶¶§Ç.....*
          ¨Ò¦p¤wª¾"A¨®"Äx¸¹."B¨®"Äx¸¹¶·¥Î¤â¤u¥h§@§ó§ï."C¨®"¦P¼Ë°µªk....
          ©Ò¥H¶·2¬q¦¡¿é¤J¤Î­«¾ã
          ²Ä¤@¶¥¬q¤ñ¹ï¿é¤J¥H§¹¦¨
          Sub ¬£¨®ªí()
Dim DD, CC$, Arr, Brr, i&, j%, N&, xD
Call ¬£¨®ªí_²M°£
DD = [D1]: CC = [B1]
If Not IsDate(DD) Then MsgBox "**½Ð¿é¤J¤é´Á!!  ": Exit Sub
If CC = "" Then MsgBox "**½Ð¿é¤J[¨®½s]!!  ": Exit Sub
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¤u§@ªí2!L1], [¤u§@ªí2!A65536].End(xlUp))
ReDim Brr(1 To UBound(Arr), 1 To 4)
For i = 2 To UBound(Arr)
    If Arr(i, 12) <> DD Or Arr(i, 10) <> CC Then GoTo 101
    PNo = Arr(i, 11): If xD(PNo) = 1 Then GoTo 101
    xD(PNo) = 1:  N = N + 1: Arr(N, 2) = Format(N, "00")     '¦³¸ê®Æ®ÉArrªº²Ä2Äæ¦ì¡A¦Û°Ê²£¥Í§Ç¸¹
    For j = 1 To 4
        Brr(N, 1) = Arr(i, 1)
        Brr(N, 3) = Arr(i, 2)
        Brr(N, 2) = Arr(N, 2)
    Next j
    Brr(N, 4) = Arr(i, 11)
101: Next i
If N = 0 Then MsgBox "**¨S¦³²Å¦Xªº¸ê®Æ!!  ": Exit Sub
With Sheets("¤u§@ªí1")
     .[A3].Resize(N, UBound(Brr, 2)) = Brr
     .Range("A1:G" & N + 3).Name = "'" & .Name & "'!Print_Area"
     .Range("1:3").Name = "'" & .Name & "'!Print_Titles"
End With
End Sub
µ²ªG¦p¤U
¨®½s:        A¨®        ¤é´Á:        110¦~4¤ë1¤é                       
«È¤á           Äx¸¹            ½s¸¹              ³æ¸¹                      («È¤á1)          (Äx¸¹1)       (½s¸¹1)
³¯¤@           1               01-A001           1100401001                       
ªL¤G           2               08-A002           1100401002                       
¦¶¤K           3               02-A008           1100401008                       
³ÅªÖ¹F           4               12-011S           1100401010                       
­J§B¼Ý           5               11-012S           1100401011                       
¤@³¯           6               14-A013           1100401012                       
¤GªL           7               13-A014           1100401013                       
¤K¦¶           8               20-A020           1100401019                       
¹FªÖ³Å           9               23-023S           1100401022                       
¼Ý§B­J          10               24-024S           1100401023                       
³¯¤@+1          11               26-A025           1100401024                       
ªL¤G+1          12               26-A026           1100401025                       
³ÅªÖ¹F+1  13       35-035S           1100401029

                                                                                  (ªþ¥óA¨®)               
                                                                                    («È¤á1)         (Äx¸¹1)        (½s¸¹1)                  
                                                                                          ³¯¤@            1                   A1
                                                                                          ¦¶¤K              3                   A2
                                                                                          ªL¤G              2                   A3
                                                                                          ­J§B¼Ý              5                   A4
                                                                                          ³ÅªÖ¹F              4                   A5
                                                                                           ¤GªL              7                  A6
                                                                                           ¤@³¯              6                   A7
                                                                                           ¤K¦¶              8                   A8
                                                                                           ¹FªÖ³Å              9                   A9
                                                                                           ¼Ý§B­J             10                   A10
                                                                                           ³¯¤@+1     11                   A11
                                                                                           ªL¤G+1     12                   A12
                                                                                           ³ÅªÖ¹F+1 13                  A13


        ²{¤u§@»Ý¨D:¬O±N²Ä¤G¶¥¬q(­«·s¾ã¦X).¨Ã¶ñ¤J"E3"(«È¤á1)"F3"(Äx¸¹1)."G3"(½s¸¹1)¤¤  
      
²Ä2°ÝÃD
¤u§@ªí4¤¤¥H"F1"(¨®½s)¬°°òÂI­«·s¾ã¦X.¨Ã¥H"B1"(½s¸¹)«e2½X¼Æ¦r¤j¤p¶¶§Ç­«·s¾ã¦X±Æ¦C
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 2# BV7BW


«Ü¥Î¤ß¬Ý¤F¡A¦ýÁÙ¬O¤£¯à²z¸Ñ¹ê»Ú»Ý¨D¡A¬Ý¬Ý¦³µL¨ä¥L¤j®vÄ@·NÀ°¦£¡AÁÂÁ¡C

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-8 18:36 ½s¿è

¦^´_ 2# BV7BW

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O§A­nªº 2­Óµ²ªG ·PÁÂ
  1. Public Sub ±q·s±Æ¦C½m²ß()
  2. Application.ScreenUpdating = False
  3. [E65535:G3].ClearContents

  4. For X = 3 To Cells(3, 3).End(4).Row
  5.     Cells(X, "E") = Cells(X, "A")
  6.     Cells(X, "F") = Cells(X, "B")
  7.     Cells(X, "G") = Mid(Cells(X, "C"), 1, 2)
  8. Next X
  9. Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2

  10. For X = 3 To Cells(3, 3).End(4).Row
  11.     Cells(X, "G") = "A" & X - 2
  12. Next X
  13. Range([¤u§@ªí4!A65535].End(3), [¤u§@ªí4!J2]).Sort [¤u§@ªí4!F2], 1, Key2:=[¤u§@ªí4!B2], Header:=2
  14. Application.ScreenUpdating = True
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# samwang

S¤j¤j§A¦n
ÁÂÁ§A
­«ÂI¬O¦b.²Ä2¶¥¬q¾ã¦X±Æ§Ç
¤]´N»¡·í²Ä¤@¶¥¬q§â"(A¨®)³¡¤À¥ý¦æ¾ã¦X¨Ã¦C¥X¸ê®Æ
¦A¦æ²Ä¤G¶¥¬q¾ã¦X.§â²Ä¤@¶¥¬q¸ê®Æ­«·s¦A¦¸­«¾ã.
¨Ã¥H²Ä¤@¶¥¬q¤§½s¸¹«e2½X¼Æ¦r¤j¤p.§@¬°­«·s¾ã¦X¨Ì¾Ú¥[¥H±Æ¦C¥X
¨Ã§â½s¸¹§ï¬°"A1"©¹¤U±Æ§Ç
¦p¶Çªþ¥ó.¦p¤£¸Ô½Ð¦A´£°Ý
ÁÂÁ§AS ¤j¤j
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 4# °a¤ªºµ

ºµ ¤j¤j§A¦n
ÁÂÁ§A«ü¾É §Ú¦Aºt½m.«á¦A¦V§A´£¥X³ø§i ¥ýÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 4# °a¤ªºµ
­è­è§Ñ¥ý¦V´X¦ì¥ý¶i.¦Ñ®v»¡ "©êºp"
¦]³o2¤Ñ¦n¥h¥x¤¤¥X¥ô°È.­è¶}3¤p®É¨®
¦^¨ì®a­è¦n6.30¤À.¤@®É¤ß«æ.¨S²Ä¤@®É¶¡¦^À³.²`·P©êºp""
¦b³o¦A¦V¦U¦ì¥ý¶i ¦Ñ®v ¦A»¡""©êºp""

ºµ¤j¤j§A¦n
­è­èºt½m«á¦³´X­Ó°ÝÃD
¤u§@ªí1¤¤.E.F.GÄ槹¥þ§k¦X»Ý¨D.¦ýA.B.C.DÄæ»Ý­n«O«ù¤£ÅÜ
¨ä»Ý¨D­ì¦]¬O¤u§@ªí1A.C.DÄ楴³æ­û¬Ý.A.B¬O²{³õ¾ß³f­û¬Ý.E.F.GÄæ¬O¸Ë¨®­û¬Ý
¤]´N¬O»¡1ªí3¥Î
°²¦pA.B.C.DÄæ§óÅÜ·|³y¦¨2­û§xÂZ.¨S²Ä¤GÂà´«³y¦¨¸Ë¨®­û¤£«K

¤u§@ªí1.2.3¬O³æ¤@¨Æ¥ó»Ý¨D
¤u§@ªí4¬O³æ¤@¨Æ¥ó»Ý¨D
¦Ü©ó¤u§@ªí4¤¤¸ò¤u§@ªí1"E.F.G"ÄæÃþ¦¡
¦ý¤u§@ªí4¬O¥H"F1"¬°°òÂI¨Ó·½
¦A¾ã­±¤u§@ªí4Âà´«¨Ã¨Ì§Ç±Æ¦C
¨Ò
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  A¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  A¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  B¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  B¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  C¨®   
¡K   ¡K   ¡K   ¡K   ¡K  ¡K  ¡K  C¨®   

¦A¦¸ÁÂÁ ºµ¤j¤j
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 7# BV7BW
©êºp ¨Sª`·N¬Ý
§â Range([A65535].End(3), [G3]).Sort [G3], 1, Header:=2
§ï¦¨ Range([E65535].End(3), [G3]).Sort [G3], 1, Header:=2 ´N¥i¥H¤F
¶¶«K¬Ý¤@¤U ¤u§@ªí4 ¬O¤£¬O§A­nªºµ²ªG ·PÁÂ

TOP

¦^´_ 8# °a¤ªºµ

ÁÂÁºµ¤j¤j
µ²ªG§¹¥þ¥¿½T©Ò»Ý­n¨D
¦p¦A¯à§â2¨Æ¥ó¤À¶}?
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 9# BV7BW[
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD