Excel2003如何将相同底纹颜色的单元格数据 相加

sub sumifcolor()
dim r as range
dim sum as integer
sum=0
for each r in selection
if r.interior.color=vbgreen
sum=sum+r.value
end if
next
msgbox "绿色单元格之和为：" & sum
sum=0
for each r in selection
if r.interior.color=vbyellow
sum=sum+r.value
end if
next
msgbox "黄色单元格之和为：" & sum
end sub
在使用的时候，要把需要计算的单元格先选中（绿色黄色单元格全部选中）。另外，因为是用手机打的，所以如果有错的话请见谅！

更正一下，代码确实错了，正确代码如下：
sub sumifcolor()
dim r as range
dim sum as integer
sum=0
for each r in selection
if r.interior.color=vbgreen then
sum=sum+r.value
end if
next
msgbox "绿色单元格之和为：" & sum
sum=0
for each r in selection
if r.interior.color=vbyellow then
sum=sum+r.value
end if
next
msgbox "黄色单元格之和为：" & sum
end sub
就是两个if语句少了“then”。