sumifs Âন vba »yªk

jsc0518

Dear ¦U¦ì¥ý¶i¡A
§Ú¦³¼g¤F¨ç¼Æ
=SUMIFS(R5:R50,O5:O50,A5,P5:P50,B5,Q5:Q50,C5)

¦³§ä¤Fºô¸ô¼g¦¨VBAªº§@·~¡A¦ý¤´¤£À´¸Ó¦p¦ó¼gVBA

¬O§_¥i½Ð±Ð¦U¦ì¥ý¶i¡A±Ð¾É¤@¤U SUMIFS VBA »yªk

·P®¦!

jsc0518

§Ú¬Oª½±µ¼g¦¨

Sub S40()
For I = 5 To [a65536].End(3).Row
Cells(I, "G") = SumIfs(Cells(I, "R"), Cells(I, "O"), Cells(I, "A"), Cells(I, "P"), Cells(I, "B"), Cells(I, "Q"), Cells(I, "C"))
Next
End Sub

¦ý¦³¿ù»~

¤U¸ü (28.48 KB)

2017-5-30 18:37

ML089

¦^´_ 2# jsc0518

'Cells(I, "G") = SumIfs(Cells(I, "R"), Cells(I, "O"), Cells(I, "A"), Cells(I, "P"), Cells(I, "B"), Cells(I, "Q"), Cells(I, "C"))
§ï¬°
Cells(I, "G") = Application.SumIfs([R5:R50], [O5:O50], Cells(I, "A"), [P5:P50], Cells(I, "B"), [Q5:Q50], Cells(I, "C"))

jsc0518

¦^´_ 3# ML089

·PÁ±zªº¦^ÂСA¥i¥H¨Ï¥Î!
¦A¦¸ÁÂÁÂ!

s3526369

¦^´_ 3# ML089

½Ð°Ý³o¼Ëªº¨ç¼Æ­n«ç»ò§ï
=SUMIF(¤J®w³æ!$O$2:$O$1001,­Ü®w®w¦s!A4,¤J®w³æ!$R$2:$R$1001)
·PÁÂ~

rouber590324

= Application.SumIf(Sheet1.Range("Q"), Sheet1.Cells(4, 1), Sheet1.Range("R:R"))

s3526369

¦^´_ 6# rouber590324


    ·PÁÂ!!~~

jsc0518

¦^´_ 3# ML089
Dear ML,
©êºp¡A¥i¥H¦AÀ°§Ú¸Ñ¤@¤UºÃ´b¶Ü¡H

¦¹¬q¬°excel¨ç¼Æ¡A§Ú·Q§â¥LÂàVBA¡A¦]¦³¸ó¤u§@ªíªº°ÝÃD¡A©Ò¥H¦Û¤vrun¤£¥X¨Ó
=SUMIFS(ROUND!M2:M10000,ROUND!A2:A10000,A2)

¤U¤è¬O§Ú§ï¹Lªº»yªk¡A¦ý¦³°ÝÃD

Sub Sumifs()

For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.SumIfs((Sheets("ROUND").[M2:M10000]), (Sheets("ROUND").[A2:A10000]), Cells(I, "A")
Next

End Sub

¤U¸ü (58.86 KB)

2021-12-7 16:45

samwang

¦^´_ 8# jsc0518

¤Ö¤F¤@­Ó  )
Cells(I, "G") = Application.SumIfs((Sheets("ROUND").[M2:M10000]), (Sheets("ROUND").[A2:A10000]), Cells(I, "A"))

jsc0518

¦^´_ 9# samwang
Dear samwang,
±ß¤W¦n¡I·PÁ±zªº¦^ÂмڡA­è¥Î¤F´ú¸ÕOK¡C

¦A½Ð±Ð±z¤@­Ó°ÝÃD
§Ú­Y§ï¦¨ Sumif (»yªk¦p¤U) ¡A¦ý·|µo¥Í 400 ¿ù»~¡A¬O§_¥iÀ°§Ú¸Ñ´b¡A­þ­Ó»yªk¦³°ÝÃD
Thank you very much.




Sub Sumif()

For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumif(¤u§@ªí2.Range("A"), ¤u§@ªí3.Cells(I, "A"), ¤u§@ªí2.Range("M:M"))
Next

End Sub

¤U¸ü (109.44 KB)

2021-12-7 19:47