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

sumifs Âন vba »yªk

¦^´_ 10# jsc0518


¤è«Kªþ¤WÀÉ®×¥B»¡©ú¤@¤U°ÝÃD»Ý¨D¡AÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ jsc0518 ©ó 2021-12-7 21:13 ½s¿è

¦^´_ 11# samwang

§Ú§Æ±æ±N F2Äæ¦ìSumif¤½¦¡ÂনVBA


1111.rar (19.63 KB)
Just do it.

TOP

¦^´_ 12# jsc0518

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub Sumif()
For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumif(Sheets("ROUND").Range("A2:A65536"), Cells(I, "A"), Sheets("ROUND").Range("M2:M65536"))
Next
End Sub

TOP

¦^´_ 13# samwang
Dear samwang,
¥¿±`¥i¥H¨Ï¥Î¡A·PÁ±z¡I ^^
Just do it.

TOP

¦^´_ 14# jsc0518

¦pªG¸ê®Æ¦hªº¸Ü¡A13#·|¤ñ¸ûºC¤@ÂI¡AÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ jsc0518 ©ó 2021-12-8 15:26 ½s¿è

¦^´_ 15# samwang
Dear samwang,
±z¦n¡I¸ê®Æ¤@¦h¯uªº·|¶]«Ü¤[¡A¥t¥~§Ú®M¥ÎªºEXCELÀɮפº¦³§Ú¦³¼g«Ü¦hªº¨ç¼Æ¡A¦b°õ¦æsumif¡Bsumifs³o2­ÓVBA»yªk³£¶]«ÜºC¡A¬O§_¥i¥H¦A²¤Æ»yªk©Î¬O¹Bºâ®É¶¡ÁYµu©O¡H
Thank you.

Excel °õ¦æVBA ®Éªºµe­±
1111.jpg


Sub Sumif()

For I = 2 To [a65536].End(3).Row
Cells(I, "H") = Application.Sumif(Sheets("ROUND").Range("A2:A65536"), Cells(I, "A"), Sheets("ROUND").Range("M2:M65536"))
Next

End Sub







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
Just do it.

TOP

¦^´_  samwang
Dear samwang,
±z¦n¡I¸ê®Æ¤@¦h¯uªº·|¶]«Ü¤[¡A¥t¥~§Ú®M¥ÎªºEXCELÀɮפº¦³§Ú¦³¼g«Ü¦hªº¨ç¼Æ ...
jsc0518 µoªí©ó 2021-12-8 15:24


½Ð°Ý¤è«K¥i¥Hªþ¤WÀɮ׶Ü?
¥H§Q´ú¸Õ¥Î
ÁÂÁÂ

TOP

¦^´_  samwang
Dear samwang,
±z¦n¡I¸ê®Æ¤@¦h¯uªº·|¶]«Ü¤[¡A¥t¥~§Ú®M¥ÎªºEXCELÀɮפº¦³§Ú¦³¼g«Ü¦hªº¨ç¼Æ ...
jsc0518 µoªí©ó 2021-12-8 15:24


¦]¬°¨S¦³ªþÀÉ¡A¥u¯à¥Î12#ªºÀÉ®×¥h¼g¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, Brr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Tm = Timer
Arr = [ROUND!a1].CurrentRegion
For i = 2 To UBound(Arr)
    T = Arr(i, 1)
    xD(T) = Val(xD(T)) + Val(Arr(i, 13))
Next
With Sheets("Sumifs")
    Brr = .Range(.[a1], .[a65536].End(3))
    For i = 1 To UBound(Brr)
        Brr(i, 1) = xD(Arr(i, 1) & "")
    Next
    .[g1].Resize(UBound(Brr)) = Brr
End With
MsgBox Timer - Tm
End Sub

TOP

¦^´_ 18# samwang
Dear samwang,
±ß¤W¦n¡I·PÁ±zªº¼ö¤ß¦^´_¡C¦]¥D­nÀɮ׸ê®Æ¤º®e¬°¤½¥qªº¸ê®Æ¡A©Ò¥H¶È¯à¥Î¥Ü½dÀÉ®×µ¹±z¡A©êºp ><"
­è­è¬ORUN¤F¤@¤U¡A¦³¿ù»~°T®§¡I

Just do it.

TOP

¦^´_  samwang
Dear samwang,
±ß¤W¦n¡I·PÁ±zªº¼ö¤ß¦^´_¡C¦]¥D­nÀɮ׸ê®Æ¤º®e¬°¤½¥qªº¸ê®Æ¡A©Ò¥H¶È¯à¥Î¥Ü ...
jsc0518 µoªí©ó 2021-12-8 20:56


§Ú´ú¸Õ¨S°ÝÃD¦pªþ¥ó¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

1111_1208.zip (21.17 KB)

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD