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

sumifs Âন vba »yªk

¦^´_ 8# jsc0518

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

TOP

¦^´_ 10# jsc0518


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

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

¦^´_ 14# jsc0518

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

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

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

¦^´_ 22# jsc0518

Arr-->Brr
Brr(i, 1) = xD(Brr(i, 1) & "")

TOP

¦^´_  samwang
Dear samwang,
OK¡A¥i¥H¥Î¡C¦b»P±z½Ð±Ð¤@¤U¡A°õ¦æ«áH1Äæ¦ìªº"VBA"³£·|Åܦ¨ªÅ¥Õ¡C
¬O§_¥i ...
jsc0518 µoªí©ó 2021-12-10 15:03


   .[h1].Resize(UBound(Brr)) = Brr
    .[h1] = "VBA"
End With

TOP

¦^´_  samwang


samwang§A¦n
§Ú­É¥Î§Aªº§¹¦¨«~­×§ï¤@¤U, ±NsumifÅܦ¨¾î¦Vªº,²Ä¤@¦¸¹Bºâ¬O¦¨¥\ªº, ¦ý ...
mdr0465 µoªí©ó 2022-4-26 10:30


¦^¶ñ¸ê®Æ®É­n¥ýªºµª®×¥ý²M°£¡A§Ú·Q§AÀ³¸Óª¾¹D¦p¦ó°µ¡A¼g±o«Ü¦n¡A¦Û¤v¦b¸Õ¸Õ¬Ý¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD