按颜色求和

下面我们将看一下Excel VBA中的一个程序，该程序按颜色对数字求和。

情况：

您已将钱借给两个十二个人。有些人将其归还（黑色），有些人还欠您钱（红色）。您想知道您还能收到多少钱。

1.首先，我们声明两个Integer类型的变量。一个命名为toReceive，另一个命名为i。我们将变量toReceive初始化为0。

2.第二，我们开始一个For Next循环。

3.现在，我们检查每个号码，只有当号码的颜色为红色时，我们才将其添加到toReceive。

4.不要忘记闭环。

5.最后，我们显示仍要收取的钱。我们使用＆运算符来连接（连接）两个字符串。尽管toReceive不是字符串，但它在这里有效。

6.将宏放在命令按钮中并进行测试。

结果：