跪求大神！！加急，怎么根据颜色调用个数VB程序

beba

jy03342543

Sub Count()
Dim a, b, c, d, i, j As Long   '定义数据类型
a = Worksheets("Sheet1").Range("A3").Interior.Color   '将A3单元格的颜色值赋给a
b = Worksheets("Sheet1").Range("D4").Interior.Color   '将D4单元格的颜色值赋给b
c = 0    '对c进行初始化赋值
d = 0    '对d进行初始化赋值
For i = 2 To 100    '从第2行到100行进行循环执行
For j = 1 To 9      '从第1列到第9列进行循环执行
                    '查找的范围相当于A2:I100
If Worksheets("Sheet1").Cells(i, j).Interior.Color = a Then
c = c + 1    '如果找到的单元格颜色与A3单元格相同，则加1
Worksheets("Sheet1").Range("J3") = c  '将结果输出到Sheet1表格的J3单元格
End If
If Worksheets("Sheet1").Cells(i, j).Interior.Color = b Then
d = d + 1    '如果找到的单元格颜色与D4单元格相同，则加1
Worksheets("Sheet1").Range("J5") = d  '将结果输出到Sheet1表格的J3单元格
End If
Next
Next
End Sub

beba

非常感谢，我试试