第一，你要把if后面的括号去掉，第二，你这样写程序太繁琐，改为: if cells(x,4).value+cells(y,4)=0 then 还有，在vab中尽量不要用Worksheets("sheet1").Activate这样的句子，通用性很差，要用索引号 sheets(1).Activate next后面不要加什么x,y，这属于画蛇添足，容易弄反，直接就是next...
假设颜色单元格是A1，相加单元格是B1、C1，结果在D1.在插入-名称-定义中，输入名称COL，引用位置输入公式=GET.CELL(38,Sheet1!$A$1)&T(NOW()),确定。D1输入公式=if(--col=3,B1+C1,0)如果是2003版的只能这样，先在名称里定义宏表函数，取出颜色值再进行判断。这已经是最简单的了，再有就...
出现这种情况，应该是你单元格的数字小数位设得过少，显示的数字是四舍五入后的，而参与计算的是原数字。适当增加小数位数，就可以看到实际数字了。
=if(A1+B1>=1,1,A1+B1)
D1输入：=--(MOD(A1+B1,10)=C1)，下拉填充。