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

½Ð±Ð ¤½¦¡_¸õÄæ¨Ã¥B²Å¦X±ø¥ó¤~¥[Á`

½Ð±Ð ¤½¦¡_¸õÄæ¨Ã¥B²Å¦X±ø¥ó¤~¥[Á`

¦U¦ì«e½ú¦n
½Ð±Ð ¤½¦¡_¸õÄæ¨Ã¥B²Å¦X±ø¥ó¤~¥[Á`
1.¥[Á`®æAC13
2.±qAG13¶}©l¸õ4Äæ¬Û¥[¦Ü³Ì«áÄæ¦ì
2.1.·íÄ檺²Ä10¦CÀx¦s®æ¤£¥H"«e¸m" ¶}ÀY
2.2.¥H°j°é°õ¦æªº°j°é½d¨Ò¦p¤U
ÁÂÁ«ü¾É

Sub °j°é½d¨Ò()
Dim i&
[AC13] = 0
For i = 33 To 256 Step 4
   If Cells(10, i) Like "«e¸m*" = False Then
      [AC13] = [AC13] + Cells(13, i)
   End If
Next
End Sub
'AC13 =SUMPRODUCT((MOD(COLUMN(AG:IV),4)=1)*AG13:IV13)
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

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

TOP

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


    ÁÂÁ«e½ú´£¿ô
¤W¶Ç½d¨Ò
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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


    ¤W¶Ç¥¢±Ñ!
ºÃ¦ü­­¨î¤W¶Ç ¦^®a¦A³B¸Ì
ÁÂÁ«ü¾É
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¤â¾÷¸Õ¤W¶Ç½d¨ÒÀÉ

ºÞ²zªí_20200824_2.zip (57.54 KB)

¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# ­ã´£³¡ªL
«e½ú¦n
¤â¾÷§¹¦¨½d¨Ò¤W¶Ç
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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

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

TOP

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

1. If Left(Cells(10, i), 2) <> "«e¸m" Then
   ¬O! ¦ý¬O¤£ª¾¦p¦ó¥[¨ì¤U¦C¤½¦¡¸Ì,©Î¨ä¥L¤èªk
AC13 =SUMPRODUCT((MOD(COLUMN(AG:IV),4)=1)*AG13:IV13)

2.¨C3Ä欰¤@­Ó¸s²Õ, STEP  3 ¤~¹ï§a!
   ¹ï¤£°_!  ¦³¤@Äæ¬O³Æ¥ÎÄæ ÁôÂð_¨Ó¤F
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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


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

TOP

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


    ÁÂÁ«e½ú«ü¾É
1.³o°}¦C¤èªk¥uÀ´¥Ö¤ò,¤]»Ý­n¾Ç²ß! §Ú·|Âdzo©«¾Ç·|¥L
2.­ì¥»·Qªk¬O¥ÎVBA¤U¤½¦¡¦bACÄæ ¤U¨ê±o¨ì¥[Á`­È
2.1.©w¸q¸ê®Æ½d³ò AG10:???  :¬O»{¬°¤U¤½¦¡¥[¨ì³Ì«áIVÄæ ªÅ®æ¤]¤£¼vÅT,¦Ó¥BÄæ¦ì¼W´î¾÷²v«Ü°ª
2.2.¥Î¤U¤½¦¡ªº¤èªk¤]¤£Â²³æ
ÁÂÁ«ü¾É
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD