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

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

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

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

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-8-24 18:44 ½s¿è

¤£µ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~~

TOP

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~~

TOP

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ªº°Ï°ì



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

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

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


    ¹ï¤£°_ !
§Ñ¤F°Ý°j°é¤è¦¡¤£¦P°õ¦æ®Ä²v¦³®t§O¶Ü?
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 18# Andy2483


    ÁÙ¨S¦³´ú¸Õ ¦ýÀ³¸Ó¦³®t
¦]¬°¤Ö§PÂ_ «e¸m «Ü¦h¦¸
´Nª½±µ¸õ¨ì j01
¼·ªÅ¦A´ú¸Õ ¾Ç²ß
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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


    ·d¤£À´ ­þ¸Ì¿ù
¤À¶µ¤ñÁ`©M¤j

½d¨Ò_20200826.zip (310 KB)

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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD