ªð¦^¦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

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

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

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

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


Arr = Range(Cells(R, "AG"), Cells(10, C))
³o¦æ¬O³]©w¸ê®Æ½d³ò! ¤£À´
Cells(R, "AG") ¬O10
Cells(10, C) ¬O0
Arr = Range(10, 0)
¬°¤°»ò??
½Ð¦A«ü¾É
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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


ÁÙ¨S¦³¥ÎPC´ú¸Õ
¥Hµ²ªG¤Ï±À¸Ì­±µ{½Xªº·N¸q ¤j·§¤F¸Ñ
1.¨â­Ó®e¾¹ Arr¸Ë­ì¨Óªº¸ê®Æ Brr¸Ë¦^°éªºµ²ªG
UBound(Arr¡^¬O«üArrªºÁa¦V°}¦C¼Æ
UBound(Arr, 2¡^¬O«üArrªº¾î¦V°}¦C¼Æ
2. Arr = Range(Cells(R, "AG"), Cells(10, C))¬O¤Ï¹ï¨¤©w¸q½d³ò¶Ü¡H
¨S¬Ý¹L ´N·W¤F
ÁÂÁ«ü¾É
©ú¦­¥X®t ¼·ªÅÄ~Äò¬ã²ß ÁÙ¦³¤½¦¡ª©©O ¯u´Á«Ý
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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


«e½úªº°j°é¤ñ¸ûÃø ,´«­Ó¨¤«×¤ñ¸û¬Ý±oÀ´
¥i¯à¸ò¤ß¹Ò¦³Ãö§a
±zµL¨pªº§âÀ´ªº¶Ç±Âµ¹§Ú­Ì ¦¨´N§Ú­Ì
Andy¥uÀ´±o±µ¨ü«e½úªº«ü¾É ¼Wªø¦Û¤v
ÁÂÁÂ
For k = 1 To 3
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
        Brr(i - 3, k) = Brr(i - 3, k) + Arr(i, j + k - 1)
j01: Next j
Next i
Next k
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD