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

[µo°Ý] ¬d¸ß¤ñ¹ï«á¦P¶µ¥Ø¼Æ¶qÁ`©M¤Î¤£¦P¤è¦¡§e­z

[µo°Ý] ¬d¸ß¤ñ¹ï«á¦P¶µ¥Ø¼Æ¶qÁ`©M¤Î¤£¦P¤è¦¡§e­z

¥»©«³Ì«á¥Ñ BV7BW ©ó 2022-7-27 04:54 ½s¿è

¦U¦ì ¥ý¶i ¦Ñ®v¤j®a¦n

½Ð±Ð¦U¦ì¥ý¶i ¦Ñ®v
©ó¬d¸ß¤ñ¹ï«á¬Û¦P¶µ¥ØÁ`©M¤Î¤£¦P¤è¦¡§e­z¸ê®Æ
¦Ü¤u§@ªí¤¤¬d¸ß¤ñ¹ï«á.±N¬Û¦P¶µ¥Ø¤§¼Æ¶q¥[¦¨Á`©M«á§e¦C
¦P®É¬d¸ß¤ñ¹ï«á®É»Ý§e¦C2ºØ§e­z¤è¦¡¸ê®Æ¦Ü¦UÀx¦s®æ¤¤
¤Î»Ý¸ó2­Ó¤u§@ªí¬d¸ß

°ÝÃD»Ý¨D
1)³æ¶µ¥Ø¬d¸ß
¥HK9(¶µ¥Ø¬d¸ß)¤ÎK5.K6(¤é´Á)
¦Ü(­q³f©ú²Óªí)¤¤¤ñ¹ï«á¶µ¥Ø¥[Á`©M
§e¦CA2:D2¤¤.
¨Ã±a¥X¦U«È¤á¦U¶µ¥ØÁ`©M§e¦C©óR2:V2¤¤
(®w¦s)«h¶·¦Ü(¶µ¥Ø½s¸¹)®w¦s¤¤¤ñ¹ï¸ê®Æ
§e²{¥XE2(®w¦s)¸ê®Æ
¨Ò¦p³æ¶µ¥Ø¬d¸ßµ²ªG(¤@)¤Î«È¤á¬d¸ßµ²ªG(¤@)

2)³æ«È¤á¬d¸ß
¥HK11(«È¤á)K5.K6(¤é´Á).¤ÎK9(¶µ¥Ø¬d¸ß)
¦Ü(­q³f©ú²Óªí)¤¤¤ñ¹ï«á¶µ¥ØÁ`©M
¨Ã§e¦C©óQ2:V2¦U¶µ¸ê®Æ
¨Ò¦p«È¤á¬d¸ßµ²ªG(¤G)

3)¶µ¥ØÁ`¶q¬d¸ß
¥HK5.K6(¤é´Á)¦Ü(­q³f©ú²Óªí)¤¤¤ñ¹ï«á
¶µ¥ØÁ`¦X§e¦CA2;D2
(®w¦s)«h¶·¦Ü(¶µ¥Ø½s¸¹)®w¦s¤¤¤ñ¹ï¸ê®Æ
§e²{¥XE2(®w¦s)¸ê®Æ
¨Ò¦p¥H¤U¬O¶µ¥ØÁ`¶q¬d¸ßµ²ªG

4)«È¤áÁ`¶q¬d¸ß
¥HK11(«È¤á)¤ÎK5.K6(¤é´Á)
¦Ü(­q³f©ú²Óªí)¤¤¤ñ¹ï¶µ¥ØÁ`©M
§e¦CR2:V2¦U¶µ¸ê®Æ
¨Ò¦p¥H¤U¬O«È¤áÁ`¶qµ²ªG


  ·PÁ«ü¾É

¾P°â¶µ¥ØÁ`¶qªí(¤@).rar (658.73 KB)

±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

¦^´_ 1# BV7BW

³o­Ó»Ý¨D©M¤W¦¸¤@¼Ë¡A¦]¬°¬Ý¤£¤ÓÀ´´N¤£ª¾¦p¦ó¼g¡A¥i§_½Ð±zÁ|¨Ò»¡©ú¤@¤U¡A·PÁÂ

TOP

¥»©«³Ì«á¥Ñ BV7BW ©ó 2022-7-27 18:05 ½s¿è

¦^´_ 2# samwang
samwang ¤j¤j §A¦n
·PÁ§A¦^ÂÐ.¤]«Ü©êºp¥¼¯à²Ä¤@®É¶¡¦^µª ©êºp
¦p¦³¤£²»¤§³B½Ð¨£½Ì¦A¬d°Ý

1)³æ¶µ¥Ø¬d¸ß.¥D­n¬d¸ß4/1¦Ü4/10¤é³æ¤@¶µ¥Ø©Ò¦³¾P°â¥X¼Æ¶q.¤Î­þ´X«È¤á©Ò¶R¦h¤Ö§e¦C
             ¨Ò¦p) §A1½æ¥X5¥ó¨Ã¤£¬O¤@¤Ñ½æ¥X.¬O4/1¦Ü4/10¤é¦@½æ¥X5¥ó§e¦CA2:D2¤¤
             ¦Ó³o5¥ó¬O¤S­þ´X¦ì«È¤á©Ò¶R¦Ó¼Æ¶q¦h¤Ö
             .¤]¬O±N¨C¦ì«È¤á©Ò¶R¤§¼Æ¶q¥[°_¨Ó§e¦C¦ÜR2:V2¤¤
             ©Ò¥H¤~¦³2ºØ¤£¦P¤è¦¡µ²ªG§e­z  
             ·í¬d¸ß¥Xµ²ªG§e¦CA2:D2.¦]¦b(­q³f©ú²Óªí)¤¤¨S¦³®w¦s³o¶µ¸ê®Æ.
             ©Ò¥H¶·¦Ü(¶µ¥Ø½s¸¹)ªí¤¤¬d¸ß±o®w¦s¸ê®Æ.©Ò¥H¶·¸ó2­Ó¤u§@ªí¬d¸ß
            
¶µ½s        ¶µ¥Ø¦WºÙ        ¼Æ¶q        ³æ¦ì        ®w¦s
A101        §A1                         5               ¥x¤ç                 1
        ³æ¶µ¥Ø¬d¸ßµ²ªG(¤@)

¤é´Á        «È¤á        ¶µ½s        ¶µ¥Ø¦WºÙ        ¼Æ¶q        ³æ¦ì
                ³¯¤@        A101          §A1                 2            ¥x¤ç
                ªL¤G        A101          §A1                 2            ¥x¤ç
               ³Å°Ù¹F        A101          §A1                 1            ¥x¤ç

        ³æ¶µ¥Ø¬d¸ßµ²ªG(¤@)

2)³æ«È¤á¬d¸ß.¥H¤é´Á¤Î«È¤á.¬d¸ß4/1¦Ü4/10¤é³æ¤@¶µ¥Ø©Ò¦³¾P°â¥X¼Æ¶q§e¦C
             ¨Ò¦p³¯¤@¦b4/1¦Ü4/10¤é´X®ÉÁʶR§A1                               
                       
¤é´Á               «È¤á               ¶µ½s            ¶µ¥Ø¦WºÙ           ¼Æ¶q        ³æ¦ì                               
                                       
111/04/01        ³¯¤@        A101        §A1                      1        ¥x¤ç
111/04/02        ³¯¤@        A101        §A1                      1        ¥x¤ç

                ³æ«È¤á¬d¸ßµ²ªG(¤G)

3)¶µ¥ØÁ`¶q¬d¸ß.¥H¤é´Á¦Ü(­q³f©ú²Óªí)¤¤¬d¸ß¥X4/1¦Ü4/10¤é¦@¦³¦h¤Ö¶µ¥Ø½æ¥X
               ¦pªG¬Û¦P¶µ¥Ø¨Ã¥[¦¨Á`¼Æ«ü§e²{¥X¸Ó¶µ¥Ø¤§Á`¼Æ
               ¨Ò¦p§A1¦b4/1¦Ü4/10¤é½æ¥X¦@5¥ó¦ý¤£¬O¤@¤Ñ½æ¥X
               ¥u»Ý§e¦C§A1ªºÁ`¼Æ.¨ä¾l§A2.§A3µ¥µ¥¬Ò¤@¼Ë¤è¦¡§e¦C
               ·í¬d¸ß¥Xµ²ªG§e¦CA2:D2.¦]¦b(­q³f©ú²Óªí)¤¤¨S¦³®w¦s³o¶µ¸ê®Æ.
               ©Ò¥H¶·¦Ü(¶µ¥Ø½s¸¹)ªí¤¤¬d¸ß±o®w¦s¸ê®Æ.©Ò¥H¶·¸ó2­Ó¤u§@ªí¬d¸ß

¶µ½s        ¶µ¥Ø¦WºÙ     ¼Æ¶q        ³æ¦ì        ®w¦s
A101        §A1                      5        ¥x¤ç         1
A102        §Ú1                      2        ¤½¤ç         1
A103        ¥L1                      2        ½c             1
B201        §A2                      5        ¥x¤ç         2
B202        §Ú2                      4        ¤½¤ç         2
B203        ¥L2                      4        ¥x¤ç         2
C301        §A3                      4        ¥x¤ç         3
C302        §Ú3                      4        ¤½¤ç         3       
............
............                               
4)«È¤áÁ`¶q¬d¸ß.¥H«È¤á¦W¤Î¤é´Á¦Ü(­q³f©ú²Óªí)¤¤¬d¸ß§e¦C
               ¦pªG¬Û¦P¶µ¥Ø¨Ã¥[¦¨Á`¼Æ«ü§e²{¥X¸Ó¶µ¥Ø¤§Á`¼Æ
               ¨Ò¦p³¯¤@¦b4/1¦Ü4/10¤é©ÒÁʶR¤§¶µ¥Ø¤Î¼Æ¶qÁ`¼Æ§e¦C
               ¦Ó§A1¦³ÁʶR2¦¸¦@2¤½¤ç
               ³oµL¶·¬d¸ß®w¦s

¤é´Á        «È¤á        ¶µ½s        ¶µ¥Ø¦WºÙ        ¼Æ¶q        ³æ¦ì
                 ³¯¤@        A101        §A1                          2               ¥x¤ç
                 ³¯¤@        A102        §Ú1                          1              ¤½¤ç
                ³¯¤@        A103        ¥L1                         1              ½c
                ³¯¤@        B201        §A2                          1               ¥x¤ç
                 ³¯¤@        B202        §Ú2                          1              ¤½¤ç
                 ³¯¤@        B203        ¥L2                          1               ¥x¤ç
                 ³¯¤@        C301        §A3                           1               ¥x¤ç
................
................

   ÁÂÁ§A¦^ÂÐ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 2# samwang
­×­q¬d¸ß®w¦s¸ê®Æ¦ì¸m
®w¦s¶·¦Ü¶µ¥Ø½s¸¹¤¤NN2Àx¦s®æ¬d¸ß¤ñ¹ï
¦A±q·s¶Ç°e·s¸ê®Æ(®w¦s¸ê®Æ)

¾P°â¶µ¥ØÁ`¶qªí(¤@).rar (690.86 KB)

±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2022-7-29 20:27 ½s¿è

¦^´_ 3# BV7BW

1)³æ¶µ¥Ø¬d¸ß.¥D­n¬d¸ß4/1¦Ü4/10¤é³æ¤@¶µ¥Ø©Ò¦³¾P°â¥X¼Æ¶q.¤Î­þ´X«È¤á©Ò¶R¦h¤Ö§e¦C

¦p¤U½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub ³æ¶µ¥Ø¬d¸ß()
Dim Arr, xD, T$, Ds As Date, De As Date
Dim Brr(1 To 1, 1 To 4), Crr(), n%, i&, j%
Set xD = CreateObject("Scripting.Dictionary")
Ds = [K5]: De = [K6]: T = [K9]
Arr = Sheets("­q³f©ú²Óªí").[a1].CurrentRegion
ReDim Crr(1 To UBound(Arr), 1 To 5)
For i = 2 To UBound(Arr)
    If Arr(i, 4) <> T Then GoTo 99
    If Arr(i, 12) >= Ds And Arr(i, 12) <= De Then
        If n = 0 Then
            n = n + 1: xD(Arr(i, 1) & "") = n
            For j = 1 To 4: Brr(1, j) = Arr(i, j + 2): Next
            Crr(n, 1) = Arr(i, 1): Crr(n, 2) = Arr(i, 3)
            Crr(n, 3) = Arr(i, 4): Crr(n, 4) = Arr(i, 5)
            Crr(n, 5) = Arr(i, 6)
        Else
            If xD.Exists(Arr(i, 1) & "") Then
                m = xD(Arr(i, 1) & "")
                Crr(m, 4) = Arr(i, 5) + Crr(m, 4)
            Else
                n = n + 1: xD(Arr(i, 1) & "") = n
                Crr(n, 1) = Arr(i, 1): Crr(n, 2) = Arr(i, 3)
                Crr(n, 3) = Arr(i, 4): Crr(n, 4) = Arr(i, 5)
                Crr(n, 5) = Arr(i, 6)
            End If
            Brr(1, 3) = Brr(1, 3) + Arr(i, 5)
        End If
    End If
99: Next
If n > 0 Then
    Range("a2:c2") = ""
    Range("a2").Resize(1, 4) = Brr
    Range("r2:v8") = ""
    Range("r2").Resize(n, 5) = Crr
End If
End Sub
   

TOP

¦^´_ 5# samwang
samwang ¦Ñ®v §A¦n
  ·PÁ§A¸Ñµª
¸g´ú¸Õ«á¤w§¹¥þ§k¦X¥Ø¼Ð»Ý¨D«D±`¥¿½T¹Bºâ.
²{®w¦s¥¼¯à¥¿½TÅã¥Ü¸ê®Æ
¦C¦p§A1®w¦s¸ê®Æ¬°1²{¬O¦³Åã¥Ü1
    §A2®w¦s¸ê®Æ¬°2²{Åã¥Ü1.À³¬O2
    §A30®w¦s¸ê®Æ¬°30.²{Åã¥Ü1
°²¦p¥h­×§ï§A1®w¦s¬°2.¬d¸ß«áÀ³Åã¥Ü¥X2
¦ý­×§ï«á¤]¨S¥¿½TÅã¥Ü
½Ðsamwang ¦Ñ®v ¬O§_¥i­×§ï

·PÁ samwang ¦Ñ®v «ü¾É
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 5# samwang
samwang ¦Ñ®v §A¦n

¶µ¥Ø½s¸¹¤£¦P
¨Ò¦p§A1¦³2ºØ¤£¦P½s¸¹A101§A1»PA109§A1
¦p¬d¸ßA109§A1²{¬O¥HA101§A1§@¬d¸ß.À³¥HA109§A1¬d¸ß
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 7# BV7BW
samwang ¦Ñ®v
    ¶µ¥Ø½s¸¹¤£¦P
¨Ò¦p§A1¦³2ºØ¤£¦P½s¸¹A101§A1»PA109§A1
¦p¬d¸ßA109§A1²{¬O¥HA101§A1§@¬d¸ß.À³¥HA109§A1¬d¸ß
¶µ¥Ø½s¸¹¤£¦P³oÃD¤£¥Î­×§ï
¦]¬O¶µ¥Ø¤£¥i­«½Æ¨Ï¥Î.¦p»Ý¬Û¦P¦Û¤vÀ³¥t¦æ§@°Ï¤À¥H«K¥¿±`¹B§@
©êºp²K¥[¦Ñ®v·Ð¤ß©êºp
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_  samwang
samwang ¦Ñ®v §A¦n
  ·PÁ§A¸Ñµª
¸g´ú¸Õ«á¤w§¹¥þ§k¦X¥Ø¼Ð»Ý¨D«D±`¥¿½T¹Bºâ.
²{®w¦s¥¼¯à ...
BV7BW µoªí©ó 2022-7-29 21:26


¦C¦p§A1®w¦s¸ê®Æ¬°1²{¬O¦³Åã¥Ü1
     §A2®w¦s¸ê®Æ¬°2²{Åã¥Ü1.À³¬O2
     §A30®w¦s¸ê®Æ¬°30.²{Åã¥Ü1
>> ¦p¦ó±oª¾®w¦s??
1.JPG

TOP

¦^´_  BV7BW
samwang ¦Ñ®v
    ¶µ¥Ø½s¸¹¤£¦P
¨Ò¦p§A1¦³2ºØ¤£¦P½s¸¹A101§A1»PA109§A1
¦p¬d¸ßA109§A1²{¬O ...
BV7BW µoªí©ó 2022-7-29 22:10


§A1 ¥u¦³A101¡A¨S¦³A109¦p¹Ï¤ù
1.JPG

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD