[µo°Ý] VBA sum °ÝÃD

john2006168

Book2.zip (1.93 KB)

¤U¸ü¦¸¼Æ: 26

2010-6-5 12:23

­n°µ¨ì¦n¹³sheet2,¬Û¦Pªºref no,sum of ctn and gw.¨ä¥L¤£ÅÜ
shee1

ref no        ctn        gw        remark
john001        1        6        go
john002        2        2        go
john002        2        3        go
john002        1        2        go
john003        1        7        go
john004        1        8        go
john005        1        9        go
john006        1        10        go
john007        2        1        go
john007        2        1        go
john008        3        6        go
john009        4        7        go
john010        5        8        go

Sheet2
ref no        ctn           gw        remark
john001        1        6        go
john002        5        7        go
john003        1        7        go
john004        1        8        go
john005        1        9        go
john006        1        10        go
john007        4        2        go
john008        3        6        go
john009        4        7        go
john010        5        8        go

john2006168

¬Oªº.¥Î¼Ï¯Ã¤ÀªRªí³Ì§Ö,¦hÁ¦Ѯv«ü¾É.¤£¹L¤U­±´X¥y¤£¬O«Ü©ú¥Õ..¬ß»¡©ú

If Not d.exists(a & a.Offset(, 3)) Then

07.     d(a & a.Offset(, 3)) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value)

08.     Else

09.     ar = d(a & a.Offset(, 3))

10.     ar(1) = ar(1) + a.Offset(, 1): ar(2) = ar(2) + a.Offset(, 2)

11.     d(a & a.Offset(, 3)) = ar