­ã´£³¡ªL

µo©«¦pªG¬O¨D§Uªº,
³Ì¦n¤W¶Ç½d¨Ò´ú¸ÕÀÉ, ¬O°ò¥»ªº,
¤]¥i·Ç½T®Ú¾Ú¸ê®Æµ²ºc¥h¤F¸Ñ°ÝÃD,
¤j®a¤£·Q¦Aªá®É¶¡¬°¤F¸ÑÃD¥h«Ø´ú¸Õ¸ê®Æ!!!

­ã´£³¡ªL

­Y¥u¤ñ¹ï«e¨â¦r, ¤]¥i:
If Left(Cells(10, i), 2) <> "«e¸m" Then

¨C3Ä欰¤@­Ó¸s²Õ, STEP  3 ¤~¹ï§a!

­ã´£³¡ªL

¦^´_ 8# Andy2483

¦³¬Ý¨ìÁôÂÃÄæ,
Sub TEST()
Dim Arr, Brr, R&, C&, i&, j&, k%
R = Cells(Rows.Count, "d").End(xlUp).Row '³Ì«á¤@¦æ
C = Cells(12, Columns.Count).End(xlToLeft).Column '³Ì«á¤@Äæ
Arr = Range(Cells(R, "AG"), Cells(10, C)) '©w¸q¸ê®Æ½d³ò AG10:???
ReDim Brr(1 To UBound(Arr) - 3, 1 To 3) '³]ªÅ°}¦C
For i = 4 To UBound(Arr)
For j = 1 To UBound(Arr, 2) Step 4
    If Left(Arr(1, j), 2) = "«e¸m" Then GoTo j01
    For k = 1 To 3
        Brr(i - 3, k) = Brr(i - 3, k) + Arr(i, j + k - 1)
    Next k
j01: Next j
Next i
[AC13].Resize(UBound(Brr), 3) = Brr
End Sub


'===================================

­ã´£³¡ªL

¦^´_ 11# Andy2483

Dim Arr, Brr, R&, C&, i&, j&, k%, xArea As Range
R = Cells(Rows.Count, "d").End(xlUp).Row
MsgBox R & "(DÄæ³Ì«á¤@¦æ)"
C = Cells(12, Columns.Count).End(xlToLeft).Column
MsgBox C & "(³Ì¥k¤@Äæ)--¦ì§}:" & Cells(12, C).Address
Set xArea = Range(Cells(R, "AG"), Cells(10, C))
MsgBox "¸ê®Æ½d³ò:" & xArea.Address
'Arr = Range(Cells(R, "AG"), Cells(

­ã´£³¡ªL

¤£µM¥Î¤½¦¡??
AC13:
=SUMIF($AG$10:$GW$10,"*",AG13:GW13)-SUMIF($AG$10:$GW$10,"«e¸m*",AG13:GW13)
©Î
=SUMPRODUCT(--(LEFT($AG$10:$GW$10&"«e¸m",2)<>"«e¸m"),AG13:GW13)

¥k©Ô3®æ, ¤U©Ô

­pºâ¦ì§}¥k©Ô®É, ¬O²¾¦ìªº, ¦Û¦æ°Ñ°u~~

­ã´£³¡ªL

VBA¤¤ªº°}¦C¥Îªk, ­n¦­ÂI¤F¸Ñ,
³Ì¦n¤]²z¸Ñ¦r¨å¥Îªk,
¦r¨å+°}¦C, ¥i³B²z«Ü¦hºØ¸ê®Æªº³B²z¤Î²Î­p¹Bºâ»Ý¨D,
§_«hÀHµÛ¸ê®Æ¶V¦h, ´N¶V¤£¦n³B²z~~

­ã´£³¡ªL

Sub TEST2()
Dim Arr, Brr, R&, C&, i&, j&, k%
R = Cells(Rows.Count, "d").End(xlUp).Row
C = Cells(12, Columns.Count).End(xlToLeft).Column
Arr = Range([A1], Cells(R, C))
ReDim Brr(1 To UBound(Arr) - 12, 1 To 3)
For i = 13 To UBound(Arr)
For j = [AG1].Column To UBound(Arr, 2) Step 4
    If Left(Arr(10, j), 2) = "«e¸m" Then GoTo j01
    For k = 1 To 3
        Brr(i - 12, k) = Brr(i - 12, k) + Arr(i, j + k - 1)
    Next k
j01: Next j
Next i
[AC13].Resize(UBound(Brr), 3) = Brr
End Sub

§ï¦¨³o¼Ë¬O§_¸û©ö²z¸Ñ?
Cells(R, C) ´N¬O¸ê®Æ°Ï³Ì¥k/³Ì¤U¤@®æ
Range([A1], Cells(R, C)) ±qa1¦V¤U/¦V¥kªº°Ï°ì



==================================

­ã´£³¡ªL

¦^´_ 20# Andy2483


1) ¨C¦¸µo©«³£¥u´£¨Ñ²¤Æª©, ·íµM±o¤£¨ì¥¿½T¸Ñµª, °£«D§A¯uªº¤w¥i¦Û¤v­×§ïµ{¦¡©Î¤½¦¡
2) ¥H³oª©¥»¨Ó¬Ý, ¥[Á`±ø¥ó[¨ø¼Ò]~[¬[¼Ò]~[½Õ²£], ³£¦b²Ä11¦C, ­Yµ{¦¡¨S­×§ï, ·íµM¤£¥¿½T
     ¥t¥~,[«e¸m]MAX-- ¤S­n¦p¦ó¨ú???
3) ¨Ì¾Ú¤W¤è4­Ó±ø¥ó, ¥[Á`ªº¦ì¦b¦bQ~AFÄæ, ©Ò¥HBrrªºÄæ¼ÆÀ³Åܦ¨ 1 to 16 ¦Ó¤£¬O 1 to 3
4) k = 1 to 3 ³o¬O©T©wªº, ¥¦·|ÀH j ­ÈÅܤÆ----j + k

¦Û¤v¦A¬Ý¬Ý­ì¨Óµ{¦¡¨C¤@¦æ, ­Y¯à¤@¤@²z¸Ñ, ¦A¨Ó»¡ÂX¼W»Ý¨D~~

­ã´£³¡ªL

¦^´_ 22# Andy2483


[«e¸m]MAX ¬O­n¤À§O±q ¨C­Ó«~¸¹(¦C)  [«e¸m]¬q¸Ì(¼Ð·Ç.¹ê»Ú.»~®t) ¦U¨ú³Ì¤j   

__¨ú[¼Ð·Ç]³Ì¤j, ¦P®É±N¸Ó³Ì¤j[¼Ð·Ç]¦P²Õªº[¹ê»Ú¤Î»~®t], ¤@°_¶ñ¤J???
   ÁÙ¬O¤T­Ó¤À§O¨ú³Ì¤j???

¼Ð·Ç 100  ¹ê»Ú 120 »~®t -20 (­t¼Æ--«ç¤ñ¸û)
¼Ð·Ç 110  ¹ê»Ú 100 »~®t 10

¨ú: ¼Ð·Ç 110  ¹ê»Ú 120 »~®t 10 ???

­ã´£³¡ªL

¦^´_ 24# Andy2483

ºCºC¬ã¨s:
½d¨Ò_20200826_v1.rar (221.41 KB)

¤U¸ü¦¸¼Æ: 16

2020-8-26 13:19