¦³ÃöSUMIF VBA ¼gªk?

lp986749

Range("H400").Select       'XX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p ²Ä2~399¦C
ActiveCell.FormulaR1C1 = "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"

SUMIF ¥¨¶°¤@³¡¤À¦p¤W¡A·N«ä§Y±NXX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p¦C©óÂà±b©ú²Óªí³Ì«á¤@¦C¡A¤µ¤é¦³©ú²Óªí250¦æ®É±NÂà±b³¡¤À(M)Á`¼Æ¦X­p¦C©ó251¦æ¡A¦Ó«D©T©w©óH400¦ì¸m¡A°²¦p©ú²Óªí100¦æ®É±NÂà±b³¡¤À(M)Á`¼Æ¦X­p¦C©ó101¦æ¡A¦Ó«D©T©w©óH400¦ì¸m¡AÀH©ú²Óªí¦h¹è¦ÓÅܰʦì¸m¡A½Ð°Ý°ª¤â¯à§iª¾¤W­z EXCEL VBA¦p¦ó¼g?

lp986749

°Ï§O½X        »È¦æ½X        «O¯d        ±b¸¹        ¥æ©ö¤é´Á        ¥æ©öª÷ÃB(FÄæ)        ¥æ©öºK­n(G)        ­É¶U§O
1        '005'        0        '012001090127'        20150206        100000                    MX                         1
1        '005'        0        '012001090127'        20150206        347415                       MR                   1
1        '005'        0        '012001090127'        20150206        129396                      MH                       1
1        '005'        0        '012001090127'        20150206        214039                  MR                      1
1        '005'        0        '012001090127'        20150206        28000                       M                      1
1        '005'        0        '012001090127'        20150206        40000                      M                     1
1        '005'        0        '012001090127'        20150206        1262001              MR                    1
1        '005'        0        '012001090127'        20150206        2231939             MR                   1
1        '005'        0        '012001090127'        20150206        786647                     MX                  1

    Range("H300").Select    'XX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-298]C[-1]:RC[-1],""M"",R[-298]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"

    Range("H301").Select     'XX»È¦æÂà±b³¡¤À(MH)Á`¼Æ¦X­p
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-299]C[-1]:RC[-1],""MH"",R[-299]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"

    Range("H302").Select       '¥x»ÈÂà±b³¡¤À(MX)Á`¼Æ¦X­p ²Ä2~200¦C
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-300]C[-1]:RC[-1],""MX"",R[-300]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
   
    Range("H303").Select       'XX»È¦æÂà±b³¡¤À(ME5)Á`¼Æ¦X­p
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-301]C[-1]:RC[-1],""ME5"",R[-301]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-*   "
   
    Range("H304").Select      'XX»È¦æÂà±b³¡¤À(MR)Á`¼Æ¦X­p
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-302]C[-1]:RC[-1],""MR"",R[-302]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-*   "
   
    ®æ¦¡¦p¤W±N¤£¦P"MR" "MX" ¥[Á` ©ñ©ó H304¦ì¸m H302¦ì¸m

stillfish00

¦^´_ 3# lp986749
§Aªº   "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"
R[-398] ¬JµM«üªº¬O±q²Ä2¦C¶}©l¡A´N¥Îµ´¹ï¦ì§} R2 ´N¦n¡A¤£­n¥Î¬Û¹ïªº
¤]´N¬O¾ã­Ó¤½¦¡§ï¬°  "=SUMIF(R2C[-1]:RC[-1],""M"",R2C[-2]:RC[-2])"

¦Ü©ó¨M©w¦X­pªº¦ì¸m¡A­n«ç»ò§ä¨ì³Ì«á¤@µ§¡A
­n®Ú¾Ú§AªºÀÉ®×­þ¤@Äæ¤@©w³£¦³¸ê®Æ¥h§ä¤ñ¸û¦n¡AªþÀÉ·|¤ñ¸û²M·¡ÂI


¥t¥~ §A1¼Óªº¤½¦¡¨ä¹ê¬O²Ä2~400¦C¡A¤£¬O2~399¡AªþÀÉ·|¤ñ¸û²M·¡ÂI

rouber590324

DEAR SIR
  ¸Õ¸Õ¦p¤U     
Sub AA()
X = Sheet1.[A65536].End(xlUp).Row + 1
Range("H1").Select       'XX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p ²Ä2~399¦C
ActiveCell.FormulaR1C1 = "=SUMIF(R[-" & 65538 - X & "]C[-1]:RC[-1],""M"",R[-" & 65538 - X & "]C[-2]:RC[-2])"

End Sub

lp986749

·P¿E¼·ªÅµªÂЦ¹°ÝÃD
ActiveCell.FormulaR1C1 = "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"

ActiveCell.FormulaR1C1 = "=SUMIF(R[-399]C[-1]:RC[-1],""MX"",R[-399]C[-2]:RC[-2])"

ActiveCell.FormulaR1C1 = "=SUMIF(R[-400]C[-1]:RC[-1],""MH"",R[-400]C[-2]:RC[-2])"
§Úªº·N«ä¬O R[-399]C[-1]:RC[-1],R[-398] , R[-399] , R[-400] ..µ¥µ¥¥ÎÅܼƦp X+1 ,  X +2 ¨Óªí¥Ü¶Ü?

rouber590324

¦p¤U

X = Sheet1.[A65536].End(xlUp).Row+1
Sheet1.Cells(X, 8).Select  'XX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p ²Ä2~399¦C
ActiveCell.FormulaR1C1 = "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"