总和颜色在Excel VBA
下面我们就来看看在Excel VBA程序，通过颜色总结数字。
现状：
你已经lended金钱两个十二个人。有人给它回（黑色）和一些仍然欠你的钱（红色）。你想知道你还多少钱收到。
1.首先，我们声明整数类型的两个变量。一位叫要获取和一个命名我。我们初始化变量要获取值为0
Dim toReceive As Integer, i As Integer toReceive = 0
2.其次，我们开始为下一个循环。
For i = 1 To 12
3.我们现在检查每个号码且仅当数量的颜色是红色，我们的号码添加到要获取。
If Cells(i, 1).Font.Color = vbRed Then toReceive = toReceive + Cells(i, 1).Value End If
4.不要忘记关闭循环。
Next i
5.最后，我们显示资金仍然接受。我们使用＆运算符来连接（连接）两个字符串。虽然要获取是不是在这里工作的字符串。
MsgBox "Still to receive " & toReceive & " dollars"
6.将您在命令按钮的宏并对其进行测试。
结果：
